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SELECTED SHORT SUBJECTS 


The purpose of Selected Short Subjects is to 
bring together and highlight concise, factual 
and timely information which will indicate 
that action is to be taken by the IBM repre- 
sentative whose accounts are affected. 


2848 Physical Planning - Remote Unit 


If you are planning to install 2848's remote 
from the S/360 CPU, i.e. attached to the CPU 
through a 2701, you should be aware that this 
control unit has the same temperature require- 
ments, the same maximum relative humidity 
and maximum wet bulb temperature and the 
same BTU/hour heat output as a S/360-30 CPU. 
See 'IBM S/360 Installation Manual - Physical 
Planning" (C22-6820). 


S/360 CPU with 2250 and 2840 Meter Operations 


The S/360 CPU meter operation article on 
page 24 of Installation Newsletter issue 66-010 
states under item Al: 


"When the CPU meter stops, all meters 
for Assignable Units and On Line Units 

stop whether or not the specific actions 
indicated under their Sales Manual dis- 

cussions have been taken, "' 


The basic ground rule for graphic unit meter- 
ing is that the meter will run whenever the 
buffer is active (i.e. regenerating a display or 
looping while awaiting an operator action) 
regardless of CPU meter status. 


1800 System Installation of Non-IBM Equipment 


The IBM FE Area Installation Planning Engineer 
should be consulted whenever a customer desires 
to install non-IBM equipment in, or physically 
attached to, units of the 1800 system. Reference 
item 7, page 1 in the 1800 Physical Planning 
Manual A26-5922-4, or A26-5922-2, -3 with 

TNL N26-0177. 
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OS/360 RELEASE 11 CHECKPOINT/ RESTART 


The following is a correction to Release 11 for 
Checkpoint/Restart prose, page 12, item 13: 


Any number of checkpoints which cause an EOV 
on a Checkpoint/ Restart data set will result in 
an 806 ABEND. 


OS/360 RELEASE 11 - USER LABEL EXITS 


The recent Program Announcements Letter 
(P67-41, 5/15/67) announcing the information 
pertinent to OS/360 Release 11 also discussed 
the deferring of Label Exits for User Modifica- 
tions. This information refers to the use and 
processing of Volume, Header and Trailer User 
labels. 


OS/360 QTAM - USE OF LOGGING FUNCTION 


OS/360 QTAM users currently utilizing the log- 
ging function must specify the DCB parameter 
RECFM=F. Any other specification will result 
in modification of a portion of QTAM's message 
prefix. The log function itself will execute 
properly, however, it could have an unpredict- 
able effect on other functions performed in both 
message control and message processing. It 
is planned to lift this limitation in QTAM ina 
future OS/360 Release during 3Q1967. Actual 
availability will be as announced with the future 
Release. 


OS/360 - 2314 F. E. DIAGNOSTICS 


It is possible for the CE to run micro program 
diagnostics in the 2314 while the CPU is also 
running problem programs which use the same 
2314 Direct Access Storage Facility. If this is 
done, the result can be that a control unit busy 
signal is sent to the CPU because of an attempt 
to start the data transfer seek while the F.E. 
diagnostics are also using the control unit. 


This condition will cause the problem program 
to go into WAIT state and shortly the CPU also, 
since IOS cannot recover from such a condition. 
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The F. E. Area Office can contact FE Technical 
Operations, Poughkeepsie, New York for in- 
formation on this situation. Branch Office com- 
munication is through the F. E. Area Office. 


OS/360 PL/I (F) PERFORMANCE IM PROVE- 
MENTS 


Version 3 of PL/I (F) compiler was recently 
announced by Program Announcement P67-45, 
dated May 22, 1967 for October 31, 1967 avail- 
ability. This release has been devoted primarily 
exclusively to improving the object time of PL/I 


programs. See P67-45 for additional information. 


1. Many operations which were previously per- 
formed by library routines are now executed 
in-line. These include the more common 
datatype conversions and certain string 
operations. The SUBSTR built-in function 
is now always executed by in-line code. In 
order to make this possible, the operation 
was re-defined and the extensive checking 
inherent in the previous definition was re- 
moved. Therefore, care must be exercised 
that the function does not address a sub-string 
beyond the source string. 


e.g. DCL ADDRESS CHAR (20), 
CITY CHAR (5); 
CITY = SUBSTR (ADDRESS, X, 5): 


If X is greater than 15, the variable CITY 
will contain useless data. 


The savings resulting from this are dramatic: 
consider the following case: 


DCL (A, B, C, D) CHAR (10), 
RESULT CHAR (20); 
RESULT = SUBSTR (A, 3, 7) {| SUBSTR 
(D, 2, 5) |i SUBSTR (B, 2, 3) 
|| SUBSTR(C, 1, 5); 


The above statement previously compiled 
into 412 bytes of object code, including 

14 library calls. The in-line code produced 
for this statement as shown below occupies 
58 bytes, and, as the concatenations are also 


done in-line, all 14 library calls are eliminated. 


LA 8, At2 
LA 7, Dt 
MVC WKS(7), 0(8) 


MVC WKS+7(5), 0(7) 


Issue No. 67-12 


LA 8, Bt 

MVC WKS+12(12), WKS 
MVC WKS+24(3), 0(8) 

LA SG 

MVC WKS+27(15), WKS+12 
MVC WKS+42(5), 0(8) 
MVC RESULT(20), WKS+27 


The object-time performance in this case was 
improved by a factor of over 15. The com- 
pilation time was unchanged. 


Tests indicate that on some programs the 
gains from Version 2 to Version 3 are as 
high as 5:1 overall. In most cases, however, 
a 20 percent improvement can be expected 
for commercial programs. 


. Although prolog-epilog overheads have been 


reduced, in some cases gains may be ob- 
tained by re-structuring programs. The 
dictionary size is effectively doubled for 
many types of programs by re-use of tem- 
poraries and work areas acquired by the 
compiler. This means that much larger 
programs may be compiled, thus avoiding 
excessive segmentation. 


When segmentation was essential, Version 2 
presented problems by its use of the Linkage 
Editor control card INCLUDE. This was 
especially so when OVERLAY techniques 
were employed. Version 3 does not generate 
INCLUDE cards and this problem, therefore, 
will not arise. A better method of selective 
routine inclusion is used. 


The EVENT option on an I/O statement now 
permits overlap of access time with proces- 
sing, without buffering. Note that when an 

1/O statement has the EVENT option, the 

event specified must be the subject of a WAIT 
before any I/O conditions (e.g. KEY, RECORD, 
etc. ) are raised. 


e.g. R:READ FILE (PAYROLL) INTO 
(INAREA) EVENT (GETNEXT); 


nl 


process 

Hi 
WAIT (GETNEXT); /* AT THIS POINT 
CONDITIONS WILL BE RAISED*/ 


I | 


GO TO R; 


If an event is not WAITed on, then conditions 
will be lost. 
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5. Following are the results of timing tests con- 
ducted on commercial-type programs. These 
were inter-related programs and the objective 


was one of overall improvement of the five 


programs. 


Although these tests were run under careful 
supervision, slight errors may be present 
due, for example, to I/O errors which the 
system recovers after several attempts. 
This explains why, in one case, Version 3 
of F Compiler is shown as 1.4 seconds 
slower than Version 2 (22.1 versus 20.7). 


a. Execution time in seconds of poorly coded 
PL/I Programs for Commercial Applica- 
tions (time in seconds and OPT=1). 


Pgm 1 Pgm 2 Pgm 3 Pgm 4 Pgm 5 


F Version 2 296.5 


Pe Wersion 2 102.4 49.61 95, 


b. Execution time of above programs after 
certain source language improvements: 
(Time in seconds and OPT = 1). 


V2 209 151.0 4 179 21s" 4:201.3 
v3 55.4 | 26,3 | Vs? | 21.6 | 45,2 


c. Execution time after 'experts' improved the 
source code to its best. (Time in seconds 
and OPT = 1.) 


v2 24.4 1 23.0 | 19.8 1 20.7 } 105.7 
V3 22a? | 22.8 19.9 22.1 28. 


Poorly coded Version 2 total time - 1270.7 
seconds. 


Eixpertly coded Version 3 total time - 
115,0 seconds. 


6, With the addition also of a batch-compiling 
facility, the F Compiler now provides the 
power of the PL/I language efficiency at the 
44K level of OS/360. 


7. One other change in Version 3 is of great 
importance to all users. The PL/I attribute 
DEFINED is very restrictive to preserve the 
language's machine independence. In COBOL 
or FORTRAN, a programmer could use RE- 
DEFINES or EQUIVALENCE and, providing 


For IBM Internal Use Only 


70.0 | 352.8] 226.7; 323.7 


Issue No. 67-12 


he was aware of and obeyed the particular 
computer's boundary rules, he was able to 
overlay any datatype with any other. With 
Version 3, F Compiler will continue to diag- 
nose any illegal use of DEFINED as an error, 
but code will be compiled and, providing 
OS/360 boundary alignment is satisfied, the 
object program will execute correctly. Com- 
mercial users employing DEFINED structures 
as record variables should also familiarize 
themselves with the mapping of PL/I struc- 
tures documented in the OS/360 PL/I (F) 
Programmer's Guide (C28-6594-1). 


It is expected that many more users will begin 
to use PL/I now that the object performance has 
been improved. However, novices in PL/I 
should be referred to the Coding Techniques 
section of the Programmer's Guide (C28-6594-1) 
since, with a language as large as PL/I, there 
are often many ways to solve a problem but not 
all are equally efficient. 


OS/360 LINKAGE EDITORS 


Release 11 of OS/360 contains both Linkage 
Editor E, with options for 15K, 18K or 44K 
operation, and Linkage Editor F with options 

for 44K or 88K operations. Linkage Editor E 

is considered to be a most reliable program, and 
its use is definitely recommended. Linkage | 
Editor E (44K) has several improvements over 
the 18K and 15K options. The major ones are 
the ability to accept as input the text blocking 

of up to 3072 bytes, and the grouped control 
sections produced by Linkage Editor F. 


A comparison of Linkage Editors E (44K) and 
F (88K) shows the following differences: 
(44K) F(88K) 
1. Maximum Text 
Block Size 
2. Ability to group 
CSECTS in output 
text records no yes 
3. Maximum seg- 
ments in struc- 
tured overlay 63 255 
4, Maximum capa- Variable, de- 
cities for ESD, pends on 
intermediate text amount of 
records, and available core 
RLD records storage fixed 


3072 bytes 18,432 bytes 


June 16, 1967 


The structured overlay TTR list, CALLS list, 
and ENTRY Table sizes also vary somewhat 
between Linkage Editor E (44K) and Linkage 
Editor F. (Note: Details are given in Tech- 
nical Newsletter N28-2224, which amends the 
OS/360 Linkage Editor SRL C28-6538, ) 


When the PCI fetch option is selected for the 
OS/360 Control Programs, there is little im- 
provement in the speed of program fetch due to 
either grouped CSECTS or text blocking of over 
3072 bytes. 


The speed of linkage editing when comparing E 
(44K) and F (88K) depends upon the object 
modules being edited. Some test runs showed 

E (44K) to be faster than F (88K) for Assembler, 
slower for FORTRAN H, and about equal for 
COBOL F object module editing. 


The general conclusion, to the degree that a 
general conclusion is possible, is to recommend 
the use of E (44K) except where the number of 
overlay segments must be greater than 63. A 
report from you of specific customers who re- 
quire use of the F Linkage Editor is requested, 
and may be sent to: Manager, Programming 
Systems-OS, DPD HQ, White Plains. 


Users should be encouraged to convert to Link- 
age Editor (44K). To do this, long text records 
(from Linkage Editor F) must be converted to 
short records acceptable to Linkage Editor E 
(44K). Following is the general procedure 
which would be used to convert: 


1. For the user who utilizes the IBM supplied 
DLIBO1] and DLIBO2 (SYSRS2, SYSRS3) and 
has private libraries of 1K or 3K byte 
records, the normal generation procedures 
will suffice. 


2. For the user who has records longer than 
3K bytes ona 2301, 2302, 2303 ora 2314, 
Linkage Editor F 44/88 in his existing system 
must be used to link edit with the DC (Down- 
ward Compatible) option. The output may be 
written on any direct access device. Then, 
using Editor E 44, he must link edit the 
intermediate output to his new system. 


Exhibit 1 shows the conversion procedure. 
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OS/360 RELEASE 11 - USE OF NEW UTILITY 


Users who desire the new update utility 
(IEBUPDTE) must linkedit it separately be- 
cause SYSGEN generates the utility (IEBUPDAT) 
into SYS1. LINKLIB. See the OS/360 Release 11 
prose for JCL. 


DOS/360 DASD FILE PROTECTION 


Direct Access storage device file protection 
(DASDFP) may be specified in the FOPT system 
generation macro for DOS/360. DASDFP oper- 
ates in the following manner: 


1. Job Control or the Foreground Initiator reads 
the VOL, DLAB, and XTENT control cards | 
from the input job stream. This information 
is re-formatted somewhat, and written on 
the label storage area of SYSRES as one or 
more disk records. Each of these disk rec- 
ords is written with (preceded by) a disk key. 
This disk key is created from the "filename" 
(DTF name, really) entry in the VOL card. 


2. When the problem program OPENSs the data 
set (DTF), the OPEN transient routine ex- 
tracts an 8-byte alphameric constant from 
location 22-29 of the generated DTF table. 
This constant is called the "filename", and 
is an exact replica of the DTF name. 


3. The OPEN transient routine searches the 
label storage area of SYSRES looking for a 
disk key equal to this DTF '"'filename" con- 
stant. When it finds a match, it reads the 
data portion of this job control disk record 
into memory. 


4. The extent information is extracted from 
this job control disk record, and is stored 
in the JIB table. A 2311 extent requires one 
JIB entry; a 2321 extent requires two JIB 
entries. 


Each XTENT card named the SYSnnn unit 
that contained the extent. The $$BOFLPT 
OPEN transient, therefore, stores each ex- 
tent into a JIB entry that is related or linked 
to a specific SYSnnn or logical unit block 
(LUB). 
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5. When the problem program requests an I/O 
operation on disk, the supervisor extracts 
the SYSnnn and the SEEK channel command 
word (CCW) from the channel control block 
(CCB). The current disk SEEK address is 


compared against the extent limits stored in 


the JIB table for this specific SYSnnn. If the 
disk SEEK address falls outside the range of 


extents, the job is cancelled. 


For a 2311 extent, the upper and lower cylin- 
der numbers comprise the protection boun- 
daries for the named SYSnnn. A 2321 is only 
protected on strip boundaries. 


NOTE: This is a programmed check to deter- 
mine if the problem program is trying to access 
data outside the "allowed" cylinder or strip 
limits. 


6. Next, the supervisor builds and executes a 
small channel program containing three com- 
mands: a SEEK that is identical to the prob- 
lem program SEEK; a Set File Mask that 
prevents any other "long'' SEEKs from being 
executed; and a TIC that transfers control to 
the command following the problem program's 
SEEK. 


NOTE: This is a "hardware'' check to pre- 
vent the problem program's channel from 
moving the disk R/W head outside the cylin- 
der or strip limits that were validated by 
the "programmed" check. 


DASDFP provides file protection on the basis of 
Symbolic Unit. It does not provide protection 

by access method or data set or DTF. However, 
if each disk DTF ina problem program is as- 
signed different SYSnnn units, then file protec- 
tion can be ''made" to prevent one DTF from ac- 
cessing the data belonging to another DTF. 


Also, DASDFP does not prevent data set con- 
tention between partitions. Thus, more than 
one partition may access the same data set at 
the same time (and both partitions may attempt 
to update the same disk record simultaneously). 


When using DASDF'P, follow these guidelines: 


1. For complete protection, data sets should 
begin and end on cylinder/strip boundaries. 


2. File protection is ensured only if the disk 
labels involved are unexpired. 


3. 


Issue No. 67-12 


In any one program, each DTF should use a 
different SYSnnn, even if the data sets reside 
on the same physical volume. 


DOS/360 INSTALLING AND TESTING TELE- 
PROCESSING 


A member of an IBM Field Systems Center has 
been assisting field System Engineers in the 
installation and testing of Tele-processing 
systems operating under the support of DOS/ 
BTAM. This article is the result of this 
experience. It describes common errors which 
occurred in installing/testing and how to avoid 
them. In addition, some suggestions for easing 
the installing/testing phase are included. 


The following are some common DOS-BTAM 
installing and testing errors. 


l 


Incorrect SAD commands issued for 2702 
lines. Each 2702 communication line is 
wired to accept a specific SAD command. 
The command (SADO, SADI, SAD2, SAD3) 
specifies a given terminal control and bit 
rate. The wiring of the SAD command to be 
used for each line may be done at the plant 
or by the Customer Engineer at installation. 


SAD commands are issued in accordance 
with the MODE setting specified in DVCGEN 
statements or ASSGN statements. Prior to 
installation, a meeting should be held with 
the Customer Engineer to determine the 
specific SAD commands that will be utilized 
for each line on your 2702. 


- Incorrect device addresses specified for 


2702 lines. As a general rule, line 0 is 
reserved for Customer Engineering diag- 
nostic tests (wrap tests) and is not physically 
wired for user operations unless the full 
capacity (15 or 31 lines) of the 2702 has 

been reached. Therefore, except for a full 
capacity 2702, the first customer useable 


‘line will be line 1. Line 0, however, will 


take up the first channel device address of 
the control unit. 


As in item 1 (above), you should meet with 
the Customer Engineer to determine channel 
addresses for each useable line prior to 
systems generation and testing. 
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Exhibit 1 is an example covering items 1 and 5. Excessive ''data checks" when writing to a 


2. Assume a 2702 with 3-1050 lines and 2- 
1030 lines. 


A helpful planning and testing aid is to lay 
out a chart such as is shown in Exhibit 2. 
This chart would also be an aid to Customer 
Engineers when de-bugging hardware. One 
chart should be filled out per communication 
line. 


. Incorrect Dataset interface and incorrect 


Dataset options. Dataset interface circuitry 
is provided in the Transmission Control Unit 


on a per line basis. It is built to matcha 


terminal. Check the EBCDIC to terminal 
code translation table for codes not accep- 
table for that terminal type. For example, 
many users are placing a X'00' in the table 
wherever a non-existent terminal code 
logically appears. Thus, a EBCDIC X'00' 
will be translated to terminal code X'00!. 
This will cause an error if transmitted to a 
1050. A better approach is to use the hex 
representation for some special character 
which will be readily identifiable at the 
terminal. An asterisk might be a suitable 


choice. 


specific Dataset and is determined by the 6. Extraneous coding in the I/O area. This 

information the sales representatives write will generally show up in a storage dump 

up on the 2701 or 2702 Specification Sheet. taken at the start of program operation and 

The Specification Sheet must be submitted is caused by setting up I/O area with DS 

prior to PSC time. This information must statements. If it causes program problems, 

be accurate to assure an on-time installation. the 'ACTION CLEAR" option should be used 
when link editing the program. 

Dataset options are to the Common Carrier 

what special features and "specifies" are to 7. Failing to transfer control to a lower priority 

the IBM Corporation. They define just how partition after executing T/P WAIT. The 

the Dataset is to operate on the circuit and WAIT macro scans the DECB's in the list 

with the IBM equipment. The IBM repre- for completion codes. Every time a comple- 

sentatives responsibility to the customer tion code is found in the scan, one is sub- 

regarding the specific Datasets and options tracted from the users WAIT count (normally 

to be ordered from the Common Carrier is 1). When the count is reduced to zero, the 

contained on page GI2 of the Sales Manual. WAIT is satisfied and control is returned to 

Common Carrier information is detailed in the users T/P program. If the count is not 

the IBM Data Communications Handbook. reduced to zero, control is passed to the 

Additional information is available from supervisor for task selection. 

your District FSC SD&I Department. Data- 

set availability and requirements should be If you find the program failing to transfer 

determined as early as possible. Some control to a lower priority program, take 

Datasets are in short supply at the present a storage dump and check the DECB's. The 

time and a lead time of five months exists user has probably stopped operations ona 

in some instances. line and failed to clear the DECB completion 
code. This condition will most likely occur 

Excessive 'lost data' errors when reading on dial-up lines where one may terminate 

from a terminal. Lost data occurs when the a call on one line and not start another. 

count of characters received exceeds the | 

count set up for the read operations. Many 8. T/P program in continuous WAIT state. 


users are forgetting to include the EOA char- 
acter (circle D) and the EOB character 
(circle B) in the read count. Lost data is 
also likely to occur when reading from on- 
line keyboards because some operators will 
tend to include extra spaces. The human 
element should be taken into consideration, 
and a large enough input area for some extra 
characters allowed. 


This can occur under several conditions. 


a. Executing a WAIT with no 1/O operation 
started - this is a program logic problem. 
It will be necessary to cancel the job and 
correct the logic because there is no way 
to regain control. 


b. Executing WAIT for I/O having an indeter- 


minate completion time. This will occur 
only when all lines are performing READ 
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initial operations and only if all the lines 
are supporting any of the following: 


1) Audio Response 

2) 2260 Local 

3) Polling with wrap lists 
4) 2740 Basic 

5) Auto-answer 


The only way to regain control is for some 
terminal to respond positively by sending in 
a message, thus satisfying the WAIT. A 
local terminal is virtually a must in systems 
of this type. Operator Control (OC) and/or 
Interval Timer (IT) STXIT routines will not 
circumvent this problem because they do 

not gain control until the partition gains 
control - in other words, until the partitions 
WAIT condition has been satisfied. 


The following are installing and testing sugges- 
tions. | 


10 


. Make sure the system will pass the Customer 


Engineering diagnostic check out programs 
before you begin initial testing. These 
programs prove invaluable when machine 
malfunction is suspected. 


. Include the terminal test facilities in your 


BTAM logic and run them before each test 
session, 


. Message control (line control) and message 
processing should initially be tested separately. 


Message processing routines can be tested 

by simulating message input via a card reader 
or magnetic tape file. Output messages can 
be simulated by writing to the printer. 


Message control testing should start with 
single thread testing. Typically, this would 
involve reading a message from one terminal 
ata time, identifying the terminal from which 
the message was received and printing the 
message and terminal identification out on 
the system printer. 


The next test might involve receiving a mes- 
sage from one terminal ata time, identifying 
the terminal, and then turning the line around 
and transmitting the message back to the 
terminal. : 


Further testing of message control would 
involve multiple line operations, operator 
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control, changing of polling lists, etc. The 
point is to take one step at a time, prove out 
the step before going to the next step and 
adding to the complexity of the system. 


Only when the separate packages (message 
control and message processing) have been 
satisfactorily tested independently should 
they be combined. At this point, the user 
should again start with single thread testing 
- one terminal and one transaction at a time. 


Liberal use of the PDUMP macro will en- 
hance T/P program testing. Many program- 
ming errors are found in the execution of line 
I/O macros (READ, WRITE, CONTROL, etc. ) 
and in the handling of I/O areas. In most 
systems the multiplicity of lines and terminals 
plus the random arrival of messages and 
completion of events makes it very difficult 

to pin down these programming errors. 

What is required is a trace tool. PDUMPis 

a very effective trace tool for this type of 
situation. Users should insert PDUMP 
macros before and after execution of any 

line I/O macro. The dump should be set 

up to print out the DECB's, I/O areas, and 
DTF's. 


Users should be aware that PDUMP uses 
registers 0 and 1 and consequently destroys 
their contents. These registers, therefore, 
should either not be used in the program, or 
their contents saved before execution of 
PDUMP and restored after execution. 


DOS/360 BTAM LOCAL 2260 TERMINALS 


In a DOS/360 system supporting local 2260 
terminals under BTAM, it is usually desirable 
to establish a technique for operating with less 
than the total number of terminals actually at- 
tached to the system. This requirement might 
exist in one or more of the following situations: 


io 


During initial testing of the program when 
only one or two terminals have been installed. 


. At any time that a terminal has been taken 


offline for maintenance, 


. When operators are not available to man all 


terminals. 
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DOS/360 INSTALLING AND TESTING TELE-PROCESSING 


r | Channel Address 2702 Line Terminal Control 
| 010 0 not assigned 

011 1 1050-SADO 

012 2 1050-SADO 

013 3 1050-SADO 

014 4 1030-SAD1 

015 5 1030-SAD1 

DVCGEN statements for this situation would be: 
DVCGEN CHUN=X'011', DVCTYP=2 702 , MODE=X'00' 
DVCGEN CHUN=X'012', DVCTYP=2 702, MODE=X'00' 
DVCGEN CHUN=X'013', DVCTYP=2702 , MODE=X'00' 
DVCGEN CHUN=X'014', DVCTYP=2702, MODE=X'01' 
DVCGEN CHUN=X'015', DVCTYP=2702 , MODE=X'01' 


ASSGN statements might be: 
ASSGN SYS020,X'011' 
ASSGN SyYS021,X'012' 
ASSGN SYS022,X'013' 
ASSGN SyYS023,X'014' 
ASSGN SyYS024,X'015' 


The DTFBT macros in the users program might be: 


Group 1 DTFBT LINELST=(020,021,022), 
CU=2702, 
DEVICE=1050 
© Group 2 DTFBT LINELST=(023, 024), 
CU=2702, 


DEVICE=1030 


Exhibit 1 


DOS/360 INSTALLING AND TESTING TELE-PROCESSING 


HARDWARE 
2702 Line # Channel Address Terminal Type SAD 
COMMUNICATION 
Line Adapter or Dataset Type Telephone or leased line# 
PROGRAM 
Sys # DTFBT name Relative Line DECB name 
TERMINALS 
Hardware Address Physical Location 
Exhibit 2 
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4. During off hours when only a few terminals 
are in use. 


Do not use the DOS ASSGN IGN statement as a 
means of eliminating the terminals not in use. 
Since ASSGN IGN forces completion of a READ 
command when an out of service terminal is 
tested, the use of this statement will prevent 
BTAM from testing for ENTER from some 
active terminals. Any active terminal which 
appears in the scanning sequence after a term- 
inal for which ASSGN IGN has been specified 
will be ignored by BTAM. 


The recommended alternate to ASSGN IGN is 
the use of the skip bit in the line control block 
When this bit is on, 
it prevents polling of the associated terminal. 
The skip bit can be turned on by the BTAM 
program, usually through use of the CHGNTRY 
macro instruction. The use of the skip bit 
means that terminal configuration on modifica- 
tions must be made from inside the program 
rather than externally by the operator as would 
be the case with ASSGN IGN. This implies 
that the programmer will code into his BTAM 
program the necessary routine to accept con- 
figuration information (probably from either 
the console or the card reader) and to set the 

- appropriate skip bits. 


for terminals not in use. 


DOS/360 BTAM 2702/2703 AUTOPOLL SUPPORT 


BTAM support for the autopoll feature will allow 


the user to specify either an open list or a wrap 
The use of an open list 
allows the user to poll each terminal in the list 
once and then to regain control in his program 
from the autopoll hardware. In most instances 
an open list will be used in conjunction with the 
The program will utilize the autopoll 
hardware to poll each terminal once and then 
will set an interval on the timer during which 
polling will be suspended. BTAM channel pro- 
gramming with a wrap list will allow polling to 
continue indefinitely without any program inter- 


list for his terminals. 


timer. 


vention. The polling list may vary in size from 
a single entry to many entries. Even with only 
one entry in the list, the wrap list channel 
program will continuously poll that terminal 
without reference to the CPU program. When 
using a wrap list, polling need not begin with 
the first entry in the list. No matter where in 
the list the polling sequence is started, the 
channel programming will always wrap back 
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from the end to the beginning of the list. The 
use of the 2702 Autopoll special feature, when 
BTAM support becomes available, is strongly 
recommended. By eliminating the CPU time 
required by BTAM to re-initiate polling after a 
negative response has been received, this fea- 
ture provides a significant saving in CPU time 
for all but the smallest T/P networks. 


DOS/360 ISAM ON 2321 DATA CELL DRIVE 


The following article concerns ISAM data sets 
on the 2321 under DOS/360 and other informa- 
tion about the 2321. 


1, An ISAM data set must be CLOSEd if records 
are being LOADed, or if ADDitions are being 
entered. Occasionally, it is not possible to 
CLOSE an ISAM data set, because some I/O 
errors cause the supervisor to cancel the 
job without returning control to the user. 


In a LOAD operation, the CLOSE writes a 
completed F2 Disk Label. If the ISAM data 
set is not CLOSEd, it is unusable, since the 
unwritten F2 Disk Label would have carried 
the addresses of the master and cylinder in- 
dexes, the number of the cylinder overflow 
tracks, a pointer to the independent overflow 
area, etc. 


In an ADDition operation, the CLOSE writes 
an updated F2 Disk Label with the current 
address of the next available location in the 
independent overflow area. If the data set 
was not CLOSEd, this pointer would still 
have its old value; and future ADDitions would 
overlay the ADDitions just inserted into the 
independent overflow area. 


Also, the job might be cancelled while an 
ADDition (either to a cylinder or to an inde- 
pendent overflow area) was being handled by 
ISAM. An ADDition often requires several 
disk reads and writes to completely update 
the "chain" of disk address pointers. If the 
overflow record chain is not completed, 
some records are usually lost. The incor- 
rect overflow chain produces a data set that 
cannot be processed sequentially. 


Thus, the user is faced with the unhappy 
prospect of reconstructing the ISAM data 
set. While the time to reload or reconstruct 
an ISAM data set on a 2311 is mostly a nuis- 
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ance, the time to reconstruct an ISAM data 
set on a 2321 is very significant. 


The following are a few possible techniques 
to lessen the consequences of an unpredictable 
supervisor cancel: 


a. Modify the CCB in each problem program 
DTF to insure that the bit which instructs © 
the supervisor to return all unrecoverable 


1/O errors to the user is on. This will 
provide the ability (in most cases) to 


CLOSE all files before cancelling the job 
on 1/O errors. 


b. Split the logical file into smaller physical 
data sets, to reduce the amount of recon- 
struction effort in the event of an un- 
CLOSEd condition. 


c. Take frequent checkpoints and maintain 
an adequate audit trail of all transactions, 
to ease the task of reconstruction. 


d. Do not create an ISAM data set ona 2321. 
Instead, use DAM to create and maintain 
the 2321 data. Use the 2321 physical ad- 
dresses to create a separate 2311 ISAM 
data set, that will actually be an index to 
the master data on the 2321. This (DISAM) 
organization is further discussed in TIE 
paper 277-6247. 


An unCLOSEd DAM data set can be recon- 
structed since the Disk Labels would not 
be altered by the CLOSE, and there is no 
uncompleted disk ''chain.'' If the 2311 
ISAM data set (really an index to the 2321 
DAM data set) was unCLOSEd, the user 
would still have the problem of its recon- 
struction. However, this isn't nearly as 
great a task as that of reconstructing an 
entire 2321 ISAM data set. 


2. Itis very strongly recommended that the user 


VERIFY all records written on the 2321. A 
flexible media, like magnetic tape or strips, 
is more susceptible to write errors than is a 
hard (2311, 2314) surface. A write VERIFY 
could eliminate a difficult reconstruction 
later. 


Be prepared for alternate track assignment. 
Plan how you are going to reconstruct the 
data from the bad track. To insure a smooth 
installation, practice this procedure with the 
customer personnel. 
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4. Two Type III program abstracts on ISAM 


were published in Installation Newsletter 
67-05, page 24: 


a. OS/360 Generalized ISAM Utility Program 


b. ISA 360 - Index Sequential Analyzer on 
S/360 


Publications 


a. Component Descriptions 


(2841 et al) A26-5988-3 
b. Student Text-Introduction 

to DASD & Organization 

Methods | C20-1649-1 
c. Data Cell Handling Guide A26-3622-1 
d. 2321 F.E. Theory of 

Operations 227-5895-1 
e. Capacity & Transmission 

Time Reference Cards X20-1704 


f. DASD Workshop - Instructors 


Guide 223-1522 
g. File Organization Techniques 
for DASD Z20-0328-2 
. Installation Newsletter Items 
Issue Title Page 
66-021 Calculating DASD Space 
Requirements for Indexed 
Sequential 19 
66-022 DOS/360 2321/2311 
Considerations 
1, Logical IOCS (Indexed 
Sequential) 3 
2. Initialize 2321 Utility 
(latest level) 4 
3. Physical IOCS 4-5 
66-023 2321 Error Recovery 
Procedures 25 
2321 Prevention of Data 
Loss & Data Cell Damage 
(internal reset restrictions) 26 
67-004 DOS/360 ISFMS Pointers 23-24 
67-005 OS/360 SYSGEN Specifica- 


tions for 2321 2 
OS/360 Use of 2870 Selector 
Subchannels w/2321 not 
Supported 2 


. TIE Papers (see abstracts in KWIC Index 


to TIE) 
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a. ‘One Approach to Variable 
Length Records on S/360 
DASD." 

b. "A Thruput Analysis of the 
IBM 2321." 

c. "A File Organization Tech- 
nique for the IBM 2321."' 

d. ''A Master File Organization 
for all Insurance Applications 
Utilizing the IBM 2321."' 

e. ''When to Reorganize a 
Sequential Data File. "' 

f. ''The Effect of Activity 
Distribution on the 
Throughput of Sequential 
Batch Processing Systems. '! 

g. "Organization of a 2321 with 
Extension on a 2311 Disk 
Drive. "' 


Z77-6260 
Z77-4952. 


Z77-4754 


Z77-6002 


Z77-5031 


Z77-6005 


Z77-6075 


8. Miscellaneous 


Branch Office Managers Letter 3/12/65 con- 
tains some performance parameters and 
some system design considerations for the 
2321. 


DOS/360 QTAM ERROR MESSAGES 


Most QTAM ERRMSG macros define error mes- 
sages which are to be sent back to the terminal 
which was the source of the error. To aidin 
getting this message back promptly, QTAM 
makes an error message a priority message. 
Message priority for QTAM messages in not 
effective once a message has been committed 

to a message queue on disk. In order to assure 
prompt transmission of error messages back to 
the source, the user must make sure that he 
has an open line to the source while the error 
message priority is still in effect. He can do 
this by specifying send over receive priority in 
his DTF or DCB for the line group. If he spe- 
cifies receive over send or equal priority, he 
in effect allows polling of other terminals on 
the line to continue after receipt of an error 
message. This will usually result in a delay 

in delivering the error message. This message 
will have to wait for receipt of any additional 
incoming messages on the line. It will also have 
to wait for dispatch of any messages ahead of it 
on the disk queue once its priority status has 
been lost. Please consider these facts before 
specifying anything other than send over receive 
priority for a QTAM line group. 
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DOS/360 FORTRAN TAPE LABEL CHECKING 


Because of FORTRAN language considerations, 
its IOCS opens all tape files as work files. It 

is always assumed that files may be written 
during a run. The OPEN routines (called 
implicitly by FORTRAN code) thus perform 

the following operations for all files even though 
they appear as input only or output only to the 
user: 


1. Read the first record. 


2. If it is a tape mark then position past it and 
process the file. 


3. If it is neither a tape mark nor a label then 
write a tape mark and continue processing. 
(Thus, if unlabeled, the system will write 
a tape mark, even if operating with an input- 
only file. No diagnostic is given, except if 
there is no ring in the tape when trying to 
write the tape mark. ) 


4. If the first record is a label of the form 
HDRIb...b then continue processing. 


5. If the record is an expired label then rewrite 
it as HDRIb...b. and continue. If it is 
unexpired, then stop and allow the operator 
to bypass. (Note that if expired, or unexpired 
and bypassed, the system will attempt to 
write a blank label. If this is an input tape, 
the rewrite of the label could ruin the first 
data record, ) 


The system bypasses system TLAB cards. Our 
suggestion has been to use unlabeled tapes, with 
a tape mark in front of the first data record. A 
generalized flow chart of the operation is shown 
in Exhibit 1. 


DOS/BOS/360 REDUCING CIL DISK SPACE 
REQUIREMENTS 


Significant space may be saved in the CIL 
(Core Image Libraries) of both DOS/360 and 
BOS/360 when cataloging Assembler Language 
programs by the use of the following technique. 
Users should be aware that the technique has 
not been submitted to any formal IBM test. 


The Linkage Editor builds core load disk 
records as it processes assembler output 
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DOS/360 FORTRAN TAPE LABEL CHECKING 


LABEL ? 


¥ YES 


ve 


PANY D 
@ ’ 


Exhibit 1 
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(ESD, TXT, RLD, REP, END). The amount 
of actual disk space required depends upon 
the highest value reached by the assembler 
location counter during the assembly. While 
an object module contains no TXT cards for 
areas defined by DS statements, Core Image 
Library space is required for DS defined 
areas. This means that I/O areas, which 
will contain valid data only after program 
execution begins, still occupy valuable space 
in the Core Image Library and must be read 
in from disk by the Systems Loader. 


To eliminate this usage of Core Image Library 
space, the user may define his I/O areas by 
using EQU statements. EQU's do not incre- 
ment the location counter. The EQU state- 
ments must come after a LTORG statement 
and just prior to the END card. 


The following example illustrates the required 
coding, assuming user constants follow user 
coding, 


LASTDC DC C'LAST CONSTANT IN 
USER AREA! 
LTORG 
IOAREA]1 EQU * LENGTH OF 740 
BYTES 
IOAREA2 EQU IOAREA1+4740 
TAPEOUT1 EQU IOAREA2+740 LENGTH 500 
TAPEOUT2 EQU TAPEOUT1+500 
DISKIN1 EQU TAPEOUT2+4500 LENGTH 
3620 
DISKIN2 EQU DISKIN1+3620 
LASTCORE EQU DISKIN2+3620 LAST 
LOCATION USED 
END START 


The label, IOAREAI1, will have the highest 
value of the location counter and this value 
will be the limit of space needed in Core 
Image Library. 


This technique, as described, requires no 
further consideration for BOS/360 users, The 
AUTOLINK function of DOS/360, however, 

will present problems at linkage editor time. 
Relocatable object modules automatically in- 
cluded by AUTOLINK will be assigned core in 
the areas reserved by the EQU statements. To 
eliminate the conflict over core, all modules 
normally autolinked must be explicitly included 
through the use of INCLUDE cards preceding 
the first ESD card of the object module. 
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Determining which logic modules, etc. must 

be included through INCLUDE cards may be 
done either by examining the ESID listing of 
the assembler output for EXTRN names or by 
actually running an // OPTION LINK job step 
and seeing from the MAP what modules were 
autolinked. The INCLUDE cards may be auto- — 
matically punched with the object module by 
using the PUNCH or REPRO macro facility of 
the assembler language. 


This technique will greatly reduce the disk space 
required for DOS/BOS/360 Core Image Library 
phases. Implementation is relatively simple. 


BOS/360 to DOS/360 CONVERSION CONSIDERA- 
TIONS | 


There are several differences between BOS/360 
and DOS/360, which must be considered in any 
conversion activity. Each one by itself is a 
simple matter, but some problems should be 


anticipated in an installation with many programs. 


A recent user conversion effort produced the 
following list of inconsistencies that must be 
resolved. 


1. Communication region format is different. 


a. No Julian date. 
b. Date is edited in DOS MM/DD/YY which 
is MM DD YY Julian in BOS 
c. Storage protection restricts MVCOM usage. 


2. BOS allows fill usage of registers 12 and 13 
if specified at System Generation. Register 
13 is required for the CALL and RETURN 
macros in DOS. 


3. Maskable program check interrupts which 
were enabled by BOS are all masked off in 
DOS. 


4. There is no MSG macro in DOS. 


5. The DTFBG and DTFEN cards are not totally 
compatible in DOS. 


6. In assemblies under DOS, character self- 
defining constants require a C 'X' format, 
while BOS accepts a 'X' format. 


7. Y type Adcons will not work if loaded beyond > 
65K. 
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8. There is no XFR macro in DOS. 


9. Although DTFSR will assemble under DOS, 
it should be recoded for assembly speed and 
potential core savings. 


10. The console DTF must be eliminated from 
OPEN and CLOSE statements. 


ll. The CHKPT macro can not be used in the 
foreground partition. 


12. Change in system logical name from SYSOPT 


to SYSPCH. 


13. Changes of the AFTERID and RZERO speci- 
fications cause logic changes if the BOS 
system being converted was System Release 
7 or earlier. 


14, The CCB macro and expanded format are 
different. 


15. Ifa CONTROL=YES is not specified for the 
reader, a SSELECT=2 must be included. 


16. Index sequential files must test File name C 
for errors under DOS, while in BOS the 
programmer specified labels of various 
error routines and BOS branched to them 
when the error occurred. 


17. Several macro expansions are different and 
this causes problems in multiple usage of 
one macro. Furthermore, due to early 
problems in BOS, programmers coded the 
macro expansion themselves and thus they 
are difficult to find in the conversion. 


18. Other format inconsistencies: 


No IS operand on the ISAM macros. 
Special byte may be required for CCB. 
EXIT macro has different format. 
STXIT macro must be recoded. 


Pe 


19. DLAB and XTENT cards are expanded. 
20. BOS-STR is quite different from the interim 
release of STRAM. 
BOS/BPS/360 STR SUPPORT 


A S/360 replacing an off-line tape terminal 
(i.e. 7702 or 7711) and using the BOS/BPS/360 


STR support may result in a decrease in through- 


put on the Tele-processing line. The Read and 
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Write macros each cause two CCW's to be built. 
The first of these, in each case, is a Test 

Sync command. The elimination of this CCW 
from the Read and Write macros will correct 


the throughput problem. 


S/360 EDUCATION - PL/I - ADDITIONAL 


REFERENCE MATERIAL 


1, "Programming Language/One'' by Frank 
Bates and Mary L. Douglas (C 1967 
Prentice-Hall, Inc.) is available ina 
paperbound edition for $5.95 at book stores. 


The book was reviewed by Mr. P. F. May 
of the DPD Education Development Depart- 
ment and his opinion follows: The text is 
easy to read and understand, and contains 
many illustrative examples and exercises. 
It is good for a first look at PL/I. Instruc- 
tors planning to include its use in courses 
should consider the following points: 


a. It appears to be primarily oriented toward 
the non-commercial OS/360 programmer. 


b. Some of the solutions to exercises do not 
explicitly illustrate the problem as 
stated. 


c. Record-oriented input/output is givena 
cursory explanation, with a few examples 
and no exercises. 


d. Much use is made of floating-point arith- 
metic, including the illustration of com- 
mercial problems. 


e. Some examples, including some previously 
compiled and tested by the authors, do not 
conform to the current implementation of 
the PL/I language. 


2. Three Student Texts, currently available 
from the Distribution Center at Mechanics- 
burg, are of greater value as supplementary 
student material in PL/I classes: 


a. A Guide to PL/I for FORTRAN 
Users (C20-1637) 


b. A Guide to PL/I for Commercial 
Users (C20-1651) 


c. A PL/I Primer (C28-6808) 
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NEW PUBLICATIONS ANNOUNCED BY PRL'S 


The weekly PRL's (Publications Release Let- 
ters) are used to insure that all Salesmen and 
Systems Engineers are aware of new or revised 


Marketing Publications. Normally, each issue 


of the Newsletter will contain information from 


two PRL's, one following the other. 


The in- 


formation will be placed in the Newsletter in 
its original form with no rearrangement of 

form numbers or titles. It is not intended to 
replace existing information and distribution 


sources. 


You should be certain that you are 


aware of these sources. 


N20-1410, 24 


220-0834-0 


221-0435 
221-0438 
221-0439 
221-0410 
250-00-41-0 


250-0045-0 | 


250-00-10-0 
A22-0877=3 


A24-1088~1 
A24t-3312=4 


A24-3476-0 
A24-3494-0 
A26-5922-4 


A27~ 3007-0 
C24-50 381 


C27-6909-3 


C27-691 2-3 


C 28-65 96-2 
C25-6656-0 
C33-4000-0 
E20-0181-1 
E20-0282-0 
1120-0294-1 


${20-0 340-0 
K 20-0211-0 


N20-1021-0 
N20-1023-0 


- PRL #20 May 19, 1967 - 


1410 SRL Newsletter Re: A22-6826-3 
KWIC Index to Technical Infonnation Exchange = Accumulative Supplement May 1967 Re: 
720-0 305-13 
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Scrap N20-1410, 23 
Scrap Z20-0828-0 


MARKETING PUBLICATIONS 


System/ 360 Scientific Subroutine Package Proposal Insert 

System/ 360 Gencral Purpose Simulation System Proposal Insert 

Systein/ 360 Project Control System Proposal Insert 

1130 Project Control System Proposal Insert 

Systeins Science Education Program 

Design and Analysis of Communication-Based Systems 

Application Material for Envolhuent in Systems Science Education Program 

IBM System/ 360 Component Descriptions and Operating Procedures IBM 1052 Printer-Keyboard 
Model! 7 with IBM 2150 Console 

Original Equipment Manyfacturers Information IBM 523 Gang Summary Punch - IBM 526 
2821 Control Unit | 


IBM L40O1H System Siunmary 

IBM 1401 Model H Configurator 

IBM 1800 Physical Planning 

IBM 2780 Data Transmission Terminal--Installation Physical Planning 


IBM System/ 360 DOS/TOS FORTRAN IV Programmer's Guide 


IBM System/ 360 Operating System Graphic Programming Services for IBM 2250 Display Unit 


[3M S/ 360 Operating System Graphic Programming Services for IBM 2260 Display Station (Local 


Attachment) 

{BM S/ 360 FORTRAN IV Library Subprograms 

IBM S/ 360 Operating System: Checkpoint/ Restart 

IBM S/ 360 Operating System: ALGOL Programmer's Guide 
Executive Summary - Advanced Data Processing for Retailers 
Data Processing Instruction at Waterford Township School 
System/ 360 Flowchart (360A-SE-22X) Operator's Manual 


Structural Engineering System Solver (STRESS) for the IBM 1130, Model 2B (1130-EC-03X) 
User's Manual 
Wisconsin Telephone Company Rate & Route Computer System (RRCS) 

~TNE Re: [{20-0237-1 STRESS Application Description 
TNL Re: 120-U329-0 for System/ 3600 Product Structure Retrieval Program - Application 
Program = Application Description 
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REVISED ABSTRACT 
REVISED ABSTRACT 
REVISED ABSTRACT 
REVISED ABSTRACT 


NEW 


Scrap A22-6877=2 @ 


Use A24-1088-0 & N24-0224 

Use A24-3312-3, N24-0396 & 
N24-0399 

NEW 

NEW 

Scrap A26-5922=2, ~3, N26-0157, 
N26-0158, N26-0172 & N26-0177 
NEW 


Use C24-5038-0, N21-5034, N21~- 
5048 & N21-5053 

Scrap C27-6909—=2, N27-1264, 
C27-6921-0, N27-1251, N27=1262 
N27-1263 

Scrap C27-6912-2, C27-6925-0 
N27-1246 & N27-1252 

Scrap C28-6596-1 

NEW 

NEW 

Scrap E20-0181-0 

NEW 

Scrap H20-0294-0 


NEW 
NEW 


NEW 
NEW 
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N24-5259-0 
N24~5 301 
N2&8-0210-0 
N28-0211 
N28-0212 


N28~-2218 
N28=2221 
N28-2223 


N28~2224 


N28-2225 
N28-2226 
N28—2228 


N28-2229 
N28-2230 
N28=2231 
N28-2235 
N28-22 38 
N 30-5006 
N 30-5005 
N30-5007 
R20-404 3=1 
R20-8015<3 
R20-9203-0 
V25-6267-0 


Y¥ 20-0027-0 
Y¥26-8002-0 
Z20-1735-1 
Z32~-0400-1 


277-7122 
277-7123 
277-7124 


N20-00 30-11 
N20-00 31-7 


320.09 35-1 
320~—1906—4 
322-00 33 

560-0108-2 


C20-1671-0 


C24-3361-5 
C24-3418-2 
C24-5026~2 


C28--66 30-1 
C30~-2005-0 


CS0-0001 

E20-0252-0 
E20..0283—0 
H20-0229~1 
H20-0249~1 


J20-0011-0 


- PRL #20 (continued) - 
TNE to DOS System Control & Systein Service Program Re: C24-5036-1 with N24-5218 
TNL to IBM S/ 300 DOS PL/[ DASD Macros Re: C24-5059.-0 
IBM S$/ 360 FORTRAN IV Language Re: C28-6515-4 with N28-2147 
TNL IBM S/ 360 Operating System: FORTRAN [V (E) Prozraminer's Guide Re; C28-6603-1 
TNL IBM System/ 360 Operating System: FORTRAN IV (G) Programmer's Guide Re: C28-6639-0 
with N28-2212 
I8M S/ 360 Operating System: Operator's Guide Re: C28-6540-4 with N28-2209 
IBM S/360 Operating System: System Programmer's Guide Re: C28-6550-2 


(BM S/ 360 Operating System: Supervisor & Data Management Macro Instruction Re: C28-6647 with 


N28-2217 


I8M S/ 360 Operating System: Linkage Editor Re: C28-6538~ 3, «2, -1 with N28-2129, N28~2130, 


N28-}2201 

IBM S/ 360 Operating System: Utilities Re: C28-65 86-4 | 

IBM S/ 360 Operating System: Job Control Language Re: C28-65 39-4 with N28-2214 

ISM S/360 Operating System: FORTRAN IV (H) Programmer's Guide Re: C28-6602 with 
N28-2211 

IBM S/ 360 Operating System: System Control Blocks Re: C28-6628 with N28-2193 & N28-2196 
IBM S/ 360 Operating System: System Gencration Re: C28-6554-2 

03M S/ 360 Operating System: Storage Estimates Re: C28~6551-3 

I8M S/ 360 Operating System: Messages, Completion Codes & Storage Dumps Re: C28-6631-1 
[3M S/ 360 Operating System: Sort/ Merge Re: C28-6543-3 with N28-2216 

TNL to OS QTAM Message Control Program Re: C30-2002-1 

INL Re: C30-2003-1 to OS QTAM Message Processing Program Services 

TNL Re: C30-2004-0 to IBM S/ 360 Operating System: Basic Telecommunications Access Method 
IBM S/ 360 O,S, Coding Education Guide 

IBM S/ 360 Mod 20 EPIC = Problems and Case Study Part I 

IBM 2260 Display Station Course Description 

I3M S/360 STR Line Control Magnetic Sets 


DP Application Program Standards Manual 

IBM 1800 Time-Sharing Executive System PLM Re: Y26-3702-0 
2400 Magnetic Tape Performance Considerations and Characteristics 
IBM Computer Systems Training Student Handouts 


Customer Information System File Concepts for a Public Utility Company 
Conversion Aids for System/ 360 
Modified D,E,B.E, for System 360's Without a Console Typewriter 


- PRL #21 May 26, 1967 - 
Catalog of Programs for IBM System/ 360 - May 1967 Supplement to C20-1619-2 
Catalog of Program for IBM 1130 Computer System and IBM 1800 Data Acquistion and Control 
System - May 1967 Supplement to C20-16 30-1 
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NEW Scrap N24-5208 
NEW 
NEW 
NEW 
NEW 


NEW 

Scrap R20-4043-0 

Use R20-8015-2 & N23~-0007 
NEW 

NEW 


Revised Abstract 

NEW . 

Scrap Z20-1735-0 

Scrap Z32-0406-0, Z32-0400 & 
232-0409 

NEW 

NEW 

NEW 


Scrap N20-0030-10 
Scrap N20-0031-6 


MARKETING PUBLICATIONS 


Application Guide Public Accounting 

In Brief, April 1967 

IBM Journal of Research and Development, Volume 11, Number 2 
IBM Reed Relays 


Applications and Techniques of Operations Research ... A Selected Bibliography 
IBM S/ 360 BOS Assembler with I/O Macros Specifications 

IBM S/ 360 BPS/ RPG (Tape) Specifications 

18 M S/ 360 BPS Card & Tape Utility Programs Specifications SRI Balletin 


IBM S/ 360 Operating System: Starter Operating System Guide 


IBM S/ 360 Operating System: Queued Telecommunications Access Method: Message Control 
Program Specifications for a Future Version 

IBM 2701 Data Adapter Unit and ASCII Autodin Adapter RPO F16124 

Public Utilities - Construction Management System/ 360 DP Application Manual 

Scheduling Empty Freight Cars on the Louisville and Nashville Railroad 

1404 Printer Public Utilities DP Application Bulletin 

1130 Wock Measurement Aids (1130-MF-03X) Application Description 

Introduction to DATATEXT 
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Use 320-0935-0 
Scrap 320-1906=3 
NEW 

Scrap $60-0108—<1 


NEW 

Scrap C24-3361-4 * 

Use C24-3418-1 + 

Use C24-5026-1 & N21-5030-0 


Scrap C28-6630-0, N28-2192, 
N28-2197, N28-2199 & N28~2215 
NEW 


NEW 

NEW 

NEW 

Scrap H20-0229-0 

Use H20-0249-0 & N20-0076 
NEW 
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K20-0212-0 
K20-0217-0 
N22-0264 


N23-0604-0 
N26-0183-0 
N30-5004-0 


N30-5013-0 
R20-4044~1 
R20-4085-0 


R20-4086-0 
R20~9204-0 
R29-00 82-3 
R29-0090~ 1 
R29-0 106-0 


R29-0145-2 


- PRL #21 (continued) - 
Online Mortgage and Savings Accounting at Community Federal Savings and Loan Association 


A Gauge Recall System at the Bendix Fliid Power Division with the IBM 357 Data Collection System 


Changes to IBM 2400 Magnetic Tape Units Original Equipment Manufacturer's Information Re: 
A22-6862-3 

ENL to IBM S/ 360 COBOL Prog. P.L. Text Re: R29-0215-0 

IBM 1800 DP I/O TNL to A26-5969-3 

IBM S/ 360 Operating System: Queued Telecommunications Access Method: Message Processing 
Program Services Re: C30-2003-1 with N30-5005 

IBM S/ 360 Operating System: Basic Telecommunications Access Method Re: C30-2004-0 

IBM S/ 360 O.S, Coding Student Materials 

JBM 2260 Display Station Education Guide 


IBM Data Communications Concepts Education Guide 
IBM Data Communications Concepts Course Description 
FORTRAN IV for IBM System/ 360 P.I, Chapter 2 

IBM S/ 360 RPG Coding Advisor Guide Supplement 
FORTRAN for the ISM 1130 P,I Problem Book 


IBM PCDPP P, t 85 Collator Text 


*With C24-3361-4 scrap N24-5113, N24-5137, N24-515S3, N24-5117, N24-5166, N24-5179 & N24-5270, 
#* With C24-3418-1 use N24-5056, N24-5160, N24-5176 & N24-5200, 


R29-0199—2 
R29~1260~—2 
X2-1701-1 
X20- 1748-1 


X26-5508-0 
Y20-006 9-0 
Y24-5061 

Y27~-7113~1 
Y27~7141-0 
Y28-2174-0 


Y28-2208-0 
Y28-2222..0 
Y28-22320 
Y28~2233-0 
Y28-2234-0 
Y28-~-6383 
Y28-6 384 
Y28-66 13-1 
Y3W-201-1 
Y 30--2003-0 
Y30-5002--0 
Y¥ 30-5003-0 
Z20-08 35-0 
Z77 =F 129-0 
277 ~7130 
277-7131 
277 #7132 
277-7133 


271-7134 
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IBM PCDPP Basic Machine Operation and Wiring Notebook Programmed Instruction Course 
IBM Oper, the 1260 Elect, Inscriber Self-Study Course 

S/ 360 GPSS Coding Form 

DOS/ TOS Job Control Language & Operator Communication Reference Card 


IBM S/ 360 Process I/O Devices Template 

S/ 360 Attached Support Processor System (ASP) (360A-CX-15X) System Manual 

TNL to IBM S/ 360 Basic Operating System, System Control PLM Re: Y24-5002-0 

IBM S/ 360 Operating System Graphics Access Method PLM 

IBM S/ 360 Operating System: Graphic Problem Oriented Routines Re: Y27-7110-0 PLM 
IBM S/ 360 Operating System: Fixed Task Supervisor PLM Re: Y28-6612-0, -1, ~2 with 
Y 28-2141 & Y28-2161 


IBM S/ 360 Operating System: Linkage Editor PLM Re: Y28~-6610-1 with Y28-2175 

IBM S/ 360 Operating System: Introduction to Control Program Logic Manual Re: Y28-6605-2, 
with Y28=2180 & Y28-2203 

IBM S/ 360 Operating System: Input/Output Supervisor, PLM Re: Y28-6616-0 with Y28-2155, 
Y28-2169 & Y28~2181 

IBM S/ 360 Operating System: Utilities, Program Logic Manual Re: Y28-6614-0, -1 with 
228-2124, Y28~2154, Y28-2163 & Y28-2179 

IBM S/ 360 Operating System: FORTRAN IV (H) PLM Re: Y28~-6642-0 

IBM S/ 360 Operating System FORTRAN IV (E) PLM Re: Y28-6601-2 

IBM S/ 360 Operating System: FORTRAN (G) PLM Re: Y28-6638-0 


IBM S/ 360 Operating System: Job Management, PLM 


IBM S/ 360 Operating System: Basic Telecommunications Access Method, PIM 

IBM S/ 360 Operating System: Queued Telecommunications Access Method, PLM Re: Y30-2002-0 
IBM S/ 360 DOS QOTAM PLM 

TNL to DOS BTAM PLM Re: Y¥30-S001-1 


Current Systems FORTRAN IV - System/ 360 FORTRAN Difference Mamal Re: Z20-1715-0 
System/ 360 Direct Access Organization and Retrieval Techniques - Course Outline 

System Language 1 (S1/1) = A Procedural Programming Language in Operating System/ 360 

(OS/ 360) Assembly Macros 

OS DD Reference Sheet 

COBOL F Timing and Coding Tips 

A Method of Interpolating an Empirical Graph on a System/ 360 Model 20 Using RPG as a Source 
Language 

Control of Pulp Bleach Plant 
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Use R29.0145-f 
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Use X20-1701-0 
Scrap X20-1748-0 


NEW 
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Scrap Y28-6613-0, Y28-219! 6 


Y28~21 84 

Scrap Y30=2001-0 
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SECOM - NEW FEATURES 


In the process of developing and improving 
SECOM to meet the suggestions and needs of 
Systems Engineers, new features are being 


added. 


Four new features are announced in 


this article. 


. Type Il Programs 


All available information on Type I] Programs 
has been added to the SECOM file. This in- 
cludes APAR's and other temporary fixes as 
well as pointers, restrictions, documentation 
changes, etc. Each Industry Development 
group is responsible for maintaining the file 
of information in this system for their 
programs. 


1800 and 1130 


Arrangements have been made to have infor- 
mation needed by the SE's in using the 1800 
and 1130 systems co-ordinated in San Jose. 
The same type of information will exist as 
does for S/360 Type I Programs. Input is 
coordinated by the SECOM Coordinator, 
Department 954, San Jose Plant. 


. Improved ITPS Retrieval 


Improved turn-around time for ITPS retrieval 
is now possible with the implementation of 
direct retrieval by the ITPS facility in 
Armonk, New York. ITPS operators have 

the required instructions, Turn-around of 

10 to 45 minutes has been experienced in 
most cases, 


Current Level Reporting 


Several types of programs, documentation, 
and Engineering Change level functions are 
in this system; not new but improved. One 
function that may be used now covers the 
Engineering Change levels required for 
various functions of each system. It is 
under the program information (PIN) section 
of RETAIN and usually cataloged with the 
program number of the control program and 
the suffix "ec.'' For example, the request 
pin-360n-cl-453-ec would provide the sig- 
nificant EC levels for DOS. Note that lower 
case is used for requests. 


Another function that may be used now covers 
the level of programs, SRL's and PLM's for 
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bos pgm 
pin 360 tos srl 
dos plm 


For example: the request 
pin-360-dos-srl would give 
you the current level of 
DOS-SRL's and any TNL's 
needed to update them. 


Any suggestion or comments on SECOM will be 
appreciated. They should be sent to the DP 
SECOM/RETAIN Coordinator, Systems Engineer- 
ing Technical Programs, DPD HQ, 112 East 

Post Road, White Plains, New York 10601. 


PID ORDER STATUS INQUIRY SERVICE 


In certain situations, it is imperative to know 
the status of an order for a program submitted 
to PID (DP Program Information Department). 
PID can provide this information rapidly in re- 
sponse to a phone call (914-592-5790) or an 
ITPS wire. 


To save time, be sure you have all the neces- 
sary information before you call or wire, 
Certain details are vital for tracing an order. 
Some of these are: 


1. Customer number, name and shipping 
address. 

Branch Office number. 

Program order number. 

Material ordered (basic or optional). 
Was maintenance requested? 

Date order was submitted. 

How order was submitted; for example 


NOM BP W LH 


. Was a magnetic volume (tape/disk) 
involved? 
. Mode of Shipment 
United Parcel Service, Air Freight, etc. 
U.S. Mail - First Class, Parcel Post, 
Insured, etc. 
. Number of tapes or disk packs -- how 
many physical packages? 
. Was the program order form enclosed 
with the volumes? 


. Was a magnetic tape ordered? If so, 
was form #170-1138 used? Was it sent 
with the program order form? Were 


they sent to PID or to Minneapolis? 

. Were other program orders involved? 
What were the programs? 

. Was any special handling requested? 


Inquiries will reach the appropriate PID co- 
ordinator if you specify system type and trans- 


DOS, TOS and BOS. The request options are: mittal media (example: S/360 card program 


For IBM Internal Use Only 


21 


June 16, 1967 Issue No. 67-12 


coordinator). In case any follow-up is neces- Direct inquiries concerning the contents of this 

sary, make a note of his name. Newsletter to: 

Use the Inquiry Service with discretion since Editor 

excessive use will adversely impact the PID IBM Installation Newsletter 

processing turnaround time for normal orders. Systems Engineering Technical Programs 
DPD HQ 


112 East Post Road | 
White Plains, New York 10601 


Telephone 914 WH9-1900 Extension 4781 
INFORMATION ABOUT THE NEWSLETTER 


EVERY SALESMAN AND SYSTEMS ENGINEER 
SHOULD RECEIVE ONE COPY OF THE NEWS- 
LETTER, Each FE Branch Manager should 
receive five copies for distribution to Customer 
Engineers. 


The IBM Installation Newsletter is distributed 
only to IBM locations and is not available to 
customers. The Newsletter is separated into 
two parts. The first part contains information 
which is intended only for IBM personnel and 
the pages are labeled For IBM Internal Use 
Only. THESE PAGES, OR REPRODUCTIONS 
OF THEM, ARE NOT TO BE GIVEN TO 
CUSTOMERS, However, using your own good 
judgement, you may discuss pertinent informa- 
tion from these pages with a customer. The } 
second part contains information which may | 
be REPRODUCED by the Branch Office at their 
discretion and given to customers. These pages 
are not labeled with any restrictive classifica- 
tion. Note that when any abstracts for Type III 
programs are given to the customer, he must 
be informed that the disclaimer for Type III 
programs, as contained in the Newsletter, ap- 
plies. YOUR COOPERATION IN PROPERLY 
HANDLING THE CONTENT OF THE IBM IN- 
STALLATION NEWSLETTER IS NECESSARY 
FOR ITS CONTINUED PUBLICATION. 


Changes to the quantity of the Newsletter ship- 
ped are to be made by the Administration 
Manager. (NOTE THAT EXTRA COPIES OF 
THE NEWSLETTER ARE NOT TO BE ORDERED 
FOR DISTRIBUTION OF INFORMATION TO 
CUSTOMERS.) He should update and send the 
DP Administration Managers' Communication 
Control card (form number N44-780) to DP 
Communication Control, DPD HQ. (The card 
N44-780 replaces N37251.) 
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OS/360 RELEASE 11 DLIB CHANGE 


Effective with Release 11, the normal distribu- 
tion of full OS/360 from PID will consist of 
DLIBOI, DLIBO2 and DLIBO3. MODLIB has 
been removed from DLIBO1 and is now the sole 
DATASET on DLIBO3. (Note that this change 
does not apply to Customized Distributions. ) 
The corresponding volume serial changes are 
required in both the JCL used for SYSGEN, 

and any PTF's carried over from Release 10 

if they are to be applied to MODLIB. 


OS/360 JCL CHANGE FOR 1600 BPI TAPE 
UNITS 


DD cards with UNIT=2400 reference only the 
2400 models 1, 2 or 3. Users of 2400 models 
4, 5 and 6 must specify UNIT=2400-3 for 800 
BPI or 2400-4 for 1600 BPI. For a device and 
model independence SYSGEN, a user can spe- 
cify an assigned name (example, UNIT=TAPE). 


An installation with 2400 Model 4, 5 or 6 only, 
may SYSGEN a user assigned name of USER- 
NAME=2400. 


OS/360 - JCL, ACCOUNTING DATASET ABEND 
FIX 


The Operating System (Release 11) will ABEND 
(F23) under the following circumstances. 


1, The accounting dataset (SYS1. ACCT) is not 
correctly specified at IPL time. 


2. The accounting dataset fills up during execu- 
tion. 


This can be remedied by using SUPERZAP 


(Type III described in Newsletter issue 67-11) 
with the following control cards. 
1. The SYSLIB card. DSNAME=SYS1.SVCLIB 


2. SUPERZAP Control Cards 


DUM PT IGCO003E ALL 
NAME IGC0003E 
VERIFY 16 4740 
REP 16 4700 
DUMPT IGCO003E ALL 
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OS/360 - RELEASE 11 ACCOUNTING ROUTINE 


This accounting routine provides the user with 
the ability to write accounting data ona resi- 
dent direct access device. The writer as- 
sembly module (IEFWAD), is more or less an 
access method which writes and controls the 
data set SYSI1.ACCT. It is a device dependent 
module which resides in SYS1. LINKLIB and 
uses a ten byte resident nucleus work area. 

A sample accounting routine IEFACTRT has 
been stored in SYS!1.SAMPLIB where it is 
named SAMACTRT. 


1, Initialization 


The facilities to use this accounting routine 
are included in any system for which AC- 
CTRTN SUPPLIED is specified at SYSGEN. 
However, the sample accounting routine, 
JEFACTRT, which contains the linkage to 
IEFWAD and thereby triggers this account- 
ing facility, exists only on SYSI1.SAMPLIB 
where it is named SAMACTRT and is not 
included in the SYSGENed system. There- 
fore, as is the case now, an accounting 
routine which satisfies user requirements 
may be built into the system. Whether or 
not this routine uses the facility provided 
by IEF WAD is an option of the user. 


The data set to be written must: 


a. Be pre-allocated on a permanently resi- 
dent DA device. 

b. Have the name SYS1. ACCT. 

c. Have no secondary extent. 

d. Be allocated contiguous space. 


2. Sample Account Routine (IEFACTRT) 
Input 


a. Register 0 contains a code, indicating at 
what time the routine was called; 


code: 8 Step Initiation 
12 Step Termination 
16 Job Termination 


b. Register 1 contains the address of a list 
of 4-byte pointers to: 


job name 
*step name 
programmers name 
job running time 


fie nth Bote wage SE i 


June 16, 1967 Issue No. 67-12 


4) Permanent I/O error. 
5) End of file not found. 
6) Unit not found. 


job accounting data 
*step running time 


& *step accounting data 
flags (byte 1), step number (byte 2) 


| 5. Account Data Set Writer (IEFWAD) 
*The asterisked pointers will be 0 at Job 


Termination. If the job has been can- a. Input 


celled, bit 7 of flags is set tol. 


Registers 13, 14 and 15 are used as 
specified by OS/360 linkage conventions. 


3. Entrances to Accounting Routine 


Job Initiation = Step initiation for first 
step 


b. Step Initiation 


1) Register 1 contains the address of the 
record to be written. 
Format: DS 3H space to be used 

by this module 

DC H' §' contains data length 

in bytes. Cannot 
exceed 1 track. 

DC user data. Data 

which is written 


c. Step Termination 
d. Job Termination to SYS1. ACCT. 
4, Output 2) Registers 13, 14 and 15 are used as 
specified by OS/360 linkage conventions. 
a. A line on SYSOUT containing date and time 
of day in hours with four decimals. The Function 
description by column reference, Job 
Initiation, Step Termination, and Job If it is the first entry after IPL, or the 
Termination, respectively is shown in first entry after a SET ACCT command, or 
Exhibit 1. the reply to an IEF506D message, the data 
set SYSL. ACCT is OPENED before writing 
© b. A record to be written in the Account into it. Thereafter, track balance, TTR 


Data Set as shown in Exhibit 2. 


At step initiation there will be output only 
if the step number is l, i.e. at Job 
Initiation. 


If at Step Initiation, the first byte of job 
account data is X'EFF', bit 7 of flags is 
set to 1 and the job will be cancelled. 
Any user who desires to use his account- 
ing routine to determine if a job is to be 
run may do so and a cancel will be ef- 
fected if the accounting routine sets bit 7 
of flags to l. 


If the account data cannot be written in 

the account data set, the SYSOUT mes- 
sage giving date and time is written to 

the console. To the right of this message, 
a one digit code indicates the reason for 
the failure as follows: 


Code Interpretation 
1) Record is too long to fit on a single track. 


2) No space left in SYS1. ACCT. 
3) SYS1. ACCT not found. 


for the next record write and TTR for the 
last track of SYS1. ACCT extent are main- 
tained in core, eliminating any need for 
subsequent OPENS. The last record 
written to SYSI1. ACCT is always an end 

of file with the key equal to the track 
balance. In the circumstance where a 
warm start is required, this end of file 
may be used to locate the last record 
written to SYS1. ACCT. Provided only 
that there is space remaining in the ex- 
tent of SYSL. ACCT, each record of ac- 
count data is appended to the data set. To 
direct account data to be written from the 
start of SYSI. ACCT, N (new) may be spe- 
cified in the SET ACCT command or in 
the reply to an IEF506D message. In ef- 
fect, specifying N deletes all prior data of 
SYS1. ACCT and renders the allocated 
space reusable. 


Console Messages are generated as follows: 


IEF506D SYS1. ACCT, 
XXX, N 


SPACE NOT AVAIL- 
ABLE 


NOT PREALLOCATED 


PERMANENT I/O 
ERROR 
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ERROR IN UNIT 
NAME 

SYNTAX ERROR 
NO END OF FILE 


The operator reply then is entered: 


id IEF5061 REPLY xxx or xxx, N or SKIP, 
xxx=Device name 


whe re; 


XXX 18 a device name and N designates use 
of a new SYS1. ACCT, i.e. the account 
data should be written from the beginning 
of the SYSI1. ACCT extent. When N is not 
specified a warm start will be attempted. 


1) Space Not Available 


Explanation: the extent of SYS]. ACCT 
has been filled. 


Action 


a) If a data set named SYS1. ACCT has 
been allocated to two resident de- 
vices, the operator may reply with 
the unit name of the second device. 
N is used to designate that the writer 
may start at the low extent. A job 
should be submitted to retrieve the 
data from the SYS1. ACCT data set 
which is full, so that it in turn may 
be used when the second data set is 
full. 


b 


~~ 


If multiple SYS1. ACCT data sets are 
not available for use, the operator may 
reply SKIP in which case Date and 
Time of Day with a reason code is 
dumped to the console. A job to 
retrieve data from the SYSI1. ACCT 
data set should be submitted. When 
the job is complete the operator may 
reply to the next occurrence of this 
message with XXX, N which tells the 
system that the space allocated to 
SYS1. ACCT is again available for 
use from its start. 


2) Not Preallocated 


Explanation: A data set named SYSI1. ACCT 


is not found on the device specified, or, 
if no device has been specified, on the 
system residence device. 
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Action 


a) If SYS1. ACCT resides on a device 
other than that specified, reply with 
device on which SYS1. ACCT resides. 
N specifies that the account data is 
to be written from the beginning of 
SYS1. ACCT. 


b) If SYS1. ACCT resides on no device, 
reply SKIP and run a job allocating 
SYS1. ACCT. 


3) Permanent I/O Error 


Explanation: A permanent I/O error 
occurred while processing SYS]. ACCT; 
consequently the program is unable to 
further process this data set. 


Action 


a) If a data set named SYS1. ACCT has 
allocated to two resident devices, the 
operator may reply with the unit 
name of the second device. N spe- 
cifies that the account data is to be 
written from the beginning of 
SYSic ACCT. 


2 


If there is no such device reply, SKIP 
and run a job allocating SYSI1. ACCT 
to another device. When this is not 
possible a job may be submitted to 
retrieve the SYS1. ACCT data. When 
this job is complete, the operator 
may reply to the next occurrence of 
this message with XXX, N which tells 
the system that the space allocated 
to SYS1. ACCT is again available for 
use from its start. 


4) Error in Unit Name 


Explanation: An invalid unit name has 
been specified. 


Action: Specify the correct unit name. 
5) Syntax Error 


Explanation: Syntax error in IEF506I 
reply message. 


Action: Re-submit reply. 
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6) No End of File d. Output 
Explanation: The end of file terminat- Register 0 The number of empty tracks 
ing the account data set has been lost; in SYS1. ACCT 
consequently, the program is unable to Register 15 Condition codes 
position to the end of this data set to 
write the next record. code interpretation 
@) Normal exit 
Action 4 Record to be written is longer 
than a track 
a) If a data set named SYS1. ACCT has Q No space left in SYS1. ACCT 
been allocated to two resident de- 12 SYS1. ACCT not found 
vices, the operator may reply with 16 Permanent I/O error 
the unit name of the second device. 20 SYS1. ACCT end of file not 
N specifies that the account data is found 
to be written from the beginning of 24 Unit name not found 


SYS1. ACCT. 
e. Use of ENQ/DEQ 


b) If there is no such device reply, SKIP 
and run a job allocating SYS1. ACCT IEFWAD enques on the major Q name 
to another device. When this is not SYSIEFAR and the minor Q name WD. 
possible a job may be submitted to . 
retrieve the SYS1,ACCT data. When f. Specifying the Device on which SYS1. ACCT 


this job is complete, the operator 
may reply to the next occurrence of 
this message with XXX,N which tells 


Resides 


The parameter ACCT =(unitname , N ) 


the system that the space allocated has been added as an option to the SET 
to SYS1. noc is again available for command where: unit name specifies the 
use from its start. device on which SYSl1. ACCT resides. If 
r | this parameter is omitted, the system 
In every circumstance where the reply residence volume is assumed, and N 
SKIP is used, the console message will specifies that the lowest extent of SYS1. 
be repeated at the next entrance to the ACCT may be used. If this parameter is 


accounting routine whenever the factors 
which caused the original message still 
prevail. 


omitted, a warm start will be attempted 
from the last record written. 


OS/360 - RELEASE 11 ACCOUNTING ROUTINE 
Sone ie 


7-10 13-20 22-26 35-38 39-44 9l-61 63-69 
JOB jobname START DATE YY.ddd Time of Day hh.ftff 


stepname END DATE YY.ddd Time of Day hh.ffff 
JOB jobname END DATE YY.ddd Time of Day _ hh.ffff 


where 
YY.ddd is the year and Julian day 


and 
hh.ffff is the time in hours with four decimals. 
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OS/360 - RELEASE 11 ACCOUNTING ROUTINE 


Description | © 


BYTE Code =8 Code =12 Code=16 
1-3 ACT ACT ACT 
4 X'8' x'C' X'10' 
5-12 Job name Job name Job name 
13-16 Date (packed) Date Date 
17-20 Time (packed) Time Time 
21-28 Pro- Step name Number of steps (1 byte) 
29-36 grammer Program name 
37-40 name Completion code 
41 step number 
42 Account data Account data 

from JOB from EXEC 

card card 

Exhibit 2 
OS/360 TECHNIQUE TO TYPE COMPLETION the Console Typewriter. The purpose is to 


inform the operator, on the console, of the 
cause of termination. It provides the Return 
Code on Normal Step Termination and the 
ABEND Code on Abnormal Termination. The 
listing and comments (Exhibit 1) should be self- 


CODES ON CONSOLE 


The following technique has been developed for 
use in an OS/360 installation and contributed 


to the Newsletter. Users should be aware 

that it has not been submitted to any formal explanatory to the user. The contributor has 6 

IBM test and that no maintenance support will used the technique successfully with OS/360 

be available. The technique has been used suc- Releases 9 through 11. It is especially useful 

cessfully to type System Completion Codes on for checking out new programs and Job Control 
Language. 


OS/360 TECHNIQUE TO TYPE COMPLETION CODES ON CONSOLE 


wUMPLETIUN UCUbDr TYyrt UUl APPRUACH FOR OS/360 


THE FOLLOWING APPROACH HAS BEEN SUCCESSFULLY USED TO TYPE 
SYSTEM COMPLETION CODES TQ THE CONSOLE. 


THIS IS ACCOMPLISHED BY: 


1. COMPILING THE SYSTEM CODE ANALYSIS ROUTINE {CODE PROVIDED). 
THiS ROUTINE BECOMES PART OF THE SCHEDULER VIA STEP 2. 


2- LINKEDIT THE MODULE INTO THE SCHEDULER IN MODLIB PRIGR TOD STAGE 
TwU OF SYSTEM GENERATION (ILLUSTRATION PROVIDED). 


3» MODIFYING THE MACRO SGIEF442 IN GENLIB PRIOR TO STAGE ONE DF 
SYSTEM GENERATION (ILLUSTRATION PROVIDED). 
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005650000 
004750000 
00€S0000 
00250000 
00TSO000 
00060000 
006%0000 
00840000 
002470000 
00940000 
0056470000 
00440000 
00€%0000 
00240000 
001%0000 
00040000 
006€0000 
008€0000 
00L€0000 
009£0000 
00S€0000 
00%¥€0000 
00€€0000 
00Z€0000 
O0OTEOO0O 
000€0000 
006zZ0000 
00820000 
002720000 
009Z0000 


00620000 


004720000 
00€ 20000 
00220000 
OOTCOO00 
00020000 
00610000 
008 TCO0O0 
OOLTOOOO 
00gTO000 
00STOOOO 
0O¥TOOOO 
oo0€ TOCOO 
002TO000 
0OTTOOOO 
oooTCooO 
00600000 
00800000 
0OL00000 
00900000 
00S00000 
-00¥%00000 
00£00000 
00200000 
COTCOOO0 
00000000 
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OS/360 TECHNIQUE TO TYPE COMPLETION CODES ON CONSOLE 


Riz Qu 12 00005600 
R13 cQu 13 90005700 
RL4 wu 14 00005800 
RL5 tu 15 90005900 
BALR R9I,RO ESTABLISH 00006000 
JSING *,R9 ADDRESSABILITY 00006100 
SI Rl yIEFONES SAVE PARAMETER LIST ADDRESS 00006200 
STM R2,RB,TEF TWSVN SAVE WORKING REGISTERS © 00006300 
L R5916(0,0) PLACE CVT ADDRESS IN REGISTER 5 00006400 
i R3,010,R5) AND PICK UP 00006500 
L R344( 0,23) TCB ADDRESS 00006600 
USING JCT,R6 00006700 
USING SCT»R7 90006800 
USING LCT,R8 00006900 
JSING TCBDSECT,R3 90007000 
™ TCBFLAGS »X* 80! TEST FOR ABEND 900007100 
3c 1,CONCDANL YES, GO TO CUNDITION CODE ROUTINE 00007200 
L RB 0101) LOAD LCT ADDR INTO REG 8B 00007300 
MYC LCTJCTAD(4) 441) 00007400 
MVC LCTSCTAD(4),8(1) 90007500 
Li R6,R7,LCTJCTAD GET ADDRESS OF JCT AND SCT IN CORE 00007600 
Lo R4,TCBCOMP+ 2 GET RETURN CODE INTO REG 4 00007700 
N R4,CONFMASK 00007800 
vo R4,D0UBLWRD CONVERT RETURN CODE TO DEC 00007900 
aI DOUBLWRD+7, X* OF! SET PROPER ZONE 00008000 
JNPK DOUBLWRD(4),DOUBLWRD+5( 3) UNPACK USER CODE 90008100 
Mvc PRINTOUT4#11(44),00UBLWRD MOVE RC INTO OUTPUT AREA 00008200 
PRINTOUT wTJ 'RC= ‘ 00008300 
BC L5,EXIT 00008400 
CINZVANL L R4,TCBCOMP 00008500 
\ R4ySYSTMASK 90008600 
C R4_,SYSTCHEK CHECK FOR USER ABEND 00008700 
bH SYSTCODE NO? GO TO SYSTEM ABEND ERRGR ANALYSTS 00008800 
LA R4,TCBCOMP+2 GET USER COMPCODE 90008900 
\ R4,CONFMASK REMOVE EXTRANEOUS INFOR 00009000 
Cvu R4,D0UBLWRD CONVERT USER CODE TO DECIMAL 00009100 
o1 DOUBLWRD+7,X'0OF? 00009200 
UNPK DOUBLWRD(4) »DOUBLWRD#F5(3) UNPACK USER CODE 00009300 
MVC PRINTCOD(4) »DGUBLWRD MOVE INT9 PRINT AREA 00009400 
MvI PRINTCOD-1,C'u? INDICATE TYPE 90009500 
BC 15yWTORQUTN 00009600 
SYSTCUGDc UNPK DOUBLWRD(5) »TCBCOMP+1(3) UNPACK HEX SYSTEM CODE 90009700 
TR DOUBLWRD(3) »TCBHEXL-240 TRANSLATE HEX FOR PRINTING 00009800 
MVC PRINT COD4+113), DGUBLWRD 00009900 
MVvI PRINTCOD-1,C'S? INDICATE TYPE 00010000 
ATURUUTIN AVC ERRTYPES#13{5) ,PRINTOT MOVE IN FINAL MESSAGE 90010100 
ERRTYPES wIv 1kxCC= eS 00010200 
EXIT L R1,ITEFONES PICK UP PARM LIST ADDR FOR DPQ425D 00010300 
Lo R2,»R8,y1LEFTWSVN RESTORE WORKING REGISTERS 00910400 
L R15,ACONSTNT 00010500 
BOR 159R15 00010600 
vs oD 00010700 
DUUBLWRUD DS D 00010800 
IEFINES OS CL4 00010900 
[EFT WSVN DS CL32 00011000 
CUN=MASK DC X' OOOOOFFF® 00011100 
ACUNSINT 0c V(DPQW42SD) 00011200 
PRINTOE oS OCL5 000113900 
ve cLi’ * 00011400 
PRINTC3D DC CL4* ?* 00011500 
CDOLCUNCD DC 2F*08 90011600 
SYSTMASK DC X' OOFFFFFFFF? 00011700 
SYSTCHEK DC F'4095!? 00011800 
DS CL8 90011900 
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TUSHEXL De C*0123456789ABC DEF ° 00012000 
SCT VscCT 00012100 
Vs 00 90012200 
DS CL3 00012300 
DS Ctl | 00012400 
SeTSSTAG OS CLI INTERNAL SYSTEM STEP STATUS 00012500 
YS CL3 00012600 
SCTSEXEC Ds Ci2 00012700 
VS CL108 00012800 
SCTSUPCU US CL2 00012900 
VS CL4 00013000 
Lol DSECT 00013100 
DS OD 00013200 
DS CL4 00013300 
US CL4 00013400 
DS CL4 00013500 
DS CL4 00013600 
LLETJCTAU DS CL4 00013700 
LCTSCFAUD DS CL4 00013800 
DS CL4 00013900 
DS CL4 00014000 
DS CL4 00014100 
DS CL4 00014200 
DS CL4 00014300 
LS CL4 00014400 
DS CL4 00014500 
LCTOMCBA DS CL4 00014600 
TCBDSECT DSECT 00014700 
DS 0D 00014800 
vS 3F 00014900 
TCBI19 US F 00015000 
TOBS UMP US F 00015100 
JS CLI 00015200 
TCBFLAGS DS CL5 00015300 
vS CL6 00015400 
TCBJLB VS CL4 00015500 
JCT DSECT 00015600 
| DS OD 00015700 
LTURG 00015800 

END 
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00015900 


PEER ER EEE EEE FEEEEEFEEEEE EE EERE EEE EEE EEE EE EE AEE EEE EEE EEE EEE EEE EEE EE EE EE EEE EEE EET 
+++++ | 

+ 22 ALTER SCHEDULER TO INCLUDE ANALYSIS ROUTINE. 

+ NJTE: MUST PERFORM PRIOR TO STAGE TWO QF SYSTEM GENERATION. 

+tet+ | | | | | 


//MUOSCHED JOB 2,"*MOD SCHEDULER',MSGLEVEL=1 
J¢STEPLKED EXEC PGM=IEWL, PARM="LET,XREF,LIST® 
//SYSLI3 DD DSNAME=SYSL.MODLIB »DISP=OLD 
//S¥SLMOD DD DSNAME=SYS1.MODLIB,DISP=OLD — 
//SYSUTL OD DSNAME=SYS1.UT3,DISP=OLD 
/J/SYSPRINT 0D SYSOUT=A 
/7SYSLIN DD * _ | 
CHANGE IEF W42SD(DPQW425SD) 
INCLUDE SYSLIBUIEFW42SD) 
NAME DPQW42SD(R) 7 | 
#kee* INCLUDE OBJECT CODE OF MODIFIED IEFW42SD HERE *##%%# 
NAME IEFW42SD(R) © 
#+44+4 INSERT */%* CARD HERE® 
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OS/360 TECHNIQUE TO TYPE COMPLETION CODES ON CONSOLE 


PEERS EEE EEE EEE EE EEE EERE EEE EEE EEE EEE EE EE EEE EE EE EE EE EEE EEE EEE EEE tHe tte tee tteet 
++¢¢¢ 

+ 3. ALTER SYSGEN MACRO PRIOR TO STAGE ONE. 

+ NOTE: CHECK STATEMENT NUMBERS BEFORE USING. 

+#++¢++ 


J/ CHGSGMAC JOB 3,°'CHG SG MACRO *,MSGLEVEL=1 
4/4430 EXEC PGM=IEBUPDAT ,PARM=MOD 
J¢SYSPRINT DD SYSOUT=A 

//S¥SUTL 0D DSNAME=SYS1.GENLIB,DIS P=OLD 

JI SYSUT2 JI DOSNAME=SYS1.GENLIB,DISP=O0LD 
“/SYSIN OD * 


of CHNGE SGIEF442,01,0,1 

/ VELET 00260000,00260000 

PUNCH © INCLUDE MODLIB(TEFSOO11, LEFW42S5SD,DPQW42SD,TEFYNIMP) ! 00260000 
PUNCH ®© INCLUDE MODLIB(TEFYPJB3,ITEFVJIMP)® 00260100 
of DEL ET 05220000,05220000 

PUNCH * INCLUDE MODLIB(TEFSDOLL, IEFW42SD, DPQW42SD, IEF YNIMP)® 05220000 
PUNCH ® INCLUDE MOOLIB(TEFYPJB3,1EFVJIMP)® 95220100 
e/ DEL ET 08980000, 08980000 

PUNCH § INCLUDE MODLIB(ITEFSDO11, TEFW42SD, DPQW42SD, IEF IDUMP)? 08980000 
PUNCH * INCLUDE MODLIB(IEFYNIMP,IEFYPJB3)! 08980100 
of ENDUP 


_@+et+ INSERT */** CARD HERE 


PROCESSING ENDED AT EOD 


TEF2851 SyYSOUT.. SYSOUT 

(EF265I1 VOL SER NOS= ° 

IEF2851 SY SOUT SYSOUT 

TEF23851 VOL SER NOS=. ° 

SYS=605, JUB=LIST » STP=EX » PROJ=40001, PGMR=FVOSS, DATE=67/149, 
SYS=65, JOI=LIST 9 STP=EOJRLS11, PROJ=40001, PGMR=FVOSS, DATE=67/149, 


TIME =16-43-32-9, RC=0000 
TIME=16-43-34.6 


(LIST. JOB 40001,F VOSS »MSGLEVEL=1 
47EX EXEC PGM=IEBGENER 

// SY SPRINT DD SYSOUT=A 

4¢4S8SYSUT2 DD SYSOUT=A,DCB=BLKSI ZE=80 
JISTSIN DD DUMMY, DCB=BLKSIZE=80 
7/SYSUTI DD * 


S¥S=65g JJB=LIST », STP=EX » PROJ=40001, PGMR=FVOSS, DATE=67/149;, 
TIME=16-43-48.1, RC=0000 
IEF2364a ALLUC. FOR LIST EX 


TEF2371 SYSuUT1 ON 20C 
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OS/360 BTAM I TO BTAM II CONVERSION 


A Technical Newsletter (N30-5013) to the SRL 
"OS/360 BTAM'" (C30-2004) is now available 
for ordering by the IBM Branch Office from 
the IBM Distribution Center, Mechanicsburg. 
This TNL contains an excellent write-up 
entitled ''Requirements for Converting from 
OS/BTAM I to OS/BTAM II,'' Users convert- 
ing from BTAM I in OS/360 Release 8 to 
BTAM II in Release 11 should carefully review 
this TNL and take appropriate action. 


OS/360 QTAM RESTRICTIONS 


1. OS/QTAM specifications limit the user to 
accessing a process queue through one DCB 
(job) only. However, no prevention is built 
into the current system to insure against 
this. If done, the last job initiated (OPENed) 
will function properly with any previous jobs 
left waiting once their Main-Storage queue 
is empty. The user would be unaware of 
this situation until his attempt to close fails 
to execute completely (message control will 
not terminate). 


2. The following are two restrictions the user 
should insure against in using 'CONVERSE 
MODE! under current OS/QTAM support. 


a. When using conversation mode and the 
process queue option of 'HODAD' (empty 
queue exit), it is possible to freeze the 
source line indefinitely if the exit is taken. 
Until the exit is bypassed (by nature of 
finding an enqueued message), thereby 
initiating the 'GET' execution, the con- 
verse logic will not be entered to satisfy 
the input request. 


b. When converse mode is initiated in the 
user's Receive LPS, a check is made to 
insure that the destination of the message 
is a 'PROCESS' queue. No check is made, 
however, to determine if that queue has 
been opened by a process program. If it 
has not, the source line will be held in 
converse mode until that input is subse- 
quently accessed and responded to by a 
message process program. 


3. The current process program CLOSE will 
work properly providing it is done in con- 
junction with message control termination. 
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The restriction limits the capability of clos- 
ing a message process DCB with the intent 

of subsequently re-opening and continuing 
access of that process queue (example: 
rolling in and out of a low priority message 
job). If done, the next outstanding message 
in the queue will be lost and closely following 
entries to this queue could have unpredictable 
results. 


It is presently planned to remove all of the 
above restrictions during 4th Q 1967. Actual 
availability will be announced with a future 
Release or OS/360. 


OS/360 QTAM CONVERSATION MODE 
DISCUSSION 


The user has the capability of initiating 'MODE 
CONVERSE' on a communication line. By defi- 
nition, QTAM will receive the entire message 
(up to EOT) and then freeze activity on that line 
until a response to that input has been made by 
a message process program. The only LPS 
initiated function which would reset a converse 
condition would be to CANCELM on the input 
message. 


Access of this message is made through QTAM's 
'GET' capability to enable the user's process 
function and response generation to take place. 
The response message 'PUT' is performed no 
differently than its normal enqueuing functions. 
Eixecution of the subsequent GET logic, which 
returns to message control the buffer used in 
satisfying the previous GET request, is the point 
in the cycle where a conversation condition is 
looked for. When converse is detected (the 2- 
bit on in LCBSTATE), the net result is a priority 
search of the source terminal's queue looking 
for a message from a process program. The 
first one found will be accessed and transmitted 
as the response. The user is vulnerable to the 
extent that any process program message found 
will satisfy the search with no guarantee that 

the message found is actually the desired re- 
sponse message (it is possible for other process 
programs to be PUTing messages to this same 
destination). The user could insure against 

this by placing a high priority on his converse 
response messages. If no process mesSage is 
found in the queue, the conversation condition 

is reset and normal line activity resumes. 
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The conversation setting of the line will remain 
during transmission of the response and also at 
initiation of the subsequent receive operation. 
The theory is that this converse operation may 
extend beyond one input and response. Only a 
negative response to a poll will actually return 
the line to normal. The user could modify this 
logic by simply resetting the converse bit in the 
LCBSTATE field. If it were reset following the 
RCVHDR delimiter in the LPS (register 4 points 
to the LCB at this time), it would prevent sub- 
sequent transmissions from unconditionally 
being processed in converse mode. If it were 
reset following the SENDHDR delimiter in the 
LPS, it would prevent the unconditional return 
to. polling at completion of sending the response 
and thereby allow normal line activity to be 
initiated (example - transmit other enqueued 
messages). 


Dial Conversation 


The conversation logic is no different for a dial 
environment than it is for leased lines. The 

dial connection is maintained until a response 
message is sent back to the source terminal. 
However, a unique problem does exist in the 
dial environment. When a message becomes 
enqueued for a dial terminal, message control 
will immediately start scanning those lines as- 
sociated with its line group, searching fora 
free line which can be utilized. The enqueuing 
of a message as a result of a PUT will also 
trigger the search for a line even though a con- 
verse condition may exist. The net result is 
that if a line is available, the response mes- 
sage will be accessed and transmission attempted 
on other than the original line. When the con- 
verse condition is subsequently detected as a 
result of the next GET execution, no response 
message will be found and the connection broken. 
A further complication is that the alternate path 
will more than likely also fail by nature of the 
fact that the attempted dial will result ina "busy" 
condition. Only if no lines were found available 
on the search (all busy) will the response mes- 
sage still remain in the queue to enable normal 
execution of the desired conversation mode. 


A possible solution would be to define Terminal 
Table entries representing line identities (as 
opposed to terminals) with a unique line group 
definition for each. The source and response 
destination of the converse message would then 
be the line with the input terminal more or less 
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transparent to message control. It would re- 
quire added user code in the LPS to resolve the 
line identifier (for converse conditions) to pass 
to the process program but the terminals could 
call in on any of the available lines. The normal 
terminal entries in the table would have to be 
associated with only one line group (and thus 
only one line) thereby limiting its other output 
to a single path. However, if converse is the 
primary environment, this limitation may not 
be significant. 


OS/360 GRAPHICS 


1, When the user receives control in his atten- 
tion handling routine, the first byte of the 
COMAREA contains a unit number which in- 
dicates the 2260 which caused entry. This 
unit value, if to be used as the unit field (in 
a register) for anI/O macro, must be re- 
duced by one. However, this applies only 
when there is more than one 2260 using the 
same DCB. If one DCB was set up for each 
2260, this byte will always be zero. 


2. The graphics SYSGEN macro statement will 
execute correctly only if a single residence 
system is created in OS/360 Release 11. If 
a split residence system with graphics is re- 
quired, the graphics macro will attempt to 
create a SYSI.SVCLIB on the split volume 
during Stage 2. This can be corrected in 
three ways. 


a. Change the incorrect record in member 
SGIFF5LS of SYS1. GENLIB. On the 
fourth and fifth records, change 13 to 11 
and 14 to 12 before SYSGEN. 


b. Change the COPY card in the IEHMOVE 
phase of Stage 2 in SYSGEN to reference 
SYS1.SVCLIB on the system residence 
volume instead of the split volume. 


c. IEFHMOVE SYS1.SVCLIB from the split 
volume to the residence volume after 
SYSGEN. 


OS/360 COBOL - LOOKING AHEAD TO MVT 


If the user plans to go MVT (Multiprogramming 
with a Variable number of Tasks), he should be 
aware of the following considerations, 
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1. In MVT, all SYSIN data sets go first to direct Information in PTF's can be obtained through 
access. If the COBOL problem program the servicing Field Engineering Branch Office. 
omits data set ORGANIZATION and ACCESS 
IS..., then QSAM is the access method used. 

DEVD, OPTCD, BUFNO, EROPT are data 
set attributes which may be left out of the OS/360 UTILITIES ~- DD STATEMENT REQUIRE- 
problem program and merged from the DD MENTS 
card or DSCB. a 

The following concerns the DD statement require- 
RECFM, LRECL, BLKSIZE, BFTEK, BFALN, ments for OS/360 Release 11 Utilities. 
BUFCB, EODAD, EXLST, SYNAD must be | 
specified in the problem program. Once this The system utilities IEHLIST, IEHMOVE and 
is done, no override is possible from the DD IEHPROGM require DD statements to allocate 
card or the DSCB. volumes rather than data sets. Therefore, the 


normal rules for DD statements must be modi- 
Therefore, for SYSIN data sets, the problem fied. 


program must be written to the same RECFM, 


LRECL, and BLKSIZE and the reader proce- The unit and volume parameters are necessary 
dure IEFDATA card used. Since QSAM is to allocate volumes. The disposition must be 
used, two buffers are standard. stated as KEEP, although volume disposition is 
meaningless, because at the end of the system 

2. If the SORT verb is used, the region value utilities, the scheduler must handle disposition. 
must be sufficient to accommodate the load Therefore, the last data set referenced on an 
module plus a minimum of 17, 048 bytes for allocated volume is disposed by the scheduler 
sort program execution, If linkedit of modi- using the disposition for that volume. KEEP 
fications is to be done, then the region must must be specified or the last used data set will 
be big enough to allow LINKEDIT. be deleted since the default option is delete. 


(For example, if in the IEHLIST program, the 
3, Release 9.5 prose states ACCEPT,..SYSIN, last request was to list the PDS SYS1. LINKLIB, 
DISPLAY...SYSOUT, DISPLAY...SYSPUNCH SyYS1. LINKLIB would be the data set to which 
and EXHIBIT may not refer to data sets spe- the volumes disposition would be applied. ) 
cified as being blocked. Therefore, if these 
options are used in COBOL, IE FDATA must Therefore, in allocating volumes, specify a 


not be blocked in the reader procedure. disposition of KEEP (or simply OLD which im- 
plies KEEP), for a specific volume reference 
4, From the foregoing considerations, the and unit. Since no DSNAME parameter is 
SELECT statement which is assigned to a coded, the DD statement causes allocation of a 
SYSIN data set must be ASSIGNed to a device volume regardless of its mount and allocation 
independent DCB (i.e., UTILITY). | characteristics. (A specific volume request 
| for a temporary data set can be satisfied by any 
5. SYSOUT goes to disk and is not entered into possible volume state. ) 


the writer's queue until the job is terminated. 


Those data sets assigned to SYSOUT must 
also have device independent DCB's. Also, 
remember that large volume outputs could 
exceed direct access space availability if 


assigned to SYSOUT. 


OS/360 COBOL E FIXES FOR RELEASE 10 
AND 11 


PTF 8605 fixes a 'GO TO DEPENDING ON'! 
problem in level 10 and is included in level 11. 
PTF 9115 fixes a ''PERFORM" problem in both 
10 and ll, PTF 9959 will fix a ''multiple WRITE 
in one paragraph" problem in both 10 and ll. 


However, there are times when a non-specific 
volume request in a DD statement would be 
necessary. This occurs, for example, where 
a system utility will want to access more 
volumes than the number of devices available - 
an IKHLIST program is asked to list the VTOC 
of many volumes, but only one device is avail- 
able. (In this case, the DD statement is used 
to allocate a device rather than a volume. ) 


The user must code unit, a disposition of (NEW, 
KEEP) and a volume parameter value of PRI- 
VATE (with no specific volume reference). 
This DD statement (without the PRIVATE para- 
meter) represents a non-specific volume re- 
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quest for a temporary data set (no DSNAME 
appears), a request which can be satisfied by a 
public or storage volume, either permanently 
resident or reserved, or a removable public 
volume. (A private volume can only be allocated 
with a specific volume reference.) The use of 
PRIVATE ensures that a removable public vol- 
ume will be allocated. (PRIVATE modifies the 
DD request so that even though no DSNAME 
parameter is present, the request is for a non- 
temporary data set.) The removable public 
volume is demounted (by the scheduler if no 
DEFER, by OPEN if DEFER is coded in the 
UNIT parameter) and a private volume mounted. 
The use of DEFER will save a mount and de=- 
mount message. 


Once the volume is considered private, the 
system utilities can have it demounted and the 
desired volume specified in the utility control 
statement be mounted. Only private removable 
volumes can be demounted by system utilities. 


OS/360 SORT - FILE SIZE ESTIMATE IS 
NECESSARY 


The OS/360 Sort runs at reduced speed when an 
estimate of file size is omitted. This is due to 
the sorting method which is chosen by default. 

A report of a Release 10 sort has been received 
where this omission cut the speed and the capacity 
of the sort by one half. The addition of an esti- 
mated size in the SORT card restored the capa- 
city and speed. 


OS/360 MASTER SRL INDEX 


In response to many customer and branch office 
requests, a Master Cross Reference Index has 
been prepared for the OS/360 SRL series. The 
publication is based on the indexes of 39 separ- 
ate SRL publications. It is entitled "IBM 
System/360 Operating System: Master Index"! 
(C28-6644). The alphabetic quick-reference 
index shows the publication title and form 
number for each index entry. 


The initial version of the index is current 
through OS/360 Release 11. It is available for 
ordering by IBM Branch Offices from the IBM 
Distribution Center, Mechanicsburg. 
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DOS/360 FILES SHARING SAME DASD 


Label and extent information is checked by 
DOS/360 in such a way that the following points 
should be noted: 


1. If two files are physically located on the 
same DASD device, they should be assigned 
by means of two separate symbolic names, 
i.e., SYSxxx & SYSyyy. This is to allow 
proper extent checking for each file. 


2. If two files, even if they are only temporary 
work files, are assigned to the same DASD 
device, each MUST have a unique label, 
i.e., a unique DLAB statement. While 
some previous release levels of DOS/360 
would accept (and work properly with) 
identical labels for two or more data (or 
work) files, Version II (Release Level 6 
and later) will not; the VTOC of the DASD 
device will be improperly constructed and 
job cancellation will result at some later 
point during execution of the program. 


DOS/360 HANDLING MULTI-VOLUME DISK 
FILES 


Sequential disk files under DOS/360 which ex- 
tend beyond the limits of one pack create a 
unique situation which requires special atten- 
tion to operating procedures and the use of pro- 
per Job Control statements. Examples are in- 
cluded in this discussion to show how to handle 
a multi-volume file on one disk drive, by chang- 
ing packs when one becomes full, or how to 
handle the same situation when the second disk 
pack is on a separate drive. Extension of the 
logic to three or more packs should be obvious 
from the discussion and examples. 


Unlike a direct-access or index-sequential file 
which requires all volumes to be on line when 
the file is opened, sequential files, when opened, 
check only the first extent given by Job Control 
and then cause additional extents to be opened 
only when the data within the first extent is ex- 
hausted by the problem program. The following 
is a discussion of what happens while reading a 
multi-volume file from one disk drive: 


1, As the program is being read by Job Control, 
the information from each VOL, DLAB, 
XTENT set is combined and written onto the 
special label information cylinder of the 
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SYSRES packs (the cylinder immediately 4, The volume serial numbers on each volume 
following the last SYSRES library). The must be different to identify a new volume. 
record for each set contains a key which was The file serial number is constructed by 
the filename specified in the VOL card and DOS/360 from the volume serial number of 
which matches the symbolic DTF name in the first volume of the file. 


the program. 


5. When a sequential data set is exhausted on 


. When the file is opened, the filename which one volume by the program, the next XTENT 
was generated as a constant by the DTF name is automatically opened by logical IOCS. 
in the program is used to search the special Then the volume serial number is checked 
label cylinder of the SYSRES pack for a match- against the VOL 1 label of the pack on the 
ing key. Whena hit is made, the record drive specified by that SYSXXX assignment. 
portion is extracted and the 44 byte file At this point, if the proper second pack is on 
identification is extracted from the record line, processing continues; and if the proper 
provided by the earlier DLAB/XTENT volume is not available, a message is issued 
information. to the operator and processing resumes 


when the proper pack is mounted. 
. The 44 byte file identification is then used to 


match with the format 1 label on the VTOC The examples shown in Exhibit 1 should illus- 
of the disk drive which was assigned to the trate the above logic, and intuition should show 
SYSXXX unit for that file. Files with multi- how the same logic holds when the file is an 
ple extents may have a format 3 label chained output file and the multiple packs are on the 

to the format | label to provide room for same drive, or on a separate drive. 


additional extents. 


DOS/360 HANDLING MULTI-VOLUME DISK FILES 


// JOB SAMPLE} 

* TO READA MULTI-VOLUME SEQUENTIAL DATA SET FROMONE IRIVE 

// ASSGN SYS0 04, X'19 1! 

// VOLS YS 004, DTFNAME 

// DLAB 'ALPHAMERIC FI LE NAME 1222222! X 
000 1,67001, 67001, 'DOS 'SD 

// XTENT 1 ,0,00 000 1000, 0001 00990, '222222', SY S004 

// XTENT 1 ,1,00 007 8000, 0001 23009, '333333', SY S004 

// XTENT 1 ,2,00 005 0000, 0001 97009, '444444', SY S004 

// EXEC SAMPLE! 

/& 


// JOB SAMPLE2 

* TO READA MULTI-VOLUME SEQUENTIAL DATA SET FROM MULTIPLE 

* DRIVES 

// ASSGN SYS004, X'191! 

// ASSGN SYS005, X'190! 

// ASSGN SYS006, X'194! 

// VOL SYS004, DTFNAME 

// DLAB 'ALPHAMERIC FILE NAME 1222222! X 
0001, 61001, 67001, 'DOS ' sD 

// XTENT 1, 0, 000001000, 000199009, '222222', SYS004 

/{ XTENT 1, 1, 000078000, 000123009, '333333', SYS005 


// XTENT 1, 2, 000050000, 000197009, '444444', SYS006 
//| EXEC SAMPLE2 


/%& 
Exhibit 1 
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i, 


b. Each READ statement for such a file must 
be modified by the addition of the associated 
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DOS/360 BASIC FORTRAN TECHNIQUE TO 
PROCESS 11 RECORDS PER TRACK 


Description 


APAR's have been submitted on the subject 
of DOS/360 FORTRAN's inability to read 
more than ten sequential disk records per 
track. These APAR's cover the specific 
instance of reading 256 character records 
written by DOS/360 components, other than 
FORTRAN, which determine records-per- 
track from device constants and hence 
write 1l records per 2311 track. 


There is no technical difficulty in altering 
FORTRAN to read and write 11 records per 
track; extra code must be added to accom- 
modate existing files written by FORTRAN 
at ten records per track. 

A final fact must be considered: there is no 
immediate necessity to remove the records- 
per-track incompatibility, since an existing 
DOS/360 facility (the direct-access READ 


statement) may be used to process sequential 


files written at 11 records per track. 
Bypass Technique 


An immediate solution of the problem is 
available as follows: 


a. For each file which was written by a 
component other than FORTRAN to be 


processed by FORTRAN, a DEFINE FILE 


statement must be added to the source 
program. The statement, for 256- 
character records read under FORMAT 
control, should be written as follows: 


DEFINE FILE n(maxrec, 256, E, asvar) 


where nis the FORTRAN unit number 
(DSRN) maxrec is equal to, or 
greater than, the number of 
records in the file, and asvar 
is an integer variable name. 
This variable will become the 
"associated variable" for this 
file, and should therefore be 


unique in the program. 


variable name as follows: 


Cc. 
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READ(n, f) list 
READ(n'asvar,f) list 


present: 
becomes: 


where n and asvar are as defined above, 
fis the statement number of a FORMAT 
statement, and list is the usual I/O list. 


The associated variable for each file 
must be initialized to point to the first 
record of the file by the addition of 
either of the following statements pre- 
ceding the first READ for the file: 


asvar=l 
FIND(n, 1) 


The second form is to be preferred. 


. Since the language specifications prohibit 


the use of REWIND, BACKSPACE, and 
END FILE statements for direct-access 
files, they should be converted to appro- 
priate redefinitions of the associated 
variable; i.e. BACKSPACE is converted 
to a reduction by 1 of the value of the as- 
sociated variable; and REWIND to either 
of the initializing forms in item 2c above. 
END FILE is meaningless for input files 
and may be eliminated if it appears. The 
present implementation does perform the 
functions described above for BACKSPACE 
and REWIND and ignores ENDFILE, but 
the use of sucha non-standard capability 
is not recommended. 


. Certain restrictions will apply to this 


technique: 


1) A direct-access WRITE may not be 
used to extend the file unless additional 
records have been pre-formatted. 
(Direct-access WRITE's may be used 
freely within the existing file area to 
update records, with the side benefit 
of not destroying the succeeding 
records. ) 


2) Extra core will be required at object- 
time for IJTADIR, the direct-access 
1/O interface. The present size of 
this routine is about 1000 bytes. 


The technique may be extended to read 
records of any fixed length from 1 to 
1726 bytes by changing the constant 

(256) in the DEFINE FILE statement. 
This may permit users to specify record 
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lengths less than 256 bytes for some ap- 
plications, and thus improve disk space 
utilization. 


DOS/TOS/360 OPERATOR-TO-SYSTEM 
COMMUNICATIONS 


Exhibit 1 is a listing of the various operator-to- 
system communications commands available 
under TOS and DOS/360. The four columns 
represent: 


Column 1 BG Job-Control commands. 
Column 2 AR Attention- Routine commands. 
Column 3 Fn Foreground-Initiator 
commands. 
Column 4 BG Job-Control statements. 
1. Column 1 BG 


Job-Control commands. WITHOUT slashes 
in the first two columns. They may be 
entered from either SYSLOG or SYSRDR. 
Job-Control is a BACKGROUND program, 
and as such, is available immediately after 
IPL; it is also called in between background 
job steps. It is terminated after the execute 
statement is read. Job-Control control of 
the 1052 may be suspended via the BG com- 
mand STOP, may later be re-instated via 
the AR command START BG. 
2. Column 2 AR 
Attention-Routine commands. These MUST 
be entered from SYSLOG. The AR is called 
into the supervisor logical transient area, if 
that area is not active with another B-type 
transient, when the 1052 REQUEST key is 
pressed. It is terminated by the START, 
CANCEL, and MSG commands. 


3. Column 3 Fn 

Foreground-Initiation commands. These 

may be entered from SYSLOG or from a card 
reader whose address is supplied by the Fn 
command READ x'cuu'. This READ command 
MUST be entered from SYSLOG in order to 
assign the reader, which can then read the 
other Fn commands. (NOTE: In order to 

use SYSRDR for Fn commands, SYSRDR 

may be un-assigned by a Job-Control state- 
ment, then the reader assigned for foreground 
initiation via the Fn READ command.) The 
Foreground Initiator is a 2K self-relocatable 
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program called into core via the AR command 
START Fn. It is terminated by the Fn com- 
mands CANCEL and EXEC. 


4. Column 4 BG 

Job-Control statements, with // in columns 
1 and 2. These should be entered from 
SYSRDR, although some will be accepted 
from SYSLOG at certain times (e.g., LISTIO 
entered from SYSLOG or SYSRDR will print 
on SYSLOG, while // LISTIO entered from 
SYSLOG or SYSRDR will print on SYSLST). 
These statements will usually be part of the 
normal job stream. This job-control is the 
same as that used with the section in column 
1 (above) and is started and terminated in the 
same way as above. 


TOS/360 SYSGEN SRL CORRECTION 


The SRL IBM S/360 TOS System Generation 
and Maintenance (C24-5015-3), erroneously 
shows, on page 33, the control card to link 
edit the Tape Compare Utility program as 
INCLUDE IJJCPIN. The card must be punched 
INCLUDE IJJCPIN (a 1 instead of an I). 


S/360-20 TPS LOADING PROGRAMS FROM 
CARDS 


This alteration to Job Control of the S/360-20 
Tape Programming System provides additional 
functional capabilities. It gives the user the 
ability to load object programs from cards 
when using the tape resident system. In order 
to make use of this option, SYSIPT must be 
assigned to the primary card reader of the 
system, and the control card //bEXECbLOADER, 
C submitted to Job Control. This card must be 
in the exact format specified. No additional 
spaces between fields may be taken. The 
LOADER, C option processes TXT, XFR, END, 
and REP cards. In addition, the patch contains 
the normal Job Control functions of PAUSE 
(only if called for) and skip to 1 after logging 
of Job Control cards. If logging has been dis- 
continued before the //bEXECbLOADER, C card 
igs encountered, the PAUSE will be displayed on 
the CPU but not the printer, and the skip to l 
will not be taken. This follows the normal Job 
Control procedure. 
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The user can assemble his own patch from the 
enclosed specifications. He should remove the 
END card of Job Control and replace it with the 
assembled patch cards. The patch contains a 
correct END card. Follow the normal CMAINT 
procedure to place the patched Job Control on 
SYSRES. 


The Table of Defined Values is shown in Exhibit 
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1 and the source and object code is shown in 
Exhibit 2. 


This alteration has been tested only by the author 
for Version | Modification Levél 1 of Job Control. 
It is a field contribution and has not been submitted 
to any formal IBM test. Alteration of cards 0l- 

24 may be necessary to make the patch function 

on any other version or level. 
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BADR 
END © 
 ENDA 
GO003 


PWOOFRPANFEOL ES 


SYMBOL LEN 


PFNUN PE PK ENN 


_. TABLE OF DEFINED SYMBOLS - 


“VALUE TYPE 


122¢ X 
LICE 
121C 
LOCA 

~422€ 
0000 
1234 

“L1D0 
(1102 
1166 


al a 4 


1176 
LL5SA 
“1LeE2 
OE12 
LL4C 
LLAO 
—:1234— 
— ~«1LD4 


ee eo 2 eo 2s oe 


19 


Od 


L14C 
1150 


1154 


115A 
L15E 


1162 
1166 


LLOA 
LI6E 


Liv2. 


1176 


LITA 


LL7E 
1182 


1186 


118C 


1190 


8100 


-go00. 
LOCA 
0000 
Sacitnere 
OE12 
OE12 
ac 


; OELT 


1166 


1161 


1024 
OBOO0 
0892 
O741 


1176 


L161 
L15A 
BO25 
1186 
1024 
0B40 
104C 
103C 
0680 
ooca 
0660 
0684 


O000068E 
OAOBOCODOEOF 


OD80 


DO12— 


0748 
4710 
9A10 
9Al 

9502 
0778 
47FO 
DIFF 


80C0. 


8084 
800C 
8O7E 


80C0 


8032 


OE17 


F003 


OADE 


L1A0— 
085C 


0050 


1166 
1161 
0024 
0B00 
0892 
0741 
1176 
L161 
L15A 
0025 
1186 
0024 
0B40 
O004C 
003C 
0680 
00cs 
0680 
068% 


1270 


1234 
118C 
1L22E 
1270 


LIE2 


0003 


DADE 


L1A0 
085C 


0050 


LBO03 


LBO5 


PHO2 


DIFF 


AOPTN NOESD,NORLD 
START O | | 
EQU GOO3+X*1LOCA® 
USING #,0 
USING #+4096,1 
ORG GO003+X*OE12° 
DC Y(PHO1) 


ORG GOO34+X*114C° 
CLI X*OEL7*,X*4E® 
BC 8,LB01 

MVC LBO2+3(1),3(15) 
BAS 15,X*024'(0,1) 
HPR X*BO0',0 


-BC 15,X*0892° 
CLI X*O741°,C°C® 
BC 8,LB03 

MVI LBO2+3,X"4E° 
BC 15+LB04 


™ X*025°(X'B*),X*04* 

BC 8,LBO5 

BAS 15,X*024* (0,1) 

HPR X*B40',0 

MVC X*04C'(6,1)—9X*ADE*(0) 
BAS 155X*03C'(0,1) 

MVC X*0680* (224) ,PHO2 

MVC X*00C8*(2),X*0O85C * 

BC 15,X*0680° 


SPSW X'0684! 

DC X *OOO006BE * 

DC X*OAOBOCODOEDF® 
BASR 8,0 

DROP 0Q 

DROP 1 

USING #,8 

X10 READ(X*12°%),80 
BCR 4,8 

BC 1,HALT 

TIOB #,X*10° 

TIOB EROR,X*11° 

CLI READ,X*02° 

BCR 1,8 

BC 15,LB06 

DC X*DLFF® 

Exhibit 2 


JOB CONTROL START ADDRESS 


ORG TO BRANCH ADDRESS 


SET BRANCH IN JOB CONTROL 


ORG TO END OF JOB CONTROL 


IS HALT OB4E 


YES - CONTINUE 


NO-SET HALT 

BRANCH TO JOB CONTROL ROUT 
DISPLAY HALT 

RETURN TO JOB CONTROL 

IS THIS LOADERsC 

YES - GO TO LOAD ROUTINE 
NO - SET HALT 

BRANCH TO HALT HANDLER 

IS PAUSE BIT ON 

NO - BYPASS PAUSE 

YES - GO TO PAUSE HANDLER 
DISPLAY PAUSE 

SET BRANCHES IN PRINT ROUT 
BRANCH TO SKIP HANDLER 
MOVE LOADER TO 680 

STORE FETCH ADDRESS 

BRANCH TO LOADER 

BRANCH AND DISABLE INTERPT 
PSW 

TRANSLATE TABLE 

SET BASE REG 

DROP BASE 0 

DROP BASE 1 

ESTABLISH NEW BASE 

READ CARD 

WAIT IF WORKING 

BRANCH IF READER NOT READY 
WAIT IF READER BUSY 

BRANCH IF READ ERROR 

IS THIS A LOADER CARD 

NO - READ ANOTHER 

BRANCH TO CONTINUE 

BASE TO DEVELOP MOVE INSTR 


L96T “9T eunys 


"ON ONnsst 


cI-L9 


iw 


11D2 


1104 


1107 


L1E2 
11E6 


LIEA 4 
LIEE 


LLF2 
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LLFE 


“4202. 
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~120C— 
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L21A 
121C 


12200 
1222 
1226 


l22c 
122E 


0002. 


0005 


000000 
0001020304050607 


0778 


4AFO 
40FO 
D200 
O7F8 
9540 


40E0 
8100 
0000 
9900 


0788 
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| BOBA 
 B0C6 
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8072 


801E 


8064 
E000 


80C6 


g07C 


“1238 o7Fe- 


8008 


8024 


8024 


en ea 


F764 


80 


O1D0 


LOCATN OBJECT CODE 


80D0 


1270 
1272 
123A 


1276 


1272 
121C 
1272 
1222 


1272 
ADDI 


127A 


LICE 
1214 
0000 


1276 


-122¢ 


807A. 


OLDI 


OSCtT 
80C8 


05c7 


F760 


122A 


O1D1 


~ OLDO 


1278 


11D4 


11D4 


0760 


11D4 


0764 


0000 
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0044 
0045 
0046 
0047 
0048 
0049 


— 0050 


ADD2 


1280 


O5CT 
1278 


05C7 
0760 
1104 


ner ERBO ore 
oe bobs oo 


0051 
0052 
0053 
0054 
0055 
0056 


STMT. 


0057 
0058 
0059 
0060 
0061 
0062 
0063 
0064 
0065 
0066 
0067 
0068 
0069 


0070 


0071 
0072 
0073 
0074 
0075 


0077 


0078 : 
0079ti‘(C~‘: 


0080 
0081 


o0s2.ttit—t 
0083s 
008 BE 


0086 


NEXT TR 


H2 DC  X%*0002' 
x#0005° 
X*000000° | 

DC X*900010203040506070809008 

READ,X*00* 

READ+2,C*E® 

BC B3,REP 

LH 14,READt6 

READ+2,C*N® 

~—BC 8,END 

READ+2,C*F® 

BC 8,XFR 

~READ4+2,C*X® 


SOURCE STATEMENT 


7,8 
LH =15,READ+10 
AH 15,DLFF 
15, #+4 
0(1,14) ,READ+16 
15,8 
READ+6,X*40° 
8,8 
14,BADR 
B+4 
DC X*O100* 
BADR DC X*QO000° 
EROR X*1D1°,0 
tes 15,8 
X*1D0°,0 
15,8 | 
READ+8(4),X*O05CT® 
TRAN,READ+8( 5) 
LH L4, TRAN 
| X° 760" (415) 9X" oscT® 
TRANS X*760* (5515) 
~ 002,14) .TRAN | 
X*764"(15),X*6B° 
7,8 
AH Meet 
BC LS yNEXT 
CL80 > 
ENDA 


END 


XFR 


HALT 


REP TR 


HALFWORD 2 

HALFWORD 5 

TRANSLATE AREA 
TRANSLATE TABLE 

RESET LOADER ID 

IS THIS A REP CARD 

YES - GO TO REP ROUTINE 
LOAD BASE ADDRESS 

IS THIS AN END CARD 

YES - GO TO ENDCARD ROUT 
IS THIS XFR CARD 

YES - GO TO XFR ROUTINE 
IS THIS TXT CARD 


NO - READ ANOTHER 

LOAD NO OF BYTES TO MOVE 
DEVELOP MOVE INSTRUCTION 
STORE MOVE INSTRUCTION 
MOVE DATA TO CORE 

READ ANOTHER 


IS BRANCH ADDRESS BLANK 


YES ~ READ ANOTHER 


SET BRANCH ADDRESS 


ENABLE INTERRUPT AND BRANCH 


PSW 
ERROR HALT 


TRY AGAIN 
NOT READY HALT 
TRY AGAIN. 


TRANS LOAD ADDRESS 
PUT IN HEX 


SET LOAD ADDRESS IN REG 14 
CLEAR BASE REG 


TRANSLATE DATA 

PUT IN HEX . 
MOVE OATA TO CORE 
IS NEXT CHAR COMMA 
NO - READ ANOTHER 


INCREMENT LOAD ADDRESS 


INCREMENT CARD ADDRESS 
TRANSLATE NEXT TWO BYTES 


CARD READ AREA 
BRANCH TO JOB CONTROL START 


L961 *9T eune 
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S/360-20 DISK RPG POINTERS 


1. Figure 114 in the $/360-20 DPS/TPS RPG 
SRL (C24-9001-2) should show use of a 
record length of 8. The block length is 
specified by the use in the OUTFIL sort 
control card. 


2. TNL N33-9097 to RPG SRL C24-9001-2 
describes the coding for indexed sequential 
load and add. 


3. Sequential processing of multiple files with 
no matching record fields is supported. 


4, RPG user programs not using tapes can. 
overlay the tape error routines and error 
statistics in the monitor based on the load 
point specified in the RPG control card. 
However, if a subsequent program requires 
these routines, the full monitor must be 
restored by another IPL. 


5. Random retrieval of indexed sequential file 
does not seek the cylinder index when the 
previous record is on same cylinder. 


S/360-20 BIBLIOGRAPHY CORRECTION 


An excerpt for PL/I appeared erroneously, on 
page 8, in the latest Model 20 Bibliography 
(A26-3565-2),. It is an excerpt for DOS/TOS 
PL/I. There is no work being done on PL/I 
for S/360-20, nor is any presently planned. 
The erroneous entry should be in the Biblio- 


graphy. 


S/360-30 TWO MICROSECOND PROCESSOR 
TYPE I SUPPORT 


Current IBM-supplied Type I programs an- 
nounced for S/360 Model 30 support the 2- 
microsecond processor, except where user- 
supplied coding conflicts with requirements of 
time-dependent devices and where user pro- 
cessing associated with process control and 
communications devices requires a higher- 
speed processor. | 
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S/360 RPG CODING FOR COMPATIBILITY 


System/360 Report Program Generator is im- @ 
plemented on all models of IBM's S/360. Every 
effort was made to make S/360 RPG a compat- 
ible source programming language on S/360. 
Most of the differences are minor and are given 
here along with some guidelines to aid the 
programmer to code in RPG so that his programs 
will run with a minimum of changes on all vers 
sions of the RPG generator program. The dif- 
ferent versions of RPG covered are shown be- 
low. RPG for the Basic Programming System 
(BPS) is not included since this version of RPG 
has been largely replaced by one of the other 
versions shown below. 


Programming Minimum S/360 


System Configuration Abbreviation Model 


Model 20 RPG Model 20 

(Card) 4K Card 20 

Model 20 Tape 

Programming 

System 8K TPS 20 

Model 20 Disk 

Programming 

System 12K DPS 20 

IBM Basic @ 
Operating 

System SK BOS 30 and up 
IBM Tape 

Operating 

System 16K TOS 30 and up 
IBM Disk 

Operating 

System 16K DOS 30 and up 
IBM Operating 

System/360 64K OS 30 and up 


In the following description of the differences, 
the versions of RPG are referred to by the ab- 
breviations shown above. 


1. General 


a. Sequence of source specifications for 
program generation for Model 20 Card 
RPG is: Header, File Description, File 
Iextension, Input, Output, /* card, (tables 
and one /* card if tables used), data, /* card. 


Sequence for all other versions of RPG is: 

Header, File Description, File Extension, 

Input, Calculation, Output, /* card, data, & 
/* card. 
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b. For Model 20 Card RPG, table-input 


records are included with the source 
deck and included in the generated object 
program. 


For all other versions of RPG, table-input 
records are omitted during program genera- 
tion and read into core at the beginning of 
execution of the object program. 


2, File Description Specifications 


a. 


File Designation (position 16) is not re- 
quired with Model 20 Card RPG. It is 
required with all other versions of RPG. 


. Block Length and Record Length (positions 


20 to 27): With TPS and DPS four must 
be added to the record length of variable- 
length tape records, and eight must be 
added to length of largest variable-length 
tape record for block length of variable- 
length tape records. 


DPS will not handle variable-length disk 
records. For BOS, TOS, DOS and OS, 
enter the exact record and block lengths 
for variable-length records. 


. Table-input files are not described on the 


File Description Specifications with Model 
20 Card RPG, but they must be for all 
other versions of RPG. 


3. File Extension Specifications 


a. 


. Packed (positions 43, 55): 


Table Name (positions 27 to 32, 46 to 51): 
Length may be four to six characters with 
Model 20 Card RPG, TPS and DPS. Length 
must be six characters with BOS, TOS, 
DOS and OS. 


Must be blank 
for Model 20 Card RPG. May contain 
blank or ''P" for all other versions of 
RPG, indicating that table-input records 
are in packed-decimal format. 


4. Input Specifications 


Control Level (positions 59 to 60): 


Must be 


specified in ascending sequence (LI, L2, 
L3...L9) for Model 20 Card RPG. All other 
versions of RPG allow specifications in any 
sequence. 
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5. Calculation Specifications 


a. 


a. 


The RLABL operation may specify a 
label of one to four characters with 
Model 20 Card RPG. All other versions 
of RPG permit a length of one to six 
characters. 


. The ULABL operation is not permitted 


with Model 20 Card RPG, TPS or DPS. 
It is permitted with BOS, TOS, DOS and 
OS. 


. Two Halt Indicators (Hl and H2) are pro- 


vided with Model 20 Card RPG, TPS and 
DPS. BOS, TOS, DOS and OS provide 
nine Halt Indicators (Hl, H2, H3...H9). 


. Indicators entered for the Move Remainder 


operation (MVR) must be identical to the 
preceding Divide operation (DIV) with 
Model 20 Card RPG, TPS and DPS. They 
are ignored for BOS, TOS, DOS and OS. 


. An RLABL operation and a TAG operation 


do not permit entries in Indicators (posi- 
tions 9 to 17) with Model 20 Card RPG, 
TPS and DPS. All other versions of RPG 
ignore entries in Indicators for these 
operations. 


. Output-Format Specifications 


IBM 2560 MFCM operations (stacker 
selection to stackers 3, 4 and 5 and docu- 
ment printing) are supported by Model 20 
Card RPG, TPS and DPS only, since the 
MFCM is available only on the Model 20. 


. Model 20 Card RPG has one automatic 


page numbering counter, PAGE. TPS 

and DPS have two page counters, PAGE 
and PAGE1. BOS has three page counters, 
PAGE, PAGE! AND PAGE2. TOS, DOS 
and OS have eight page numbering coun- 
ters, PAGE, PAGE], PAGE2, PAGE3 

ie CI: 


. Space Before and Space After (positions 


17, 18): If left blank with Model 20 Card 
RPG, causes no spaces to be taken. TPS 
and DPS do not permit both of these entries 
to be blank on one line. If left blank with 
BOS, TOS, DOS and OS, a single space 
after printing will result. 


. Edit words must be the same size as the 
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data fields being edited with Model 20 
Card RPG, TPS and DPS. Edit words 
can be equal to, or larger than, the data 
field being edited with BOS, TOS, DOS 
and OS. 


From the above list, some guidelines for coding 
the RPG program can be generated and used to 
provide maximum compatibility with other ver- 
sions of S/360 RPG. These guidelines include: 


]. 


Road, Hawthorne, New York, 


Always enter a specification in File Designa- 
tion (position 16) on the File Description 
specifications. 


. Always use six-character table names. 


. Always specify the Control Level entries on 
the Input specifications in ascending sequence. 


. With RLABL operations, keep the length of 


the label specified within one to four char- 
acters. 


. Use Halt Indicators Hl and H2 whenever 


possible, rather than using H3, H4...H9. 


10, 
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Consider whether stacker selection or 
error message would be better than the 
use of Halt Indicators. 


. Always use the same indicators to condition 


the Move Remainder operation (MVR) that 
are used to condition the Divide operation 
(DIV) that precedes it. 


. Never put entries in Indicators (positions 9 


to 17) with the RLABL and TAG operations. 


. Always place an entry in Space After (posi- 


tion 18) on the Output Specifications. For 
Space supression, enter a zero. For single, 
double or triple spacing enter one, two or 
three. 


, Always set up the edit word to be the same 


Size as the data field being edited. 


Avoid using special features ona particular 
system configuration if you plan to run the 
program on different systems or models of 
S/360 which do not have the feature/s. 


NEW TYPE UI PROGRAMS * 


The following are the abstracts of programs which have been recently made available from 
the Type II library. 


The program, along with its complete abstract, will be incorporated in subsequent issues 
of the Catalog of Programs. 
Programs may be obtained by submitting a properly completed ''General Program Request 
Card" (Form Number 120-1145-1) to the Program Information Department, 40 Saw Mill River 


10532. 


These programs and their related documentation are distributed by IBM in the author's 

Original form and have not been subjected to any formal testing. 

Any discussion of Type III Programs must emphasize the following points: 

1. Type Ill programs are not part of the IBM product line, as are Programming 
Systems (Type I) or Application Programs (Type II). 

2. Type UI programs have not been subjected to any formal product test. 

3. Recipients of Type III programs are expected to make the final evaluation as 
to the usefulness of the programs in their own environment. 


4. There is no committed maintenance for Type III programs. 


However, any 


changes the author chooses to make will be announced in subsequent issues 


of the Catalog of Programs. 


NOTE: THE CUSTOMER MUST BE INFORMED THAT THE ABOVE APPLIES TO 
ANY OF THE FOLLOWING TYPE II ABSTRACTS FURNISHED TO HIM. 
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S/360 


DISK AND CORFE REQUIREMENT ANALYZER 
FOR THE S/360 BILL OF MATERIAL PROCES- 
SOR. This consists of two programs written 
in FORTRAN and run on either an IBM 1130 or 
or S/360 computer. The first program analyzes 
master file requirements, and the second pro- 
gram analyzes chain file requirements. These 
programs follow closely the analysis presented 
by the flow charts in Appendix E of the S/360 
Bill of Material Processor Programmer's 
Manual (H20-0246),. These programs provide 
no single, definite solution, but instead a num- 
ber of possible solutions which are presented 
in tabular form. The IBM representative and 
customer can analyze and weigh the advantages 
of one solution over another and arrive at the 
optimal solution tailored to the customer's 
needs and hardware configuration. These pro- 
grams save many hours of manual calculation 
which normally just would not be performed to 
arrive at the optimal solution for a particular 
installation. 


System Configuration: For S/360: 
ing Unit (Model D) with Floating Point Option, 

Card Reader (any S/360 model), Printer (any 

S/360 model with at least 120 print positions). 
For the 1130: 8K Processing Unit (Model 1B), 
1442 Card Read Punch, 1132 Printer. 


Ordering Procedure: Order File Number 360D- 
12.1.007. The program material can be ob- 
tained in card form or on one 9 track or 7 

track (Data Conversion feature required) Dis- 
tribution Tape Reel (DTR). The requester 
must indicate whether a 9 track or 7 track 

DTR is required. If not specified, a 9 track 
DTR will be provided. No tape submittal is 
required - the DTR will be provided by the 
Library. 


TAPE FILE CREATION PROGRAM. This pro- 
gram produces S/360 tape files with blocked 

or unblocked variable or fixed length records 
from card input. The BPS utility and the Auto- 
test card-to-tape programs are very limited 
when output records are other than fixed 

length or have varying formats. This program 
will write packed, unpacked or binary data on 
the tape according to field control characters 
punched in data cards. There is no need for 
the user to determine the block count and/or 
record count for variable length records, as 

in autotest, nor are the blocks limited to 400 


16K Process- 
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characters. Ease of use and flexibility of out- 
put are the main criteria for using this program 
in preference to the current utilities mentioned. 


System Configuration: Written in 5/360 as- 
sembler language, the program requires less 
than 16K of core (including supervisor and job 
control) and one 2400 series tape drive. It 

is extremely valuable in pre-installation testing. 


Ordering Procedure: Order File Number 360D- 
00.3.004. The program material can be ob- 
tained in card form or on one 9 track or 7 track 
(Data Conversion feature required) Distribution 
Tape Reel (DTR). The requester must indicate 
whether a 9 track or 7 track DTR is required. 
If not specified, a 9 track DTR will be provided. 
No tape submittal is required - the DTR will be 
provided by the Library. 


EASING DOS TPLAB RESTRICTIONS. Current 
implementation of the //TPLAB card has the 
requirement that all fields (reel serial, etc. ) 
are to be punched prior to use. 


This package consists of two transient routines 
inserted in the string of routines used to open 
tape files. These routines cause, in general, 
only those fields that are punched to be checked 
while those fields that are blank will be filled 
with proper data before label checking is 
performed. 


Retention period facilities are provided as well 
as optional indication on SYSLOG that opening 
is occurring. 


Ordering Procedure: Order File Number 360D- 
03.4.012. The program material can be ob- 
tained in card form or on one 9 track or 7 track 
(Data Conversion feature required) Distribution 
Tape Reel (DTR). The requester must indicate 
whether a 9 track or 7 track DTR is required. 
If not specified, a 9 track DTR will be provided. 
No tape submittal is required - the DTR will 

be provided by the Library. 


1130 


IDEAL STR COMMUNICATION IN IBM 1130 
FORTRAN WITH BCD, EBCDIC AND BINARY 
I/O. This package of subroutines provides the 
IBM 1130 FORTRAN user with the required 
calls to operate the Synchronous Communica- 
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tion Adapter (#7690) in STR mode. Both BCD Ordering Procedure: Order File Number 1130- 
and EBCDIC subset data codes are supported 15.7.001. Distribution will be in card form on ¢ 
for communication with existing STR terminals. only. | 
Data I/O is in FORTRAN Al format. No in- 
ternal restrictions exist as to transmittal record 
Size, number of subtransmittal records, data 
buffering or terminating group marks (338 
words+SCAT1+STRTB+HXCV). New "IDEAL" 1401 
I/O subroutines are provided to support con- 
current 1132 printing with SCA operation (192 TALLY ANALYSIS REGISTRATION AND 
words+PRNTZ), Column Binary card reading SCHEDULING - 1401. TARS - 1401, written 
and punching (274 words+CARD1). Modify in Autocoder, is designed for an 8K, 1-disk 
CNVRT for 256 character conversion (32 1401 System for Student Scheduling in secondary 
words). Display variable in A&Q (14 words). schools. The programs produce aids to Master 
Disk I/O with SCA (18 words). All are written Schedule Building (Tally and Conflict Matrix) 
in Assembler language. Six FORTRAN demon- and, using a master schedule prepared by the 
stration programs are provided to exercise school, process student course requests to 
these routines. create student schedules and an updated 

| master schedule. 

System Configuration: Useful non-disk 1/O 

IDEAL FORTRAN communications programs This contribution represents a conversion of 

fit 4K systems. Column binary card I/O may Program Number 1440-11. 3.001* which is a 

be used in any program. User FORTRAN 1440 student scheduling package. With the 

programs must use one word integer option. new program, schools with a 1401 installation 
will be able to schedule students on their own 

Ordering Procedure: Order File Number 1130- equipment. 

03,0.006. Distribution will be in card form only. 

If source decks are desired, they must be ordered Ordering Procedure: Order File Number 1401- 

as optional material. 14.0.025. Distribution will be in card form & 
only. 


* A new version of the 1440 TARS program is 
now available from the Type III library. 
Users of the 1440 TARS program should 
order a complete new program using File 
Number 1440-11. 3.001. 


INVENTORY SIMULATOR - FORTRAN IV. 
This program, which allows the simulator 
options to be selected by means of a control 
card, is a modified version of the Modular 
Inventory Simulator, PID number 1401-CS-03X 
or 1620-CS-04X, version 1, modification 
level 0. The concept of a Beta factor which 
expresses the relationship of MAD and time 
has been included in this program. 


The use of an inventory simulator has proven 

to be a valuable technique for defining the ob- 
jectives of an inventory system and for pre- 
testing the decision rules selected to accomplish 
these objectives. 


System Configuration: This program is written 
in FORTRAN IV and was compiled and tested 
ona 8K IBM 1130 using the IBM 1130 Monitor 
FORTRAN. However, since this program was 
written in FORTRAN IV, it could be run on any 
system, i.e. S/360, 1800, etc., which has a 

FORTRAN IV compiler and enough core. _ 
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OS/360 RELEASE 11 - SYSTEMS GENERATION 
CONSIDERATIONS 


SYS1.MACLIB, blocked, requires 460 tracks 
instead of 410 as indicated in the Storage Esti- 
mates manual. This results ina Format 3 
DSCB in the VTOC if less than 460 tracks are 
allocated to SYS1. LIB. 


If you are planning to use F level linkage editor, 
PTF's 8982, 9007 and 1064 must be applied be- 
fore beginning Stage Il. However, there is not 
enough room in SYS1. LINKLIB in the distributed 
starter system to accommodate an enlarged 
SYS1. LINKLIB. The following procedure may 
be used: 


1. Pre-allocate 45 cylinders, 50 directory 
entries in a data set with a unique name 
(HOPE), on DLIBO1. 


2. Move SYS1. LINKLIB, using IEHMOVE 
utility program, to the new area on DLIBOI, 
using rename to HOPE. 

3. Scratch SYS1. LINKLIB, rename HOPE as 

SYS1. LINKLIB. 


4. Apply PTF's. 


OS/360 BISAM - DETERMINATION OF CORE 
SPACE 


A routine has been developed to determine 
dynamically the core space required by the 
highest level of index, and place this informa- 
tion in the DCB. This routine utilizes the 
DCB exit at OPEN time to access the routine 
which will extract the 'NCRHI' value from the 
format 2 DSCB for the data set. At the time 
OPEN exits to the DCB modification routine, 
the following events have taken place: 


1. OPEN has constructed a work area for the 
DCB being OPENED and has placed the work 
area address in the DCBDEBAD FIELD of 
the DCB (DCBt44). 


2. OPEN has read the FORMAT 1 DSCB and 
the JF CB into the workspace and has filled 
in the DCB with FORMAT 1 information. 


3. OPEN has read the FORMAT 2 DSCB into 
an additional work area, but has not filled 
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in the DCB fields. The address of the 
FORMAT 2 DSCB can be found in the OPEN 
work area following the FORMAT 1 DSCB 
at work area + 96, 


In the exit routine, the user can find the 'NCRHI' 
value at (FORMAT 2 DSCB + 64). Using this 
value, he should allocate space by GETMAIN 
and fill in the DCBMSHI (DCB+72) and the 
DCBSMSI (DCB+68) fields. Later in its exe- 
cution OPEN will read the highest level of 
INDEX into the allocated space. See Exhibit 1 
for the exit routine. Users should be aware 

that this routine has not been submitted to any 
formal IBM test. 


NOTE: Users DCB must use EXLST parameter 
and point to address of the exit list. In Exhibit 
1, itis EXLST=LIST. 


OS/360 AND DOS/360 QTAM 


At the present time, QTAM is designed in such 
a manner that there is no ''wrap-around'" to re- 
use space on the disk queue. 


The only way to start back at the top of the pack 
(beginning of the queue) is by re-IPLing. 


This may present a severe limitation for a 
customer who is attempting to run a 24-hour 
T/P operation, or one who has a high volume 
of traffic during a shift or day. 


The current version of QTAM will go into a loop 
if the space on the disk queue becomes filled. 


OS/360 LINKAGE EDITOR F 


This linkage editor is being withdrawn from 
OS/360 Release 12. An article in Installation 
Newsletter issue 67-12 (page 5) described the 
differences between the E (44K) and F linkage 
editors, plus the procedure which would be 
followed when eliminating LE-F. Users re- 
quiring LE-F to perform the transition process 
should plan to retain their F editor from an 
earlier system, or obtain assistance from 
Field Engineering. 
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THADCB, (X) X=Register of users choice 


(NAME OF USERS DCB) 


(BRANCH AROUND FOLLOWING ROUTINE) 


OF 
X'85! POINTER IN EXIT LIST 
AL3(EXIT) TO USERS ROUTINE 
X, (USERSDCB) X=REGISTER USED IN THE 
ABOVE USING STATEMENT 
8, DOBDEBAD Load Pointer to open 
work area - DOB+44 
7, 96(8) Extract ADDR of format 
2 DSCB from work area 
G7), X'G2" Test for code in first 
byte of DSCB 
RETURN ‘Return if not FORMAT 2 
44(7),C'2! Double ck- FORMAT 2 IDENT. 
RETURN 
0, 64(7) 'NCRHI' value is at location 
: 64 in DSCB 2 
J, DCBSMSI Establish index size in 
DCB - DCB+68 


EC, LV=(%), A+TEMF Return code in R15 


% = space alloc 


4 =n0 space avail 


*+4(15) Test return code 
AROUND Space was allocated 
Exhibit l 
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OS/360 BISAM-DETERMINATION OF CORE SPACE 


91. RETURN BR 14 


22. AROUND MVC 


23. RE TURN 


24. TEMP DS F 


DCBMSHI+1(3), TEMP +1 
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Go back to OPEN 


(OR DCB + 72) 

establish index address 

in DCB without destroying 
high order byte of the MSHI 
word - it contains 'NCF' 


Exhibit 1 (continued) 


The most significant difference between the 
LE-E (44K) and the LE-F was the number of 
overlay segments which could be handled (63 
compared to 255). Release 12 will expand the 
LE-E (44K) capability to 255, thus removing 
the major limitation. Consideration is being 
given to a new improved linkage editor F to 
replace that withdrawn from Release 12, al- 
though plans are not yet firm. 


DOS/360 SEQUENTIAL DATA SETS CREATED 
ON A 1316 


DOS/360 sequential data sets created on a 1316 
with deleted data sets are incompatible with 
M44PS. DOS/360 does not update the last 
Format-1 field in the Format-4 label. Assum- 
ing N deleted data sets on the DOS/360 1316, 
one must allocate N+l M44P%S data sets to this 
1316 which will cause the M44P%S to update the 
label. | 


NOTE: Before using any DOS/360 created 1316 
with M44PS, execute the utility map function 
upon it to update the Format-5 label. The num- 
ber of deleted data sets will be noted on the map 
print out. 


DOS/360 ASSEMBLER OPTIONS CORRECTION 


Issue No. 67-11 contained, on page 5, an article 
titled ''DOS/360 Assembler Options.'' Paragraph 
3 of that article indicated a restriction pertaining 
to the intermixing of work units which does not 
exist. The corrected paragraph follows: 


Additional Core (IJQD32). This option re- 
quires 14K bytes of main storage and allows 
SYSO01, -002, -003 to reside on disk or tape 
work units. Additional main storage, if 
available, will be used to expand certain 
tables. The work areas and I/O buffers 

also are expanded. Certain sub-phases 
which are normally overlays are loaded in 
together. The maximum core used is some- 
what less than 60K. 


S/360 ~ 7070/7074 SIMULATOR 360C-S1753 


The performance information contained in SRL 
C28-6530-1 applies only to the simulation of | 
5,000 or 10,000 word 7070/7074 programs. 


7074 programs that use more than 10,000 words 
will be executed by the simulator at approximately 
80 percent of the 5,000 or 10,000 word perfor- 
mance. 


A TNL containing this new performance infor- 
mation will be released. 
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S/360 MODEL DEPENDENCIES 


The following article concerns the compatibility 
aspects of S/360 and the implications of using 
S/360 functions that are defined to be unpredic- 
table (see S/360 Principles of Operation, A22- 
6821, pages 5 and 161-164), 


Three types of model dependencies may be dis- 
tinguished in S/360: model dependencies due 

to implementation, due to physical capabilities, 
and due to logical capabilities. 


Each model of S/360 is unique in its physical 
implementation. This uniqueness is reflected 
in the programming aspects that pertain to the 
diagnosis and maintenance, such as the execu- 
tion of the instruction DIAGNOSE, the causes of 
the machine-check interruption, and the format 
and amount of the information scanned out upon 
detection of equipment malfunctioning. This 
information is essential for maintenance of the 
machine, and must be made available to those 
concerned with these functions. This informa- 


tion, including the operation of DIAGNOSE, how- 


ever, does not concern and must not be used by 
those who want to benefit from the compatibility 
of S/360. 


The physical capabilities include such aspects 
as execution times, I/O data rates, and the 
systems facilities available. 
differ among models and are significant attri- 
butes of a system. Information on these as- 
pects is widely disseminated. These capabil- 
ities are a measure of what resources are 
available and how fast a task can be performed. 


To properly utilize a system, the program 
must be aware of the resources, and hence 

the programmer must have the information. 
The presence of the required physical facil- 
ities, in fact, is one of the constraints on 
compatibility of S/360 (see page 5 of Princi- 
ples of Operation, A22-6821). Dependence on 
a facility, such as the floating-point feature, 
means that a program will not run on a system 
without this facility; but as long as the require- 
ments for the systems facilities are satisfied, 
the program runs on any present or future 
model regardless of the identity of the CPU. 


The above applies also to the information on 
CPU and I/O timing. This information pro- 
vides a measure of system performance and 
is needed both for configuration and for effi- 
cient utilization of the system. In using timing 
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information, one must be careful, however, to 
avoid implicit time dependencies in the program, 
i.e., the compatibility rules of S/360 hold only 
when the program is independent of the relation 
of the instruction execution times and of I/O 
data rates, access times, and command execu- 
tion times. 


One of the basic and most significant goals of 
S/360 was that all models perform the logical 
and arithmetic functions identically, provided 


-the constraints on the required physical facili- 


ties and independence of time relations are 
satisfied. Considering the complexity of the 
machines and the number of alternatives in 
which each function could be performed, this 
goal has been achieved to a very high level. 
Identical operation, however, could not be 
justified for a number of functions concerning 
invalid programs or machine malfunctioning. 


These functions are those for which neither 
frequency of occurrence nor usefulness of re- 
sults warrant identical action on all models. 


Whenever non-identical operation was permit- 
ted, the result was said to be unpredictable. 
All functions that may differ among models 
are described on pages 161-164 of the 5/360 
Principles of Operation SRL. These functions 
include all logical or arithmetic operations 
where compatibility is not maintained, as well 
as the implementation-oriented functions (e.g., 
DIAGNOSE) which may, by some users, be 
mistakenly assumed to be a user-oriented 
logical facility. 


The intent is that the user must ignore any re- 
sults that are defined to be unpredictable. Thus, 
no particular accommodation is required for 
these functions; the only requirement is that 
users should not depend on any particular value 
of a result that is defined to be unpredictable, 
realizing that the function may differ among 
models. 


If the user understands the reason and the mean- 
ing of the model-dependent functions, he should 
not be concerned with finding out how each 
machine performs the incompatible functions. 
Therefore, this information is not made gener- 
ally available; instead, more emphasis is put 
on educating the users on the meaning and 
value of compatible architecture and on ways 

of benefiting from it. 


There will, of course, be exceptions to the type 
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of user as originally envisioned by Systems 
Architecture. There will be users who either 
have specialized applications or want to sacri- 
fice the value of uninhibited future growth for 
additional function. Such use is equivalent to 
installation of an RPQ function. 


NEW PUBLICATIONS ANNOUNCED BY PRL'S 


The weekly PRL's (Publications Release Let- 
ters) are used to insure that all Salesmen and 
Systems Engineers are aware of new or revised 
Marketing Publications. Normally, each issue 
of the Newsletter will contain information from 
two PRL's, one following the other. The in- 
formation will be placed in the Newsletter in 
its original form with no rearrangement of 
form numbers or titles. It is not intended to 
replace existing information and distribution 
sources. You should be certain that you are 
aware of these sources. 


INFORMATION ABOUT THE NEWSLETTER 


EVERY SALESMAN AND SYSTEMS ENGINEER 
SHOULD RECEIVE ONE COPY OF THE NEWS- 
LETTER, Each FE Branch Manager should 
receive five copies for distribution to Customer 
Engineers, 


The IBM Installation Newsletter is distributed 
only to IBM locations and is not available to 
customers. The Newsletter is separated into 
two parts. The first part contains information 
which is intended only for IBM personnel and 
the pages are labeled For IBM Internal Use 
Only. THESE PAGES, OR REPRODUCTIONS 


a eS ee 
OF THEM, ARE NOT TO BE GIVEN TO 


CUSTOMERS. However, using your own good 
judgment, you may discuss pertinent informa- 
tion from these pages with a customer. The 
second part contains information which may 

be REPRODUCED by the Branch Office at their 
discretion and given to customers. These pages 
are not labeled with any restrictive classifica- 
tion. Note that when any abstracts for Type III 
programs are given to the customer, he must 
be informed that the disclaimer for Type III 
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programs, as contained in the Newsletter, ap-_ 
plies. YOUR COOPERATION IN PROPERLY 
HANDLING THE CONTENT OF THE IBM IN- 


STALLATION NEWSLETTER IS NECESSARY 


FOR ITS CONTINUED PUBLICATION, 


Changes to the quantity of the Newsletter ship- 
ped are to be made by the Administration 
Manager. (NOTE THAT EXTRA COPIES OF 
THE NEWSLETTER ARE NOT TO BE ORDERED 
FOR DISTRIBUTION OF INFORMATION TO 
CUSTOMERS, ) He should update and send the 
DP Administration Managers' Communication 
Control card (form number N44-780) to DP 
Communication Control, DPD HQ. (The card 
N44-780 replaces N37251, ) 


Direct inquiries concerning the contents of this 
Newsletter to: 


W. P. Gaffigan, Editor 

IBM Installation Newsletter 

Systems Engineering Technical Programs 
DPD HQ 

112 East Post Road 

White Plains, New York 10601 

Telephone 914 WH9-1900 Extension 4781 
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IBM 2915 Airliaes Display Terminal Facts Folder 
IBM 1412 Magnetic Character Reader Model 1 


IBM 1050 Operator's Guide 
IBM 2303 Drum Storage OEMI 
Piecework Payrolls for the Garment Industry 


IBM S/ 360 BPS Input/Output 1412/1419 Specifications and Operating Cuide 


IBM S/ 360 BPS, Basic Tape System, System Generation and Maintenance 

70S Input/ Output Interpretive Program for the IBM 7080 INT 580 

Mechanized Library Procedures for the IBM Advanced Systems Development Division Library 

Los Gatos, California 

IBM System/ 360 Flowchart (360A-SE-22X) User's Mammal 

Civil Engincering Coordinate Geometry (COGO) for IBM 1130 Model II (1130-EC-02X) User's Man, 
1400 Autocoder to COBOL Conversion Aid Program (360A-SE-19X)} Application Description Man, 
Udlity Programs for IBM 1401 Tape Systems - Specifications 


Fisst National Bank in St. Louis Online Savings and Mortgage Service» 

TNL for General Purpose Simulation System/ 360 Disk Operating System (360A-CS=19X) Operator's 
Manual Re: H20-0327-0 

FORTRAN IV Lang. Specs. Prog. Specs, & O.P. IBM 1401, 1440 & 1460 Re: C24~-3322-2 with 
N21-5051 

ENL to IBM Data Comm, Concepts Education Guide Re: R20-4086-0 

TNL to A26~-5847=2 System/ 360 Model 20 Functional Characteristics with N26-0176 & peels 
IBM 1080 Functional Characteristics Re: A26~3661-1 with N26-0186 


ISM 7090/7094 IBSYS Operating System, Version 13: Input/Output Control System Re: C28-6345-4, -5, 


with N28-0201 & N28-0176 

TNL to Mod. 20 TPS CTRL & Serv. Re: C24-9000-1 

IBM S/ 360 Basic Programming Support: Sort/ Merge Programs Operating Guide Re: C24-3413-2 with 
N21-5046 


[BM S/ 360 Operating System: Queued Telecommunications Access Method, Message Control Program 
~ Re: €30-2005-0 


TNL to Mod, 20 TPS, Utility Programs Re: C26~-3808-1 
IBM IMPACT Exec, Seminar Education Guide 

IBM Data Communication Concepts Course Description 
FORTRAN IV for IBM System/ 360 P, I, Chapter 1 
FORTRAN IV for IBM System/ 360 Pf. Chapter 3 
FORTRAN IV for IBM System/ 360 P.I. Chapter 4 


9361 Student Guide 
[BM 1620 Programs for Petroleum Exploration (slides) 
IBM 1620 Programs for Petroleum Engineering (slides) 


' Physical Planning Template System/ 360 Model 20 | if 


9361 Instructors Guide 

The NOBLIS Computer, its Simulator, a Course Outline and Teaching Notes as used to Introduce 
System/ 360 Computer Concepts 

A System/ 360 Mod, 20 Method of Performing the Large Printing Functions of a 519 End Printer 
Interfacing Tape and Communications IOCS in the System/ 360 Mod 20 

The Optimization of Condensate in the Production of Gas Wells 
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DOS/360 - ABILITY TO OPEN 7 TRACK TAPE 


FILES WITH LABELS 


Labels on 7 track tapes must be initialized with 
translate on, data convert off, and even parity, 


regardless of the mode of the data to be recorded 


on that file. IOCS reads the labels assuming 
this condition. IOCS does, however, check the 
mode setting for density. 


DOS/BOS INDEXED SEQUENTIAL FILE 
MANAGEMENT SYSTEM 


The following two notes may affect the use of 
ISFMS. | 


1. During an add/retrieve operation, ISFMS 
does not create new entries in the indices 
that are maintained. This poses a problem 
when a file is being extended by adding new 
records to the end of the file and other rec- 
ords in the file are randomly retrieved. 
The file is extended, but all new records 
are added into the data overflow areas only 
(not by extension of the prime data area). 
The solution is to define the file twice - 
once as an add operation, and once asa 
retrieve operation. | 


2. A word of caution is necessary when using 
packed keys. If it becomes necessary to 
sort the file, the user must reorganize from 
IS to sequential organization. If this file is 
later reorganized to IS, the packed keys now 
contain a sign configuration of ''C"' not "F"! 


as it was when the file was originally loaded. 


(The sort created this configuration.) The 
significance of this is that any searching 
for these records must contain an identical 
sign configuration since the search is done 
ona bit by bit comparison of the key. 


DOS/360 RPG - LINE COUNTER SPECIFICATIONS 


A significant improvement in throughput speed 
can be achieved when using the Line Counter 
specifications in DOS/360 RPG for printers in- 
stead of carriage tapes. The Line Counter 
specifications define the carriage tape for a par- 
ticular job, and RPG then keeps track internally 


of where every line is to be printed. This 
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means that RPG never issues a test for carriage 
overflow on the printer when using the Line 
Counter specifications. 


Because RPG only sets up one I/O area for each 
file, this means that if you are not using the Line 
Counter specifications, DOS/360 waits for device 
end on each print command so that it can then is- 
sue the test for carriage overflow. The overlap 
of other processing and other I/O commands is 
eliminated while waiting for device end. When 
using the Line Counter specifications, DOS/360 
does not have to wait for device end. 


The Line Counter specifications are, in effect, 
a picture of the carriage tape. Thus, 
punched carriage tape is required. ''Skip to 
channel..." will be generated as first character 
forms control. 


The above suggestion can only be implemented 
starting with Version 2 Level 3 of RPG, which 
was distributed with Release 11 of DOS/360. 


PL/I - LOCATING DSA-MAIN IN A PROGRAM 
WITH OVERLAYS UNDER S/360 DOS 


In a program without overlay, the hi-core ad- 
dress, shown on the link edit map, plus up to 
seven bytes to go to double word boundary, will 
point to DSA-Main. With overlays, however, it 
is no longer valid. At the address of the COM- 
REG plus X'24', the address of hi-core for the 
last phase fetched will be stored. At COMREG 
plus X'28', the address of hi-core for the entire 
program will be stored, and this will be the ad- 


dress of the peginning of DSA-Main. 


PL/I - VALIDATION OF REGISTER CONTENT 
UNDER S/360 DOS | 


Due to the manner in which PL/I manipulates 
the registers, the registers listed with a pro- 
gram dump on a termination type error may 

or may not be valid. At the time a program 
check interrupt occurs, the old PSW and the 
registers (0-15) are stored in the library work- 
space labeled on the link edit map IJKZWSI. 
The contents of register 13 will always point 

to the last active DSA and thus can be used to 
chain back through all the active DSA. 


a properly 


ee 
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S/360-20 IOCS FOR THE 1419 


Unless a buffer-full condition or user-issued 
DSENG occurs in conjunction with the last 
documents, the 1419 is engaged when the last 
document is read, causing a dummy read into 
core, 


A solution to this problem is to make a test for 
the non-existent document, both in the stacker 
select routine and in the processing routine. 


S/360-20 DISK CONTROL PROGRAM POINTERS 


1. General registers 8, 24 and 25 are used and 
not restored by the system loader. 


2. The number of tracks allocated to the Core 
Image Directory or Macro Directory is 
limited to 10. 


S/360-20 RPG POINTERS CORRECTION 


Installation Newsletter issue 67-10 contained, 
on page 22, an article titled 'S/360-20 RPG 
Pointers.,'' Paragraph 2g of this article should 
read: 


All indicators can be set on or off, including 
1P and OF. 


S/360-20 DISK FILE CAPACITY ESTIMATION 
CORRECTION 


Installation Newsletter issue 67-11 contained, 
on pages 22 through 27, several charts titled 
'S/360-20 Disk File Capacity Estimation." In 
the heading for each chart, the statement: 


One/Two Track(s) for Index = Key Length X-X 


should be 


One/Two Sector(s) for Index = Key Length X-X 
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RPG TAX COMPUTATION SUBROUTINE 


This subroutine computes federal, state, city 
and FICA taxes for a weekly payroll (see 

Exhibit 1). Entry to the routine is ''TAX" and 
input that must be supplied is gross pay ''GROS'"! 
(7 positions with 2 decimals), number of ex- 
emptions 'EXMP" (2 positions with no decimals), 
year to date FICA tax 'FICA" (5 positions with 

2 decimals), and marital status via indicator 

50 (on for married). The four taxes are re- 
turned in "FIT," "ST," "CITY," and '"FICA, " 


State taxes are based on the Maryland Tax 
Structure which parallels the federal logic with 
the addition of a standard deduction allowance 
of ten percent of gross pay up to a maximum 
of $100.00 for a weekly payroll. 


City taxes are a fixed percent of gross, and the 
percentage has been left zero for this routine. 


For states other than Maryland and for payroll 
systems other than weekly, changes in the con- 
stants and tables will be necessary to tailor the 
routine. 


The entire routine, including tables, takes 524 
bytes and will be less with the exclusion of the 
city tax routine where it does not apply. 


1401 TO S/360 RPG CONVERSION CONSIDERA- 


TIONS 


The following is a list of items to facilitate con- 
version of 1400 RPG to S/360 RPG. 


1. All fields being edited have to be specified as 
numeric on the Data Specification Sheet. 


2. All fields being zero-suppressed have to be 
specified as numeric on the Data Specifica- 
tion Sheet. 


3. All fields being used in an Arithmetic Opera- 
tion have to be specified as being numeric on 
the Data Specification Sheet. 


4. Two fields being compared have to be spe- 
cified as being both alphameric or both 
numeric on the Data Specification Sheet. 
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7 
ae _ CUR PG TAX COMPUTATION SUBROUTINE TAX 10 @ 
2 RPG SUBROUTINE FOR FENERAL, STATE, TAX 20 
* CITY, AND FICA TAXES (WEEKLY) | TAX 30 
*x WRITTEN BY ReP.eCHAMBERS 042 TAX 40 
* JUNE ,1967 TAX 50 
* TAX 60 
* ENTRY - TAX TAX 70 
* TAX 80 
* EXTERNAL SYMBOLS TAX 90 
* EXMP —- NUMBER OF EXEMPTIONS TAX 100 
* GROS - GROSS PAY TAX 110 
* FIT - FEDERAL TAX TAX 120 
* ST - STATE TAX (BASED ON MARYLAND) TAX 130 
* CITY - CITY TAX (BASED ON 00% OF GROSS) TAX 140 
* FICA - SOCIAL SECURITY TAX TAX 150 
* (YTD FICA SHOULD BE PUT IN FICA TAX 160 
* SO THAT ROUTINE CAN STOP AT TAX 170 
* LIMIT) TAX 180 
* INS5SO - INDICATOR 50 IS ON FOR MARRIED TAX 190 
* TAX 200 
* TAX 210 
TAX START O TAX 220 

EXTRN EXMP LENGTH = 2 BYTES TAX 230 
EXTRN GROS LENGTH = 4 BYTES TAX 240 
EXTRN FIT LENGTH = 3 BYTES TAX 250 
EXTRN ST LENGTH = 3 BYTES TAX 260 
EXTRN CITY LENGTH = 3 BYTES TAX 270 
EXTRN FICA LENGTH = 3 BYTES TAX 280 
EXTRN IN50O LENGTH = 1 BYTES TAX 290 
* | TAX 300 & 
* ROUTINE INITIALIZATION TAX 310 
x TAX 320 
BASR 15,0 | TAX 330 
USING *,15 TAX 340 
STH 8;SAVB SAVE REG.8 TAX 350 
STH 10¢SAVA SAVE REG.10 TAX 360 
* 7 TAX 370 
* FIRST ROUTINE COMPUTES FEDERAL TAX TAX 380 
* TAX 390 
ZAP WORK s0(2) LOAD NUMBER TAX 400 
ORG K— 2 OF EXEMPTIONS TAX 410 
DC Y(EXMP) INTO WORK AND TAX 420 
MP WORK y,K1L _ MULTIPLY BY EXEMP AMY (MINUS) TAX 430 
AP WORK ,0(4) ADD GROSS TO TAX 440 
ORG aw, DETERMINE TAX 450 
DC Y(GROS) TAXABLE GROSS AND TAX 460 
BC 12,NOF a BRANCH TO NOTAX IF ZERO OR MINUS TAX 470 
LH 8,ADC1 | LOAD ADDRESS OF SINGLE TABLE TAX 480 
CLI 0,X*00! — CHECK FOR MARRIED TAX 490 
ORG x= 2 - AND LOAD ADDRESS TAX 500 
DC Y(IN50) OF MARRIED TABLE TAX 510 
BC} §©8,*+8 IF SO, THEN ~ TAX 520 
12 LH 8,ADC2 GO TO TABLE | TAX 530 
W)..O!”~ O@BAS 10,LO0K LOOK UP ROUTINE | TAX 540 | 
10 ZAP 0(3),WORK+5(3) PUT TAX IN FIT | TAX 550 
9 ORG x= G TAX 560 
8 DC Y(FIT) TAX 570 
: Exhibit 1 
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BC 15,*+10 TAX 590 
* SP FIT,FIT ZERO FIT (DUMMY INSTR) - TAX 600 
NOF_ OC KI Ba ee eee AX LO. 
DC Y(FIT) | TAX 620 
ee Wey een re a er ae er RE pages 
* TAX 640 
* SECOND ROUTINE FINDS STATE TAX TAX 650 
ZAP HOLD ,0(2) LOAN NUMBER OF TAX 660 
ORG *x—2 EXEMPTIONS IN HOLD TAX 670 
NC Y(EXMP) TAX 680 
MP HOLD,K3 | MULTIPLY BY -15.50 TAX 690 
ZAP WORK »0(4) LOAD GROSS PAY TAX 700 
~—i<SORGCORD.”~—”””””””””.. SM EN WORK RX FTO 
DC Y(GROS) TAX 720 
~ SP WORKsK2.©6§©S6UBTRACT LIMIT ......}©»©§©™['’9WWNNS OO TAX 730.—~— 
BC 29STl IF POSITIVE, NEDUCT LIMIT TAX 740 
~ ZAP +WORK,0(4) &4OTHERWISE DEDUCT 10% ..©@© 6 T™AX.UTSOUT 
ORG *x—2 | | TAX 760 
DC Y(GROS) i i oS eae & sae 
BC 15,ST2 TAX 780 
ST ZAP WORK yK2+2(1)- EFFECTIVELY LOAD WORK WITH TAX = 190 ~~ 
OI WORK+5, X'10! LIMIT TO THREE DECIMALS TAX 800 
ST2 AP WORK ,HOLD ~ ADD EXEMPTION AMOUNT ©6©TMAX©6~hCUB1LO.C~™S 
AP WORK,FIVE ROUND OFF WORK TAX 820 
MVD. + WORK sWORK(7) TO TWO DECIMALS TAX 830 
NI WORK+7eX'O1! MAKE EXEMP AMT NEGATIVE TAX 840 
AP WORK ,0(4) AND ADD GROSS TO : TAX 850 : 
ORG x=? | DETERMINE THE TAX 860 
DC Y(GROS) TAXABLE AMOUNT TAX 870 
BC 12,NOST IF ZERO OR MINUS, THEN NO STATE TAX 880 
LH 8,ADC3 LOAD ADDRESS OF STATE TABLES TAX 890 
BAS 10,LOOK AND BRANCH TO LOOK UP ROUTINE TAX 900 
ZAP 0(3),NORK+5 (3) PUT STATE TAX IN ST TAX 910 
ORG *=-4 | TAX 920 
DC Y(ST) | TAX 930. 
ORG *+2 | TAX 940 
BC 15,*+10 ~ TAX 950 
* SP ST,»ST ZERO STATE TAX (DUMMY INSTR) TAX 960 
NOST DC X'FB32' OCD PAX GTO 
DC Y(ST) TAX 980 
DC Y(ST) TAX 990 
* | TAX 1000 
* THIRD ROUTINE COMPUTES CITY TAX. . ~ FAX 1010 
ZAP WORK ,0(4) LOAD GROSS PAY TAX 1020 _ 
ORG = =*=2 IN WORK TAX 1030 
NC Y(GROS) TAX 1040 
MP WORK K4 MULTIPLY BY TAX PERCENT TAX 1050 
MVO WORK ,WORK(7) ROUND OFF TO TAX 1060 
AP WORK »FIVE TWO DECIMALS TAX 1070 
MVO WORK » WORK(7) TAX 1080 
AP” 03) -NWORK45(3) PUT CITY TAX IN CITY | TAX 1090 
12 ORG ad | TAX 1100 | 
DC Y(CITY) — TAX 1110 
10 ORG *+2 TAX 1120 
% AX 
8 FOURTH RUUTINE COMPUTES FICA TAX TAK NGO 
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. ZAP WORK »0(4) LOAD GROSS PAY TAX 1150 
ORG x=? IN WORK TAX 1160 
DC Y(GROS) TAX 1170 
MP WORK 9&5 MULTIPLY BY FICA PERCENT TAX 1180 
OT WORK+5,X'OF!? RNUND OFF TO TAX 1190 
AP WORK(6) ,FIVE TWO DECIMALS TAX 1200 
MVO WORK (6) sWORK (5) TAX 1210 
AP 0(3)sWORK+3 (3) AND ADD TO YTN TAX IN FICA TAX 1220 
ORG Ka Gy TAX 1230 
DC Y(FICA) TAX 1240 
ORG *K+2 TAX 1250 
SP 0(3),K6 SUBTRACT LIMIT AND TAX 1260 
ORG aan TAX 1270 
DC Y(FICA) TAX 1280 
ORG x42 TAX 1290 
BC 12,ALL IF ZERO OR MINUS PUT ALL TAX IN FICA TAX 1300 
SP WORK+3(3) -0(3) IF PLUS, SURTRACT EXCESS FROM TAX TAX 1310 
ORG x= 2 ~ TAX 1320 
DC Y(FICA) TAX 1330 
ALL ZAP 0(3),WORK+3 (3) AND THEN PUT IN FICA TAX 1340 
ORG kG | TAX 1350 
DC Y(FICA). TAX 1360 
ORG +2 TAX 1370 
* TAX 1380 
* END OF ROUTINES TAX 1390 
x TAX 1400 
LH 8,SAV8 RESTORE REG.8 TAX 1410 
LH 10,SAVA RESTORE REG.10 TAX 1420 
BCR 15414 RETURN TO MAIN PROGRAM TAX 1430 

* TAX 1440. 
* THIS ROUTINE LOOKS UP NEXT LOWEST TABLE TAX 1450 
* ENTRY(REG.8 POINTS TO ARG. TABLE) TO TAXABLE TAX 1460 
* GROSS CONTAINED IN WORK. THEN THE TABLE ARG TAX 1470 
* IS SUBTRACTED TO FIND EXCESS3; MULTIPLIED BY TAX 1480 
* PERCENT AND THE BASE TAX IS THEN ADDEN WITH TAX 1490 
* FINAL TAX RESULT IN WORK. TAX 1500 
* TAX 1510 
LOOK CP WORK(8) 50(3,8) COMPARE WORK WITH FIRST ARG. TAX 1520 
BC 29FIND IF ARG IS LOWER, GN TO FIND TAX 1530 
AH 8, *+8 OTHERWISE, INCREMENT TO NEXT ARG. TAX 1540 
BC 15,LOOK AND LOOK AGAIN TAX 1550 
DC —Y¥(8} TAX 1560 
FIND SP WORK ¥0(348) COMPUTE EXCESS OVER BASE AMT. TAX 1570 
MP WORK, 6( 2,8) MULTIPLY BY PER CENT TAX 1580 
MVO WORK ,»WORK(7) ROUND OFF TO TwO DECIMALS TAX 1590 
MVO WORK yWORK(17) TAX 1600 
AP  WORK,FIVE TAX 1610 
— ~ MVO WORK »yWORK(7) TAX 1620 
AP WORK ,3(3,8) ADD BASE TAX TAX 1630 
BCR 15,10 RETURN TO SUB-PROGRAM ROUTINE TAX 1640 
* TAX 1650 
x CONSTANTS AND DATA AREAS TAX 1660 
Tee, TAX 1670 
SAVE DS H TAX 1680 
GVA DS H TAX 1690 
Ke DC X#1350D! FEDERAL EXEMPTION AMOUNT TAX 1700 
Ke? DC X*10000F! STATE DEDUCTION LIMIT TAX 1710 
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K3 NC — -X*15500F! STATE EXEMPTION AMQUNT TAX 1720 
K4 DC X'OOOF® CITY TAX PERCENTAGE TAX 1730 
K5 NC X'4400F* FICA TAX PERCENTAGE TAX 1740 
K6 “OC X'*29040F" £FYCH TAX CIMIT — TAX L750 
WORK DS CL8 TAX 1760 
FIVE DC ae aaa a Oe RCS 7 SCRE (Ay (1) 
HOLD DS CL6 | TAX 1780 
* TAX 1790 
* TAX TABLES - WEEKLY TAX 1800 
* 1) FEDERAL SINGLE | TAX 1810 
* TAX 1820 
ANC] DC Y(*+2) | TAX 1830 
NC X*21201F8 | TAX 1840 
OC X'4085F8 TAX 1850 
NC X'*300F?# TAX 1860 
DC X'1690]1FF° | | | | TAX 1870 
NC X*3010F* TAX 1880 
DC X'250F! | TAX 1890 
NC X'O8501F* TAX 1900 
DC X*1330F8 | TAX 1910 
DNC X'*200F8 TAX 1920 
ee DE. ~~  KMEOQBOLES ee wee ee Oa 
NC X'O276F , TAX 1940 
He 8|~|°|~CUE LT OFS.!C™C~*~C~—sSS~—~—sON eee AY LoS. 
DC X*O1301F8 | TAX 1960 
DC X'O126F 8 : | TAX 1970 
DC X'150F* | TAX 1980 
Fe OG. -— KE OOGOLRY 0 oe ee ee hn A Oe 
DC X*OOOOOF* TAX 2000 
eS Cs Oe ee es eer ee ee EO 
| DC X'OOOOOF! | TAX 2020 | 
DC X'QOOOOOFOOOF® ee TAX 2030 
* | TAX 2040 
x 2) FENERAL MARRIED TAX 2050 
= | | TAX 2060 
NDC2 DC Y(¥4+2) TAX 2070 
DC X'42301F! TAX 2080 
DC X'B119F! © TAX 2090 
DC X'300F! | | TAX 2100 
NC X*34001F* | TAX 2110 
DC X'6044F! TAX 2120 
DC X'250F! TAX 2130 
NC X'16901F?* | | . TAX 2140 
OC X'2624F!8 | TAX 2150 
DC X'200F! | 7 . TAX 2160 
DC X'O8501F? TAX 21170 
DC X'1196F* TAX 2180 
DC X'170F! TAX 2190 
DC X'02301F? TAX 2200 
DC X'O266F° FAX 2210 
OC X'150F8 TAX 2220 
Digs eee Ce TRE GQ ae Or Pet a ee re re Se ee ee a eS pa en 
2 DC X*QOOOOOF® TAX 2240 
1 y Xt T40F! | | BX 2250 
0 DC X"*QOOOOF® TAX 2260 
9 DOCG X*QOOOO00FOOOF® TAX 22170 
8 TAX 2280 
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x 3) STATE 7 TAX 2290 
x TAX 2300 
ANC3 DC Y(#+2) TAX 2310 
DC X'O5701F! TAX 2320 

DC X'*O208F! TAX 2330 

DC X'60F! TAX 2340 

| Nc X'O3801F! TAX 2350 
DC X'Ol15F! TAX 2360 

DC X'*48F8 TAX 2370 

DC X'O1901F! TAX 2380 

NC ——X"0046F! TAX 2390 

DNC X'*36F! TAX 2400 

NC X'OOOOO0F! TAX 2410 

DC X*OQOOOOOF® TAX 2420 

DC X'OOOF! TAX 2430 

END TAX TAX 2440 
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. Field name on calculation specifications 

should be specified on all add, subtract, 
multiply and divide operations. (No ''so- 

called chaining' can be handled by the 
translator.) Figure 31 of the 1401 RPG 
Manual shows how 1401 will accept a blank 
field name. This type of operation will 

cause a problem when converting to S/360 RPG. 


This is also true on the Data Specification 
Sheets. Field name should always be spe- 
cified. Figure 18 of the 1401 RPG Manual — 
is an example of this operation. Field 0 
should be repeated on the line below. 


. All edit words should have a zero-suppress 
character specified; otherwise, full zero- 
suppress will result. 


. In 1400 RPG, the first Data Record causes 

a control break. In S/360 RPG, 'Run-In'"' 
control breaks are automatically suppressed. 
Therefore, it would be a good idea to avoid 
printing headings or performing calculations 
on a ''Run-In"' condition since it will not be 
available to you on $/360 RPG. 


. All 1P lines should have a skip to channel 1 
before printing, otherwise first page headings 
will print on the same page as the linkage 
editor when performing $/360 compile and go 
operations. 


. Word entries being used as a constant must 
be specified with an F in column 1 (format 


type). 


A K was accepted by the 1400 assembler. 


10. Because overflow is implemented in a dif- 
ferent way in the S/360 RPG, output lines 
conditioned by both OF and other conditions 
in an OR relationship must be programmed 
as being mutually exclusive. 


If, in the S/360, the overflow and Ll (level 
one indicator) occur at the same time, the 
line prints twice, thereby, possibly produc- 
ing an erroneous report. 


To prevent this situation, the line would 
have to be coded in a S/360 program as 
OFNLI for the Field Output Condition. This 
would have to be added by the programmer 
after conversion. 


11. A numeric field which has a value of +0 ora 
-0 turns on only the zero indicator; the plus 
and minus indicators are not turned on. 
There is no -0 value in the S/360; zero is 
always +0. 


12. In S/360, blank numeric fields are read into 
the system as zeros. Therefore, it is not 
possible to distinguish between a blank or 
zero input field for the purpose of setting on 
a zero field indicator. 


Alphameric fields containing blanks are read 


in as blanks and can be used to set on a blank 


field indicator. Zeros in alphameric fields 
are read inas character zeros and cannot be 
used to set on a zero field indicator. 


Alphameric fields cannot be tested for plus 
Or minus conditions. 
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13. The Translator program will not translate 
sense switch functions. Field indicators 
should be used to control the operations that 


would normally be controlled by sense switches. 


14, A WORDXX that defines a numeric literal 
greater than 15 characters will not be trans- 
lated because numeric fields over 15 char- 
acters are not allowed on S/360 RPG. 


15. 1400 RPG Format Specifications allow a maxi- 
mum of 28 character literals or edit words. 
S/360 Output Specifications permit a maximum 
of only 26 character literals or edit words. 


16. The Decimal Control feature included in the 
1400 Expanded Print Edit Feature is not in- 
cluded in S/360 editing. In S/360 RPG, the 
decimal point is removed during a zero sup- 
press operation if it is to the right of the left- 
most significant digit and to the left of the 
zero suppression character. 


17. Any constant information in the leftmost 
positions of the edit word is regarded as 
part of the body portion and is suppressed 
if it is to the left of the leftmost significant 
digits. CR or minus signs should always be 
in the rightmost position of the edit word. 


18. PAGENO should be defined as a field length 
of 004, because in S/360 it must be a full 
word (4 bytes). 


S/360-44 PROGRAMMING SYSTEM 


Before referencing a member just added toa 
M44PS directoried data set, one must insure 
the latter has been closed. 


After adding any routine to SDSREL or any 
member to a directoried D/S and prior to re- 
ferencing it, end the job with a /& and place 

an operator ACCESS command in front of the 
next JOB card. Note that the operator com- 
mand has no // and the name begins in column 1. 


SYSREL ACCESS SDSREL, SAME=SDSABS 
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S/360-44 PROGRAMMING SYSTEM SAMPLE 
PROGRAM 


The released sample program for the Model 44 
programming system does not utilize carriage 


control. Insert the following card after the 
// SYSOPT card. // LABEL, CTLASA ASA 
CHAR = etc. 


S/360-44 FORTRAN SUBROUTINE - LINK 


There is an error in the M44 FORTRAN run 
time subroutine named LINK. 4A fix is avail- 
able at your regional Field Systems Center. 


A phase cannot be fetched, and this results in 
the supervisor message GA 081 xxxxxxxxPHASE 
CANNOT BE FETCHED where xxxxxxxx are 
garbage characters. 


S/360-44 UTILITY 


There is an error in the M44 Utility CPYMEM* 
which affects adding members to a Directoried 
Data Set such as SDSREL. 


If the total number of names in the output direc- 
tory including aliases is a multiple of the block- 
ing factor, no more members can be added. 
Temporarily, one can punch out the last mem- 
ber, delete this member from the directoried 
D/S, CONDENSE the directoried D/S, add the 
just deleted member along with the new members. 


TYPE III PROGRAMS FOR S/360 USERS 


Often as you review Type III abstracts, there 
is a tendency to bypass 1401/1620 programs 

if you are involved only with S/360. If the 
S/360 has emulation, however, you may be 
missing programs which are applicable to your 
account. 


An example of this type of program is the Create 
Print Images on Tape. This abstract appeared 
in issue 67-09 of the Installation Newsletter. 
This particular program provides the capability 
for creating a print image tape during a proces- 
sing run rather than going to printer, thus pro- 
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jobs. The saving to the S/360 customer in total 
processing time can be substantial. This is just 
one example of a 1401 Type III program which 
is applicable to a S/360 customer. 


viding faster throughput for printer bound pro- 
grams. This tape can then be used either under 
multi-programming or on a system using dual 
printers to overlap printing during subsequent 


NEW TYPE UI PROGRAMS * 


The following are the abstracts of programs which have been recently made available from 
the Type III library. 

The program, along with its complete abstract, will be incorporated in subsequent issues 
of the Catalog of Programs. 

Programs may be obtained by submitting a properly completed ''General Program Request 
Card'' (Form Number 120-1145-1) to the Program Information Department, 40 Saw Mill River 
Road, Hawthorne, New York, 10532. 

These programs and their related documentation are distributed by IBM in the author's 
original form and have not been subjected to any formal testing. 

Any discussion of Type II Programs must emphasize the following points: 

1. Type III programs are not part of the IBM product line, as are Programming 

Systems (Type I) or Application Programs (Type II). 

2. Type IlI programs have not been subjected to any formal product test. 

3. Recipients of Type III programs are expected to make the final evaluation as 

to the usefulness of the programs in their own environment. 

4. There is no committed maintenance for Type III] programs. However, any 

changes the author chooses to make will be announced in subsequent issues 
of the Catalog of Programs. 


NOTE: THE CUSTOMER MUST BE INFORMED THAT THE ABOVE APPLIES TO 
ANY OF THE FOLLOWING TYPE UI ABSTRACTS FURNISHED TO HIM. 


S/360 


HOUSTON AUTOMATIC SPOOLING PRIORITY 
SYSTEM. This system is an automatic SYSIN/ 
SYSOUT/SYSPUNCH SPOOLing package with 
the ability to operate an essentially unlimited 
number of peripheral devices concurrently in 
conjunction with OS/360 processing utilizing 

a variable number of 2311 and/or 2314 direct- 
access modules for intermediate storage. 


HASP operates with no modifications to OS/360. 
Any option 2 installation may use HASP by 
simply adding it to his program library and 
adding one user SVC routine to OS/360. HASP 
may then be invoked (Optionally) at any time by 
standard partition loading procedures. 


HASP has been designed to operate as indepen- 
dently as possible of OS/360 release levels and, 
excluding major design changes, should adapt 
to new releases of the Operating System with 
no modifications. 
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Through the use of HASPGEN, the package may 
be adapted to virtually any configuration and/or 
user requirement. 
System Configuration: The program source is 
in OS/360 assembly language, and minimum 
core requirements are less than 27K. 


Ordering Procedure: Order File Number 360D- 
00.1.008. The program material can be ob- 
tained on one 9 track or 7 track (Data Conver- 
sion feature required) Distribution Tape Reel 
(DTR). The requester must indicate whether 

a 9 track or 7 track DTR is required. If not 
specified, a 9 track DTR will be provided. No 
tape submittal is required - the DTR will be 
provided by the Library. 
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MODIFICATION OF S/360 WHOLESALE IMPACT 
LIBRARY FOR USE WITH A 16K - 4 TAPE S/360. 
The S/360 Wholesale Impact computer library 
has been designed to provide a user with informa- 
tion essential for his inventory management. The 
information enables him to establish an inventory 
strategy which minimizes costs at any preselected 
service level. The Wholesale Impact Library 
(360A-DW-05X) now exists as a Type II applica- 
tion program and consists of eight programs. 
Five of these programs are run infrequently, 
usually during initial use of the programs and 
again once every six months toa year. The 
remaining programs, however, are used much 
more frequently, perhaps several times each 
week. 


Current machine requirements for use of these 
programs are a minimum of 16K storage and 
one 2311 disk drive. Thus, the tape oriented 
user who is interested in inventory management 
is unable to benefit from this series of applica- 
tion programs. 


The purpose of this report is to describe the 
modifications which have been made to two of 
the programs in the wholesale IMPACT library 
(Type Il program - 360A-DW-05X) which allow 
them to operate under a tape oriented system. 
The programs which have been modified are 
SVA (Service Point and Variable Interval Allo- 
cation) and AP (Allocation Print). These are 
two of the most frequently used programs in 
the library. Modifications have been made to 
allow a user with a minimum of 16K storage 
and four tape units to use these two programs 
(1). Initialization of inventory data will still 
have to be done on a disk oriented system, but 
once this has been accomplished the user will 
be able to do his routine processing on his own 
tape oriented system. With these modified 
programs, the tape oriented user can now 
benefit from these application programs. 


Ordering Procedure: Order File Number 360D- 
25.2.002. To obtain program material, sub- 
mit one 2400 foot reel of magnetic tape. Spe- 
cify whether 7 or 9 track recording is required. 
If not specified, 9 track recording will be used. 
The required tape may be ordered from IBM or 
supplied with your request for the program. 
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IBM 360/20 RPG/BAL RELOCATABLE FEDERAL 
WITHHOLDING TAX ROUTINES. The calculation 
of Federal withholding tax is standard with all in- 
stallations doing payroll. Many installations have 
found it difficult to code this routine in RPG using 
a reasonable amount of core which only com- 
pounds the core limitations on payroll programs, 
which, by their nature, are already complex. 
Routines for weekly, bi-weekly, semi-monthly 
and monthly payrolls are included which will re- 
duce considerably the duplication of effort by 
systems engineers and programmers of coding 
and debugging this problem. 


The routines were written in 360/20 BAL and 
will calculate withholding tax to $999.99. The 
programmer provides gross, number of exemp- 
tions and marital status to the routines and 

uses the RPG EXIT operation. Machine con- 
figuration: 360/20 no special features; Program- 
ming System Requirement: 360/20 RPG; Source 
Language: 360/20 BAL; Storage Requirement: 
387 bytes per routine. 


Ordering Procedure: Order File Number 360D- 
19-3.001. The program material can be ob- 
tained in card form or on.one 9 track or 7 track 
(Data Conversion feature required) Distribution 
Tape Reel (DTR). The requester must indicate 
whether a 9 track or 7 track DTR is required. 
If not specified, a 9 track DTR will be provided. 
No tape submittal is required - the DTR will be 
provided by the Library. 


1130 


IBM 1130 PHOTOCOMPOSITION PROGRAM. 
This program provides the user of photocompos- 
ition equipment a means of generating fully 
justified copy in a variety of formats for a num- 
ber of different photounits. The program has 
been designed to work in conjunction with any 

of the "Output Modules" currently available or 
other modules which may be written to meet a 
need not currently satisfied by existing modules. 
The documentation supplied provides sufficient 
information in the way of program format to 
permit the writing of new modules. 


When ordering the IBM 1130 Photocomposition 
Program the user must order, in addition, the 
following programs: (1) IBM 1130 Type Com- 

position Program (1130-DP-04X) and (2) an ap- 
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propriate Output Module (see program names 
and file number below). For those users writ- 
ing a new module, this can serve as an example. 


Related Programs: 


Title File Number 

1130 Photocomposition Grid/ 
Face Utility Program 

Linofilm Output Module for 
IBM 1130 Photocomposition 
Program 

Photon 513 Output Module for 
IBM 1130 Photocomposition 
Program 

Photon 713 Output Module for 
IBM 1130 Photocomposition 
Program 


1130-00. 4. 002 


1130-06. 5.002 


1130-06. 5.003 


1130-06. 5.004 


System Configuration: As a minimum an 1131 
Processor Model 2B with 2315 Disk Cartridge, 
1442 Card Read Punch Model 6 or 7, and Basic 
RPQ's: RPQ 834398 - Basic Interface (required 
to attach any number of PTR's and PTP's); 

RPQ 834399 - Paper Tape Attachment (required 
to attach any number of PTR's and PTP's). Ad- 


ditional information regarding machine configur- 


ation and RPQ requirements is contained in 
Programming Announcement Letter P66-107 
relating to the 1130 Type Composition Program 
(1130-DP-04X). Source Language - 1130 As- 
sembler Language. 


Ordering Procedure: Order File Number 1130- 
06.5.001. Distribution will be in card form 
only. 


1130 PHOTOCOMPOSITION GRID/FACE 
UTILITY. This program is designed as an 
installation aid to Linofilm and Photon 513 
users of 1130 Photocomposition. Photon 713 
users are referred to the Photon 713 Output 
Module (see file number below) for the proce- 
dure to be used in storing face tables. The 
Utility Program stores on the disk cartridge 
all character width and point size data required 
by the 1130 Photocomposition Processor to 
create a justified line. Input to the 1130 Photo- 
composition Utility may be entered in cards, 
8-channel paper tape, or via the console type- 
writer. 
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Included with the basic information are instruc- 
tions and worksheets to facilitate the gathering 
and entering of required data and the necessary 
instructions for operating the program. FPro- 
gram load procedures and special support pro- 
grams (typesetting Monitor and Skeleton) are 
available as basic documentation supplied with 
the 1130 Photocomposition Program and must 
be ordered at this time (see file number below). 


Related Programs: 


Title File Number 

IBM 1130 Photocomposition 
Program 

Linofilm Output Module for 
IBM 1130 Photocomposition 
Program 

Photon 513 Output Module for 
IBM 1130 Photocomposition 
Program 

Photon 713 Output Module for 
IBM 1130 Photocomposition 
Program 


1130-06. 5.001 


1130-06. 5. 002 


1130-06. 5. 003 


1130-06. 5,004 


system Configuration: 1131 Model 2B and either 
1134 paper tape reader or 1442 Model 6 or 7 
card read/punch. 


Order File Number 1130- 
Distribution will be in card form 


Ordering Procedure: 
00.4. 002. 
only. 


LINOFILM OUTPUT MODULE FOR IBM 1130 
PHOTOCOMPOSITION PROGRAM. The Lino- 
film Output Module has been designed to work 

in conjunction with the IBM 1130 Photocomposi- 
tion Program to produce a three frame 6-channel 
paper tape punched in a format capable of driving 
the Linofilm photounit equipped with the 6-channel 
paper tape adapter. Either the 18 Grid Linofilm 
Unit or the 28 Grid Linofilm Unit may be driven 
by the tapes generated by this Output Module, 

The Linofilm Output Module, in conjunction 

with the IBM 1130 Photocomposition Program, 
permits the user to process unjustified tape, 
prepared ona standard 6-channel tape perforator, 
and thereby derive an output tape which contains 
lines of justified copy, with appropriate photo- 
unit function codes, as determined by commands 
entered with the unjustified input. 
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Users must order both the IBM 1130 Photocom- 
position Program (1130-06. 5.001) and the 1130 
Type Composition (1130-DP-04X) when order- 
ing this Output Module. 


System Configuration: As a minimum an 1131 
Processor Model 2B with 2315 Disk Cartridge, 
1442 Card Read Punch Model 6 or 7, and Basic 
RPQ's. RPQ 834398: Basic Interface (required 
to attach any number of PTR's and PTP's); 

RPQ 834399: Paper Tape Attachment (required 
to attach any number of PTR's and PTP's). 
Additional information regarding machine con- 
figuration and RPQ requirements can be found 
in the Catalog of Programs for the IBM 1130 
and 1800 (20-1630) under the description of the 
1130 Type Composition Program (1130-DP-04X). 
Source Language: 1130 Assembler Language. 
Ordering Procedure: Order File Number 1130- 
06.5.002. Distribution will be in card form 
only. 


PHOTON 513 OUTPUT MODULE FOR IBM 1130 
PHOTOCOMPOSITION PROGRAM. The Photon 
513 Output Module has been designed to work in 
conjunction with the IBM 1130 Photocomposition 
Program, to produce 6-channel paper tape, 
punched in a format capable of driving a Photon 
513 photocomposing machine. Since the Photon 
513 is available as either a forward or backward 
reading unit, the material supplied with this 
program is designed to permit the user to im- 
plement a system which will drive either or 
both. Users must order both the 1130 Photo- 
composition Program (1130-06. 5.001) and the 
1130 Type Composition Program (1130-DP-04X) 
when ordering this Output Module. 


System Configuration: As a minimum an 1131 
Processor Model 2B with 2315 Disk Cartridge, 
1442 Card Read Punch Model 6 or 7, and Basic 
RPQ's: RPQ 834398 - Basic Interface (required 
to attach any number of PTR's and PTP's); 
RPQ 834399 - Paper Tape Attachment (required 
to attach any number of PTR's and PTP's). 
Additional information regarding machine con- 
figuration and RPQ requirements can be found 
in the Catalog of Programs for the IBM 1130 
and 1800 (20-1630) under the description of the 


1130 Type Composition Program {1130-DP-04X). 


Source Language: 1130 Assembler Language. 


Ordering Procedure: Order File Number !130- 
06.5.003. Distribution will be in card form 
only. 
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PHOTON 713 OUTPUT MODULE FOR 1130 
PHOTOCOMPOSITION. The Photon 713 Out- 
put Module has been designed to work in con- 
junction with the 1130 Photocomposition Pro- 
gram to produce 6-channel paper tape, punched 
ina format capable of driving a Texmaster 
photocomposing machine. The 6-channel for- 
mat produced meets the input requirements of 
photo units with production numbers greater 
than 50. References in the documentation | 
provide the information necessary to modify 
the program for production numbers lower 
than 50. Users must order both the 1130 
Photocomposition Program (1130-06. 5.001) 
and the 1130 Type Composition Program 
(1130-DP-04X) when ordering this Output 
Module. | 


System Configuration: As a minimum an 113] 
Processor Model 2B with 2315 Disk Cartridge, 
1442 Card Read Punch Model 6 or 7, and Basic 
RPQ's. RPQ 834398 - Basic Interface (required 
to attach any number of PTR's and PTP's); 
RPQ 834399 - Paper Tape Attachment (required 
to attach any number of PTR's and PTP's). 
Additional information regarding machine con- 
figuration and RPQ requirements can be found 
in the Catalog of Programs for the IBM 1130 
and 1800 (20-1630) under the description of 

the 1130 Type Composition Program (1130-DP- 
04X). Source Language: 1130 Assembler 
Language. 


Ordering Procedure: Order File Number 1130- 
06.5,.004. Distribution will be in card form 
only. 


1800 


1800 TSX CONTROL CARD GENERATOR. This 
program generates all control cards necessary 
to commence a system generation for the 1800 
TSX Operating System (1800-OS-001). All in- 
put data is defined on pre-printed keypunch 
forms designed to minimize and centralize all 
required parameters. The control card output 
consists of: (1) Non-Process Monitor DUP 
control cards, (2) System Loader Assignment 
and DEDIT cards, (3) TASK group | and 2 
equate EQU cards, (4) System Director equate 
EQU cards. Major advantages of the program 
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are the guaranteeing of proper formatting and 
punching of control cards and the provision for 
consistent information in the many inter- 
dependent parameters required by the TSX system. 


System Configuration: The source language is 
1800 Assembler. The object program executes 
under the control of System Generation TASK 
and requires the following machine configuration: 
1801 or 1802 PC with 16K or 32K core storage, 
2310 Al Disk, 1442 Card Read- Punch and one 
1053 Typewriter. 


Ordering Procedure: Order File Number 1800- 


03.0.001. Distribution will be in card form 
only. : 
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SELECTED SHORT SUBJECTS 


The purpose of Selected Short Subjects is to 
bring together and highlight concise, factual 
and timely information which will indicate 
that action is to be taken by the IBM repre- 
sentative whose accounts are affected. 


1, OS/360 Releasel4 Planning Information- 


Clarification 


Installation Newsletter issue 67-25 contained an 
article with the above title. The second sentence 
under item 7, on page 2, should read ''Console 
messages have been rewritten to improve clar- 
ity and unit affinity is supported", 


2. Use of the Product and Support Requirement 
Request Form, 120-1702-0 


When submitting the Product and Support 
Requirement Request, the branch office 
should retain their copy and forward the 
entire remaining copies to their region 
for evaluation and comment. The region 
will respond to the branch office on the 
response copy and forward copy 3 to the 
Director of Systems Marketing, DPD HQ. 
It is important that this procedure be fol- 
lowed so that the DP Dvision will be aware 
of the response and evaluation made on 
each Product and Support Requirement Re- 
quest, 

3. S/360. New QNC Character Set-1416 Chain 

Cartridge | 


Installation Newsletter issue 67-26 contained an 
article on the above subject on page ll. It in- 
cluded a statement ''See the Type Catalog in 

the Sales Manual for further details". 


A memo has been received from the field indi- 
cating that there is only one comma on the 
train. Customers have the option to substitute 
type slugs. 


See the paragraph ''Type Slug Substitutions" on 
page 72 of the Type Caialog in the Sales Manual. 


4. Teleprocessing Custom Terminals 


If you have a unique terminal application re- 
quirement, you should be aware of a slide pre- 
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sentation, with narrative, on custom terminals. 


It has been distributed to Branch Offices, Edu- 
cation Centers and Regional Special Equipment 
Departments. A limited supply of additional 
sets is available (there is a charge) from Aud- 
io Visual Services, DPD HQ. The form num 
ber is Z20-5002. The item is not available 
from Mechanicsburg. For further information 
see the abstract in the MAPS binder, page F 
20-02-01. 02. 


5. 


Glossary of Communications Common 


Carrier Terminals 
eee 


If you are involved in the communications area, 
this glossary (520-1563) may be useful to you 
in your contacts with Common Carrier repre- 
sentatives and customers and propects who 
speak the language of communications. 


6. Classification Code Index Added to Catalog 


of Programs 


A Classification Code Index for Contributed 


Programs has been added to the December 1967 
edition of the Catalog of Programs for IBM Sys- 
tem/360 (C20-1619-4) and Catalog of Programs 
for IBM 1130 Computer System and IBM 1800 
Data Acquisition and Control System (C20-1630- 
3). 


The new Classification Code Index will allow a 
user to locate programs and subroutines within 
programs by Classification Code. The index 

is composed of the Primary Classification Code 
and Secondary Classification Codes appearing 
within the body of the Contributed Program ab- 
stract. 


The catalogs will be available from Mechanics- 
burg Distribution Center when announced in the 
PRL (Publications Release Letter). 


OS/360 RELEASE 14 EMPHASIS ON UPGRADING 


Release 140f OS/360, as announced in Program 
Announcement P68-7, is now available. A 
major emphasis is being placed on upgrading 
all OS/360 installations to this release level. 
An analysis as of December 1967 shows over 
50% of OS/360 users to be using OS Release 11 
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or earlier. For many reasons, it is important 
© to both users and IBM to upgrade to Release 14 
as soon as possible: 


. Take advantage of APAR corrections. 
Over 900 APAR's were fixed in 


Releases 12, 13 and 14. 


MFT Version I Dependency. As stated 
in P68-7, the next OS release will 


have MFT-II replacing MFT-I. 
Users who depend on the MFT-I 
internal logic (HASP users, for 
example) may find greater difficulty 
in upgrading to future releases. 
Establish a firm base if future up- 
grading may be a problem. 


Take advantage of improved functions. 


Releases 13 and 14 included many 
operational improvements, plus many 
other developments. (See P67-114 
and P68-7). FORTRANH, Version 
II gives about 30% faster compilation. 


This emphasis on upgrading to Release makes 
the prompt identification and correction of 

© Release 14 problems particularly important. 
Please report problems problems promptly 
through the normal FE channels. A special 
effort is planned to provide PTF response to 
urgent problems found on this release. 


OS/360 RELEASE 14 MVT PROCLIB 
CATALOGING 


The following is provided for planning purposes, 
Actual availability of OS/360 Releases are as 
announced through the official IBM announce- 
ment procedures. 


The following changes are being made in Release 
14 for MVT. 


PROCLIB is automatically cataloged by the 
System at IPL time. If PROCLIB was cata- 
loged prior to IPL time and the user specifies 
a new UNIT via the SET DATE Command, then 
PROCLIB is uncataloged and then recataloged 


© to reflect the unit specified by the SET DATE 
command. 
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OS/360 MVT JOB STEP TIMING ERROR COR- 
RECTION 


The following is a field contribution. 


There is a logic error in the CSECT IEAQNUO0O 
in the nucleus (OS/360 Release 13). 


The effect this logic error has on Job/Step tim- 
ing ranges from none to extreme variation. It 
is totally dependent on the environment within 
the system, the TCB ready queue and the time 
queue at any given time. 


The following correction will give more consis- 
tent results within the framework of the current 
MVT concurrent multiple task priority timing 
mechanism, that is, a Job Step executed in the 
same environment will have some repeatability | 
of its execution time. However, the same Job 
Step executed ina different environment will 
not produce the same exeuction time. 


The correction involves changing the 584th 
statement in the macro IEAQNU of SYSI. GEN- 
LIB (Release 13) from 


BCR 8, XSBR - RETURN IF NOT, 
to 
BZ DJS02 - BR IF NOT - 
DON'T ENQ/DQ. 


This correction should be made before Stage II 
of System Generation, but can be made after 
the system has been generated by reassembling 
the macro and relinkediting the nucleus. 


In essence, the correction prevents the Job Step 
Timing Subroutine from abandoning its ENQ/ 
DEQ loop when it encounters a TCB that has no 
TQE, 


The correction can be inserted into SYS1]. GEN- 
LIB by punching the member IEAQNU with IEB- 
PT PCH, correcting the 584th card, and replac- 
ing the corrected macro in the GENLIB with 
IEBUPDTE, 


It has been interpreted from the system spec- 
ification that system overhead would be charged 
to the highest priority non-system task. This 

is not the case. System overhead is not account- 
ed for presently. Hence, when running only one 
initiator, task time is less than real time. 
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OS/360 QTAM - CHOOSING POLLING INTER- 
VAL FOR RECEIVE OVER SEND PRIORITY 


The following contribution is intended to pro- 
vide some assistance and guidance in choosing 

a polling interval when using OS/360 QTAM. 

The following information resulted during an 
effort to develop an analytical method for deter- 
mining message turnaround time in a partitioned 
system. There has been no official IBM test 
and potential users are expected to evaluate its 
usefulness before implementing. 


When choosing a polling interval for receive 
over send priority, an interval equal to the av- 
erage time to send out a message is not a good 
choice. During this interval, when no mes- 
sages are to be sent, the system is prevented 
from servicing the arriving messages. Thus, 
the next message to be sent must be delayed 
by the time to service the arriving messages. 
In general, when choosing an interval, it is 
best to choose an interval E where E is the 
smallest positive number which will effective- 
ly reduce constant polling. E should be con- 
siderably less than the average time to send 
out a message. (See the formula shown in 
Exhibit 1). 


The wait Time for a message being sent out 
1s equal to: 


Aer? + Vardi) +22” + Varetr) 


AEH 
2(1 -Ayogy(a - Aya - Aza) a 


Mi is the arrival rate of messages 


ox 


A; is the departure rate of messages 


1 is the service time for the arriving messages 
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the arriving messages and, thus, force larger 
queues at the terminals. As the value of k 
becomes larger, this system approaches send 


over receive priority. 


An illustration of the above system is as fol- 
lows. Messages are arriving on the line at 
the rate of .0015 msgs/ms. Messages are 
departing at the rate of. 0015 msgs/ms. Mes- 
sages are departing at the rate of .0015 msgs/ 
ms. The positive and negative polling times 
are 18. 643 ms, the line speed is 600 charact- 
ers/sec. Simulation shows that with a polling 
interval of 200 ms, the waiting time for out- 
going messages (before they can be sent) is 
239 ms. With a small polling interval, the 
waiting time for outgoing messages is 212 ms. 
Note that a 200 ms polling interval also delays 
the servicing of incoming messages. It should 
also be noted that the choice of send = receive 
priority decreases the waiting time to 130 ms. 
With a choice of send over recieve priority, 
the waiting time decreases to 60.6 ms. 


DOS/360 DATA FILE CONVERSION TO OS/360 


Installation Newsletter 67-2], dated October 20, 
1967, contained an article with the above title, 
on page 3. This article contains additional in- 
formation on the subject. 


In DOS files the file name may be 17 characters, 
including embedded and trailing blanks. In OS, 

the label data-set name must have no embedded 
blanks and must not have more than 8 charact- 

ers between periods. 


e.g. File Name DOS OS 
MASTER FILE OK NO 
MASTER, FILE OK OK 
MASTERFILE OK NO 


A> is the service time for the outgoing messages 


Var is the variance of the service time m 


VarQ>2 is the variance of the service 


Another instance is the case where an inter- 
val, lis chosen equal to k times the service 
time of an outgoing message where k is great- 
er than l. In this case, the better choice of 
an interval would be (k - 1) +E, following the 
above reasoning. However, a large value of 
k would cause a significant delay in servicing 


DOS/360 RELEASE 13-LOAD AND FETCH 
OVERHEAD REDUCTION TECHNIQUE 


The following technique is a field contribution. 
It has not been submitted to any formal IBM 
test and its usefulness should be evaluated 

in the intended environment. NoIBM mainten- 
ance will be available. The technique has not 
been tested with DOS/360 Release 14, See the 
author's NOTE below. 
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The following is a description of a patch made 
to the DOS/360 supervisor (Release 13) to elim- 
inate much of the system overhead involved 
with the LOAD and FETCH functions of DOS/ 
360. This has been submitted as a Product 
Support Requirement Request for DOS/360, 


When a background program is started, Job 
Control builds a phase directory of up to 144 
phases which begin with the same first 4 char- 
acters as your main phase name. The direc- 
tory records contain 18 phases each, so if your 
program contains 18 phases or less, they will 
be on tne first directory record. 


The normal LOAD/FETCH operation is to 

seek to the proper directory (phase directory 
for BG, FGP directory for FG, etc), reada 
record and search it for the phase name. The 
read is repeated until the phase name is found 
and then a seek is given to the proper core li- 
brary location so it can be loaded. Ina pro- 
gram with many overlays, the probability is 
high that the proper directory record is already 
in core from the previous load or fetch. The 
patch changes the fetch operation to check the 
directory read area (Physical Transient area) 
to see if the first four characters match your 
load/fetch name. If they match, the record in 
core is searched before going to read the di- 
rectory. The patch requires 24 additional bytes 
in the DOS/360 supervisor. 


This modification, see Exhibit 1, has reduced 
run time in one heavily overlayed program 
from 1/2 hour to 15 minutes, a savings of 50% 
for this job. It must be noted that jobs which 
have no overlays, or very few, will not be 
speeded up appreciably, if at all. 


NOTE: 


This patch is operational on DOS/360 Release 
13 and supervisor with MPS = YES, and has 

not been subjected to extensive testing under 
all conditions. Users should implement it 
with care. The patch will most likely be high- 
ly release sensitive, and may not even be feas- 
ible with future releases of DOS/360. 
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DOS/360_ TELEPROCESSING_ CONSIDERATIONS 


There are three situations in a DOS/360 system 
which might temporarily prevent the high priority 
teleprocessing gaining control of the CPU. 

These are: 


1) During message typing. 

2) During execution of error recovery 
procedures, 

3) During program of overlay fetch. 


The following further defines these situations: 


1. When DOS types an ERP (Error Recovery 


Procedure) message which does not require 
an operator response, it goes into an in- 
struction loop testing the typewriter CCB 
until the typing is completed. During this 
time the Teleprocessing program cannot 
get control of the CPU because the trans- 
ient routine for the typewriter, which op- 
erates as part of the higher priority sup- 
ervisor, retains control. When DOS types 
an ERP message requiring operator re- 
sponse, it goes into WAIT state with I/O 
interrupts masked until that response is 
received. If an operator is not in atten- 
dance, the Teleprocessing program will 
wait to regain control of the CPU from the 
transient routine until the operator re- 
sponds. 


2. When DOS error recovery transient rou- 
tines execute I/O, they go into an instruc- 
tion loop testing the CCB for the device 
executing the I/O. During this time the 
Teleprocessing program cannot gain con- 
trol of the CPU because the transient rou- 
tine, which operates as part of the higher 
priority supervisor, does not relinquish 
control. If individual I/O operations are 
long, or if a number of I/O operations are 
required in order to satisfy the ERP re- 
quirements (such as with the 2321), the 
Teleprocessing program may be locked out 
for some time. 


3. When DOS fetches programs or overlays 
from disk, the disk read commands are 
followed by an instruction loop which tests 
the CCB for the DASD device. Thus, the 
fetch routine does not relinquish control 
to the Teleprocessing program while exe- 
cuting I/O. Fetching of a large program 
or overlay may lock out the Teleprocessing 
for a considerable length of time. 
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DOS/360 RELEASE 13-LOAD AND FETCH OVERHEAD REDUCTION TECHNIQUE 


MODIFICATION TO DOS RELEASE 13 SGDFCH MACRO 


MVI RECNO+1, NODIR 14530058 

* ADDITION] 12-10-67 CHECK FIRST FOUR CHAR, OF PTA FOR EQUAL 
PATCHO] LR RE,R9 ~~ LOAD DSECT REG. 

CLC  0(4,R9),DIRNAME CHECK FIRST 4 FOR EQUAL 

BNE RDDIR2 GO READ DIRECTORY AS NORMAL 

MVI PATCH03+1,X's0' | EQUAL - SET NOP TO BE RDDIR2 

B RDDIR2+8 IN CASE END DIRECTORY FST TIME 
* END FIRST ADDITION 
RDDIR2 BAL  RC,READ UPDT 4530059 
* ADDITION 2 12-10-67 
PATCHO2 MCI PATCHO3+1,X'00' | SET TO NOP AFTER FIRST TIME 


* END ADDITION2 


LR RE, RS H4530060 
LA RC , DIRLGH(0, R9) H4530061 
LOOKUP CLI DIRNAME , ENDSGN H4530062 


* ADDITION3 12-10-67 
PATCHO3 NOP RDDIR2 IF END DIRECTORY FST. TIME 
* END ADDITION 3 
AIP (NOT &BG20).LGD01 H4530063 


The release 14 SGDFCH macro is similar, with different sequence numbering. 
This patch has not been tested on release 14 as yet. 
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When a Teleprocessing program is unable to 


gain control of the CPU for a number of seconds 


for one of the above reasons, the Teleproces~ 


sing program will be affected in either, or both, 


of two ways: First, response time will tempo- 
rarily increase radically. Terminal operators 
at 2260, 2740 or other terminals may wait 5, 
10, 15 or more seconds for the Teleprocessing 
program to regain control and respond to their 
input messages, depending on the nature of the 
Teleprocessing program lockout. Second, pro- 
grams such as QTAM, which rely on the PCI 
interrupt, become susceptible to losing incom- 
ing data. During message receiving, PCI in- 
terrupts indicate the need for additonal core 
buffer areas to receive the remainder of the 
message. With the exception of a system wait- 
ing for operator response, the above supervis- 
or lockouts do not prevent recognition of the 
PCI interrupt. However, the routines which 
must be executed in order to supply an addie« 
tional buffer, or buffers, are located within 
the QTAM partition. If that partition cannot 
regain control in time, input data will be lost. 
QTAM will recognize this fact and will provide 
an "insufficient buffers'' message on the con- 
sole. The QTAM program will then have to 
request a retransmission of the message. De- 
pending on the terminal configuration, the op~ 
erator may have to reload cards, reposition 
paper tape, or rekey the message. In addi- 
tion to causing operator inconvenience this re- 
transmission will, in the case of long messa- 
ges, require a significant amount of line time. 


Although there is no single solution, a number 
of partial solutions are discussed below: 


1) BTAM users should not use the con- 
sole typewriter for communication 
with the operator. Instead, a local 
terminal should be used for this pur- 
pose. 


2) A user modification to BTAM or QTAM 


to eliminate or reduce the ERP mes- 
sages would reduce the conflict for 
the console typewriter and, therefore, 
reduce the number of BTAM or QTAM 
lockouts. This would result in some 
reduction in line terminal error in- 
formation. Increasing all threshold 


values would also reduce console type- 


writer conflicts by reducing the num- 
ber of "threshold exceded'! messages. 


3) 


4) 


5) 


6) 


7) 


8) 
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A much better way to reduce QTAM use of 
the typewriter is to make use of the oper- 
ator control terminal module. Use of this 
module causes QTAM ERP messages to 
print on a selected 1050 or 2740 terminal. 
Experience to date indicates that this is 
highly desirable with DOS QTAM, 


While the Teleprocessing program is run- 
ning, the installation should arrange to have 
an operator in attendance at all times. 


Reducing the number of devices in use 
while the Teleprocessing program is active 
would minimize conflict for the ERP trans- 
ient area. This may, in some cases, re- 
sult in scheduling problems, or reduction 
of system performance. 


Reducing the number of partitions in use 
while the Teleprocessing program is ac- 
tive would minimize conflict for the type- 
writer and would also reduce the effect of 
the fetch routine. This, may be difficult 
or impossible to do without losing one of 
the major benefits of DOS BTAM or QTAM- 
the ability to multiprogram these Telepro- 
cessing programs with other jobs. 


Increasing the size of QTAM buffers will 
reduce the number of retransmissions by 
lengthening the time before a response to 
the PCI interrupt is required. This isa 
small sacrifice in small QTAM systems 
but will have a significant effect on core 
storage requirements for larger QTAM 
systems. With certain types of terminals, 
the use of a large enough buffer will com- 
pletely eliminate the possibility of losing 
data due to failure to respond in time to 
PCI interrupts. For example, keyed in- 
put data from a 1050 which is using the 
auto EOB feature cannot exceed a 130 char- 
acter block. Similarly, input data from 
2260 terminals attached to a 2848 Model 

1 cannot exceed a 240 character block. 


Increasing the size of the BUFNO param- 
eter in the DTFQT will also reduce the 
number of retransmissions. If more buf- 
fers are preallocated to each line, then 
failure to respond quickly to a PCI inter- 
rupt is not so significant. Another buffer 
need not be supplied immediately. This 
technique will generally be slightly less 
effective than the use of longer buffers 
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because part of each added buffer will be used 

for QTAM's buffer prefix. Not all of each add- 
ed buffer will be available for data. In addition, 
the use of more, but shorter, buffers will mean 
less efficient use of QTAM queue space on disk. 


9) User programs, both foreground and back- 
ground, should make minimal use of the 
console typewriter as an output device in 
order to not generate additional conflicts 
for the typewriter. Use of the console as 
an input device for user programs should 
be prohibited. In a system which has a 
Teleprocessing operating in a multipro- 
grammed environment, the console should 
not be locked up waiting for operator re- 
sponse to a user program message. 


10) Foreground initiation of other programs 
while a Teleprocessing program is run- 
ning should minimize use of the console 
typewriter in order to reduce typewriter 
conflicts. This implies that a card reader 
should be assigned for use in foreground 
initiation if it is to be done with any fre- 
quency. 


11) PAUSE cards should not appear in the 
background job stream when a Teleproces <= 
sing foreground program is running. The 
use of PAUSE locks up the console wait- 
ing fora response from the operator. 

In place of PAUSE, use a comments card 
followed by a STOP BG card. The back- 
ground job stream can then be restarted 

by typing in 'START BG’. 


DOS/360 RPG ACHIEVING TWO AREA OVER- 
LAP ADDITION 


The following is a field contribution which has 


not been submitted to any formal IBMtest. The 


use of this technique should be evaluated in the 
intended environment prior +o. implementation. 


Newsletter 67-16, dated August ll, 1967, con- 
tained, on page 3, a technique for achieving 
two-area overlap in DOS/360 RPG. 
for the card reader would not work when a ta- 
ble file and data file were being read from 
cards because only the first DTF, the one for 


The coding 
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the table file, was being modified. The coding 
necessary to allow operation with the table file 


and data file being read from cards is shown 
in Exhibit 1. 


By testing the first time switch in the DTF, it 
is determined whether this DTF has been mod- 
ified. By using a switch to keep track of which 
IO area is being utilized, after the first file ++ 
can be determined which address should be 
loaded into the CCW, If it is not the first file, 
the first time switch is turned off so that the 
logic module will not issue two reads. 


S/360-20 DISK RPG MULTIPLE CHAINING TO 
THE SAME FILE 


The following is a field contribution. 


1. The S/360-20 Disk RPG SRL's indicate 
that you cannot chain to a file more than 
once from the same record, or from a 
file to itself, in S/360-20 Disk RPG, 


2. The chaining described above can be ac- 
complished by defining the chained file 
more than once in the RPG program, each 
time with a different file name. 


3. Additional VOL, DLAB, and XTENT con- 
trol cards are required for successive 
definitions of the file. They are identical 
to those normally used for the file, with 
the exception of the file name in the VOL 
card. 


Updating a multiple-chained file as a result 
of each chaining can lead to erroneous 
results and should be avoided. 
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DOS/360 RPG ACHIEVING TWO AREA OVERLAP ADDITION 
DOS/ 300 REG BVT NS OS 


NAME OF START = RPG CDMOD 
DUMMY 8 BYTES FOR OFFSET 


SAVE REGISTERS 

DTF FIRST TIME SWITCH 

NOT FIRST TIME FOR THIS DTF 
SAVE WORK AREA ADDRESS 
MODIFY RPG DTF FOR WORK AREA 


FOR FIRST DTF MODIFIER 
CHANGE TO BRANCH FOR ADDITIONAL DTFS 


INITIALIZE DTF I/O AREA 2 
CHANGE CCW ADDRESS TO IO AREA 1 
LOAD ADDRESS OF WORK AREA 

KEEP TRACK OF WHICH IO AREA USED 
SET UP FOR BRANCH TO LOGIC MOD 
GO TO LOGIC MODULE 

RETURN FROM LOGIC MODULE 
RESTORE REGISTERS 

RETURN TO RPG 

TURN OFF DTF FIRST TIME SWITCH 
CHECK WHICH IO AREA LAST USED 
READY TO USE IO AREA 1 


INITIALIZE DTF IO AREA 2 WITH ADDR IO AREA 1 


CHANGE CCW ADDR TO IO AREA 2 


REGISTER SAVE AREA 
IO AREAILL 
IO AREA 2 


NOP ,MVC 


WORKAREA ADDRESS SAVE AREA 
LOGIC MODULE 


DEVICE=2501,WORKA=YES , IOAREA2=YES , SEPASMB=YES 
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S/360-44 USE OF 2415 UNITS 


Inquiries have been made regarding the use of 


2415 Magnetic Tape Units with the S/360-44 Pro- 


gramming System. The 2415 Tape Units are 
available as a no charge RPQ, but are not of- 
ficially supported under the S/360+44 Program- 
ming System. 


This article is intended to clarify the use of 
2415's with S/360-44. The primary area of 
consideration is that of the differences between 
the 2415 and 2400 hardware error detection. 
The 2400 software support is considered to be 
suitable for use with the 2415, but no official 
IBM testing has been conducted with the 2415. 


The 2415-2400 basic differences affect data 
check handling on a read operation as follows: 


1) The 2415 hardware writes a CRC (Cyclic 
Redundance Check) after each record on 
to Model 1-2-3 tapes, but the CRC byte 
is ignored in read operations. The request 
TIE (Track In Error) mode set is therefore 
treated as a no-op and there is no auto- 
matic hardware recovery for a single track 
in error. Nevertheless, the read oper- 
ation will be retried the standard amount 
of times. The procedure is then identical 
to a multiple track in error recovery for 
the 2400. Automatic in-flight single track 
error correction is provided for the 2415 
Models 4-5-6 as for 2400 Models 4-5-6. 


2) Noise Bit: On 2400 Models 1-2-3, data 
check is raised upon detection of VRC 
(Vertical Redunancy Check), LRC (Long- 
itudinal Redundancy Check), SKEW, SKEW 
VRC or CRC (Cyclic Redundancy Check). 
When end of data is detected while reading 
from a tape, LRC and CRC are checked 
and data check possibly raised. End of 
data is detected at the end of the record, 
end of noise record, or in the middle of 
a record if data is masked out by unclean 
tape (broken record). The noise bit is 
used to differentiate between noise record 
and "broken record". If data is detected 
after end of data, it is a "broken record" 
and the noise bit is turned on. This is 
useful if the record is "broken" within the 
first 12 bytes, as the number of bytes 
transmitted indicates noise length record. 
On a 2415, the noise bit is not supported 
by the hardware, so there is no way to 
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differentiate between a noise record and 
a record "broken" within the first 12 bytes. 
This would cause records to be lost. 


This problem does not exist with 2400 mod- 
els 4-5-6 and 2415 models 4-5-6 in phase 
encoded mode, as phase encoded records 
begin with a preamble of 41 bytes and fin- 
ish with a postamble of 41 bytes. Data 
transmission is activated after detection 

of the preamble and noise records are not 
read in. 


TELEPROCESSING - 303 DATA STATION 
OPTIONS REDEFINED 


As part of a previous Newsletter article (Issue 
67-23), the latest set of options for these data 
stations was given. Further discussions with 
the common carriers has produced a list which 
essentially does not change the operation, but 
which describes the options in the language 
used in the carriers current field literature. 


Remember that there are essentially three 
kinds of options available on dafa sets: 
Les Installer options which can only be 
decided by the installer based on the 
line and other characteristics. 


Le Customer-machine options which are 
dictated by the design of the machine. 


3: Customer options dictated strictly by 
his desired mode of operation. 


Those options which IBM must insure are 
properly specified are the second class-cus- 
tomer-machine options. These are listed below 
for the Western Electric 303 data stations 
(Suffix B, C, D,). 


Unbalanced Customer Interface 
With Scrambler-Descrambler 
Internal Transmitter Clock (Z) 
Free Running Scrambler (Q) 
Synch Logic Normal (J) 


Ok WN 


In addition, it is important to note that we do 
hot want Permanent Request to Send (T) to be 
Specified. Also, the customer will have to 
make a choice between no voice, alternate 


voice, or simultaneous voice for coordinating 
purposes, 
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The use of the alphabetic letters on some of the 
options above is recommended only for the next 
few months, as a further check on the installers 
of these fairly new data sets. We continue to be 
warned by the carriers that such letter desig- 
nations may change without Warning and the 
phrase designations are much safer for the 

long term. 


NEW PUBLICATIONS ANNOUNCED BY PRL'S 
pata eve natinsmtnnsinc Nereis edia taped dia aha cred tc ti eee Tee 


The weekly PRL's (Publications Release Let- 
ters) are used to insure that all Salesmen and 
Systems Engineers are aware of new or revised 
Marketing Publications. Normally, each issue 
of the Newsletter will contain information from 
two PRL's, one following the other. The in- 
formation will be placed in the Newsletter in 
its original form with no rearrangement of 
form numbers or titles. It is not intended to 
replace existing information and distribution 
sources. You should be certain that you are 
aware of these sources, 


INFORMATION ABOUT THE NEWSLETTER 


EVERY SALESMAN AND SYSTEMS ENGINEER 
SHOULD RECEIVE ONE COPY OF THE NEWS- 
LETTER, Each FE Branch Manager should 
receive five copies for distribution to Customer 
Eingineers, 


The IBM Installation Newsletter is distributed 
only to IBM locations and is not available to 
customers, The Newsletter is separated into 
two parts, The first part contains information 
which is intended only for IBM personnel and 
the pages are labeled for IBM Internal Use 
Only. THESE PAGES, OR REPRODUCTIONS 
OF THEM, ARE NOT TO BE GIVEN TO CUS- 


TOMERS, However, using your own good judge- 


ment, you may discuss pertinent information 
from these pages with a customer. The second 


part contains information which may be REPRO- 
DUCED by the Branch Office at their discretion 


and given to customers. These pages are not 
labeled with any restrictive classification. 

Note that when any abstracts for Type III pro- 
grams are given to the customer, he must be 
informed that the disclaimer for Type III pro- 
grams, as contained in the Newsletter, applies. 
YOUR COOPERATION IN PROPERLY HAND- 
LING THE CONTENT OF THE IBM INSTAL- 
LATION NEWSLETTER IS NECESSARY FOR 
ITS CONTINUED PUBLICATION, 
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Changes to the quantity of the Newsletter shipped 
are to be made by the Administration Manager. 
(NOTE THAT EXTRA COPIES OF THE NEWS- 
LETTER ARE NOT TO BE ORDERED FOR 
DISTRIBUTION OF INFORMATION TO CUS- 
TOMERS.) He should update and send the DP 
Administration Managers' Communication Con- 
trol card (form number N44-780) to DP Commun- 
ication Control, DPD HQ. 


Direct inquiries concerning the contents of this 
Newsletter to: 


W. P. Gaffigan, Editor 

IBM Installation Newsletter 

Systems Engineering Technical Programs 
DPD HQ 

112 East Post Road 

White Plains, New York 10601 

Telephone 914 WH9-1900 Extension 4781 
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OS/360 RELEASE 13 - DISPLAYING TAPE 
UNITS INSTEAD OF U/R DEVICES 


The following is a field contribution. It con- 
sists of a SUPERZAP change made by a user 
to OS/360 Release 13, SYSGEN'ed for MFT and 
tested by the user with a S/360 Model 50 ina 


production environment. Potential users should 


be aware that it has not been submitted to any 
formal IBM test, that no maintenance is avail- 
able, and that they are expected to evaluate its 
usefulness in their own environment. 


The following module change, Job D99755A7, 
Exhibit 1, is to the display jobnames routine. 
This causes tape units instead of unit record 
devices to be displayed on the system console 
at step initiation time. This gives the operat- 
or time to prepare to externally label tapes 
instead of having to wait until step termination 
to learn the output tape locations. This has 
proven more useable to the user than the "Dis- 
play Status" technique. 
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OS/360 RELEASE 13 SYSOUT WRITER BYPASS 
OF TAPE RETENTION 


The following is a field contribution. It con- 
sists of a SUPERZAP change made by a user 
to OS/360 Release 13, SYSGEN'ed for MFT 
and tested by the user with a S/360 Model 50 
in a production environment. Potential users 
should be aware that it has not been submitted 
to any formal IBM test, that no maintenance 
is available, and that they are expected to 
evaluate its usefulness in their own environ- 
ment. 


The following technique overcomes a problem 

in writing SYSOUT tapes when the label re- 
tention period field has been inadvertently mod- 
ified in the prior use of a labeled scratch tape. 
The routine permits the SYSOUT writer to ignore 
the retention period check and saves the oper- 
ator the trouble of remounting a validly labeled 
tape. 


Job D99755C8, shown in Exhibit 1, overlays 

a 613 ABEND instruction by branching to user 
coding which modifies the retention period 
check routine message and branches to the re- 
tention check routine. The message modifi- 
cation code overlays the tape recording tech- 
nique routine. This was done since this user 
has no seven track tapes on his system which 
would require use of the TRTCH routine. If 

a user had seven track tapes on his system, he 
would have to find someplace else for the code 
or reassemble the module with the added cod- 
ing. 


QS/360 RELEASE 13 - DISPLAYING TAPE UNITS INSTEAD OF U/R DEVICES 


Oe a me ee ee re ee ee ee eee 
- 


7/DSE9TS5AT JOB 90951T; aMSGLEVEL=1 


// EXEC PGM=SUPERZAP 


JISYSLIB DD _DSNAME= SYS1-LINKL 1B ,DISP=DLD »VOLUME=SER=AyUNIT=23i1 


7Z/SYSPRINT DD 
-LISYSIN DD * 


SYSOUT=A 


* THIS ZAP CAUSES TAPE CLE NAMES TO BE DISPLAYED ON CONSOLE INSTEAD OF 


* UNIT 2FECORD DD NAMES 
NAME IEFCNTRL XTTPCC 
_.-MERLEY______OOBE 91O8EC12 
REP OOBE 31806012 
SO A __ 
Exhibit 1 
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OS/360 RELEASE 13 SYSOUT WRITER BYPASS OF TAPE RETENTION 


//099755C8 SUB 9O951T4I 
7/ EXEC POM=SUPERZAP 


»>MSGLEVEL=1 


J/SYSLI8B DO OSNAME=SYS1.SVCLIB,DISP=OLD,UNI T=2311, VOLUME=SER=A 
J/SYSPRINT 09 SYSOUTEA 
TZ/SYSIN. DE x 
* THIS CHANGE INTERCEPTS A_ 613 DN AN OUTPUT TAPE. PUTS A fQ' IN 
a THE RETENTION PERIONC CHECK MESSAGE AND BRANCHES TO IT. 
* THIS FIX CANNOT BE USED IN A 7 TRACK TAPE INSTALLATION. 
NAME IGGOLSOP  IGGC1SOP 
WER TEY 022C 43B04CC1 
VERIFY 0230 BP&BO0C0442B 0 
VERTFY 0236 40220000 ~ 
VER TEY. OOD BA 40223 2DB 
VERIFY O3R0 G4iILOOE3 
oo * REPLACE ABEND. RRANCH TQ PATCH AREA 
REP O3RO 47TFE 03226 
* SRANCHK AROUND TRTCH ROUTINE. AREA WILL BE USED FOR PATCH. 
REP 022C 47603248 ee 
TTT NEP 0230. © D2T44C0C 33CE 
REP 0236 Ss 92084014 
ee RED O23A 47F C3336 
/* 
Exhibit 1 


OS/360 PASSED DATA SET CLARIFICATION 


The following article was supplied by a Field 
Systems Center. 


A recent problem encountered with a passed 
data set on 7-track tape indicates a need for 
clarification of how the passing of data sets 
works. The information in the OS/360 man- 
uals is augmented as follows. 


The passed data set results in the filling in of 
only 6 fields in the JFCB (JFCBDSNM, JFCB- 
ELNM, JFCBLTYP, JFCBLFLSQ, JFCBNVOL, 
and JE CBVOLS) in the receiving step. Exam- 
ination of these fields indicates that not much 
information is available - essentially data set 
name, volume serial numbers, location on vol- 
ume, and type of label. There are no data set 
attributes and the tape density field is not sup- 
plied. 


Therefore, if required, this information must 
be supplied in the receiving step. With disk 
data sets and standard labeled tapes, the data 
set attributes are available in the labels. With 
nonstandard labels and unlabeled tapes, the 
data set attributes must be supplied in the pro- 


gram, or the DD card. The tape density field 
is important in the case of 7-track or 800-1600 
BPI 9-track drives. The default for this field 
is 200 BPI on 7-track and 1600 BPI on the 9- 
track with 800-1600 BPI capability. Therefore, 
the system will read the tape at the default den- 
sity unless a density parameter is supplied on 
the receiving step. 


For example, if an 800 BPI tape with standard 
labels were created and passed on, a 7-track 
drive on STEP 1 of a job and STEP 2 referenced 
it by DSNAME = *, STEP 1. DDI] and DISP=OLD 
and no density, then the system would default 
to 200 BPI for density, try to read the tape la- 
bels and ABEND with an OPEN problem. STEP 
2 must supply the density parameter to avoid 
the default and to read the labels where the re- 
mainder of the information for the data set is 
found. 


OS/360 SIMPLIFIED JCL SYMBOLIC 
PARAMETER OVERRIDE PROCEDURE 


The following article provides additional detail 
on the new JCL Symbolic Parameter Capability 
which has been announced (December 11, 1967) 
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as becoming available February 15, 1968. The 
information is provided for planning purposes. 


Using JCL to override cataloged procedures 
requires that the problem programmer be 
familiar with the internal structure of the pro- 
cedure e.g., he must know the sequence and 
names of steps and DD statements in order to 
change any of the parameters. A new facility, 
symbolic parameters, simplifies procedure 
invocation by permitting easy and direct sub- 
stitution for any parameter on any statement 
of a cataloged procedure. In addition, symbolic 
parameter substitution allows problem pro- 
grammers to override cataloged procedures 
using non-JCL oriented statements. 


Symbolic parameters, which are syntactically 
analogous to assembly language macro para- 
meters, are described in the publication "IBM 
System/360 Operating System-Job Control 
Language", Form C28-6539- 4. Briefly, 
symbolic parameters can be defined ina 
cataloged procedure using the special character 
"&", and values may subsequently be assigned 
to these parameters on EXEC statements in- 
voking the procedure. A new JCL statement, 
PROC, allows default values to be specified 
within the procedure. 


An example of the type of procedure which could 
use this facility is an assembly and linkage edit, 
where the source is a member of PDS library. 
Some of the input parameters to a procedure 

of this type might be: 


1. MODULE to be processed. 
. TYPE of module (e.g., reentrant). 
3. Private macro library (MACLIB) to 
be used. 
4. Volume (MACVOL,) containing the 
private macro library. 


Exhibit 1 shows the current cataloged procedure 
and an example of modification to use symbolic 
parameters. 


Note that the underlined parameters are the 
symbolic parameters which are to be over- 
ridden. Also, as in the case of & MODULE, 
they can be used more than once. The PROC 
statement defines a null value as the default for 
&TYPE. (This defaults to a "safe" attribute 

of non- reusable unless a less restrictive attri- 
bute is explicitly assigned. ) 


The JCL which a problem programmer would 
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need to override the current cataloged pro- 
cedure is shown in Exhibit 2. 


Note the procedure-dependent information which 
the problem programmer must supply: 


l. Procedure stepnames must be known. 


2. DDnames within steps of the procedure 
must be known. 


3. The order in which steps appear within the 
procedure must be known. 


4. DDnames must be overridden in the same 
order that they appear in the step with- 
in the procedure. 


5. DD's must be shown for unmodified mem- 
bers of a concatenation, (but only if 
they precede the modified members), 


6. All processor options must be stated even 
if they aren't being changed. 


7. Overrides must contain JCL information 
which is not modified if it is contained 
in the same major key field as a modi- 
fication. 


The symbolic override consists of only one 
statement: 


//EXEC ASMED, MODULE = MYMOD, TYPE= 
RENT, MACLIB=PVTMAC, MACVOL=792613. 


Note that the keywords in this statement per- 
mit the user to describe his job in a mnemonic 
problem-oriented way and that he is almosten- 
tirely shielded from the JCL. 


OS/360 ISAM - IMPROVEMENT OF DATA SET 
INTEGRITY 


Improvement of data set integrity can be ac- 
complished under OS/360 ISAM. 


PTF # 360S-13270-12 is available to correct 
the problem described below, This PTF may 
be used with Releases 12, 13, and 14, and sup- 
ersedes PTFs 1023014 and 1134l-ll. The fol- 
lowing APARs have been fixed by this PTF: 
13270, 10230, and 11341. Inquiries regarding 
these PTFs and APAR's should be directed to 
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OS/360 SIMPLIFIED JCL SYMBOLIC PARAMETER OVERRIDE PROCEDURE 


The current cataloged procedure to do the assembly and linkage edit 


PGM=IEUASM 
DSNAME=SYS1. MACLIB, DISP=OLD 

DSNAME=SOMEMAC, VOLUME=(PRIVATE, SER=123456), DISP=OLD 
DSNAME=SYMLIB(SOMEMOD) 

UNIT=SYSSQ, SPACE=(1700, (400, 50)) 

UNIT=SYSSQ, SPACE=(1700, (400, 50)) 


UNIT=(SYSSQ, SEP=SYSUT2, SYSUT1, SYSLIB)), x 
SPACE=(1700, (400, 50)) 

SYSOUT=A 

DSNAME=& LOADSET, UNIT=SYSSQ, SPACE =(80, (200, 50)), x 


DISP={MOD, PASS) 

PGM=IEWL, PARM=!KREF, LIST, NCAL' 

DSNAME=& TEMP(PDS), UNIT=SYSDA, SPACE =(1024, (50, 20, 1)) 
DSNAME=& LOADSET, DISP=(OLD, DELETE) 

DDNAME=SYSIN 

UNIT=(SYSDA, SEP=(SYSLIN, SYSLMOD)), SPACE =(1024, (50, 20)) 
SYSOUT=A 


If this procedure were modified to use symbolic parameters, it might appear 


would be: 
//ASM EXEC 
//SYSLIB DD 
// DD 
//SYSIN DD 
//SYSUTI1 DD 
//SYSUT2 DD 
//SYSUT3 DD 
// 
//SYSPRINT DD 
//SYSPUNCH DD 
// 
//LKED EXEC 
//SYSLMOD DD 
//SYSLIN DD 
// DD 
//SYSUT1 DD 
//SYSPRINT DD 
as shown below. 

PROC 
/ {ASM EXEC 
//SYSLIB DD 
// DD 
/{SYSIN DD 
//SYSUT1 DD 
//SYSUT2 DD 
//SYSUT3 DD 
// 
//SYSPRINT DD 
//SYSPUNCH DD 
// 
//LKED EXEC 
{/SYSLMOD DD 
//SYSLIN DD 
// DD 
//SYSUT1 DD 
//SYSPRINT DD 


TYPE= 
PGM=IEUASM 

DSNAME=SYS1.MACLIB, DISP=OLD 

DSNAME=8& MACLIB, VOLUME=(PRIVATE, SER=&MACVOL), DISP=OLD 
DSNAME=SYMLIB(& MODULE) - 
UNIT=SYSSQ, SPACE =(1700, (400, 50)) 

UNIT=SYSSQ, SPACE=(1700, (400, 50)) 


UNIT=(SYSSQ, SEP=(SYSUT2, SYSUT1, SYSLIB)), x 
SPACE=(1700, (400, 50)) 

SYSOUT=A 

DSNAME=8& LOADSET, UNIT=SYSSQ, SPACE =(80, (200, 50}), x 


DISP={MOD, PASS) 

PGMSIEWL, PARM='XREF, LIST, NCAL, & TYPE! 
DSNAME=OBLIB(&MODULE), UNIT=SYSDA, SPACE=(1024, (50, 20, 1)) 
DSNA ME=& LOADSET, DISP=(OLD, DELETE) 

DDNAME=SYSIN 

UNIT=(SYSDA, SEP=(SYSLIN, SYSLMOD)), SPACE=(1024, (50, 20)) 
SYSOUT=A 
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OS/360 SIMPLIFIED JCL SYMBOLIC PARAMETER OVERRIDE PROCEDURE 
Of 50U DIM PLP LE) JU ot MEY YA ee 


//EXEC 

@), /ASM. SYSLIB DD 
IT DD 
//ASM. SYSIN DD 


ASMED, PARM. LKED='XREF, LIST, NCAL, RENT' 


DSNAME=PVTMAC, VOLUME=(PRIVATE, SER=792613) 


DSNAME=SYMLIB(MYMOD) 


© //LKED.SYSLMOD DD DSNAME=OBLIB(MYMOD) 


Exhibit 2 


the local Field Engineering representative. 


Problem 


After a WRITE-KEY-NEW operation, the 
pointers in the Format 2 DSCB which point 
to the last record in the prime area (DS2» 
LPRAD) and to the last record in the inde- 
pendent overflow area (DSZLOVAD) may be 
invalid. At CLOSE time, the last prime data 
record pointer (DCBLPDA) and the last inde- 
pendent overflow record pointer (DCBLIOV) 
fields of the DCB are used to update the for- 
mat 2 DSCB. If the ISAM data set is not 
successfully closed, the format 2 DSCB may 
not accurately describe the structure of the 
ISAM data set. 


Correction 


This problem can be solved by maintaining 
an End of File (EOF) record just beyond the 
last independent overflow record and check- 
ing the location of this EOF record as well as 


the existing EOF record at the end of the prime 


data upon opening the data set. If necessary, 
the DCB fields which reflect these locations 
are corrected. This check of critical fields 
at OPEN time will improve data set integrity. 


‘ Prog ramming Considerations 


If ISAM with PTF is used to process an exist- 
ing data set, any residual EOF record in the 
independent overflow area will cause the cor- 
responding last record pointer to be errone- 
ously adjusted. Space between the actual last 
record and the residual EOF record will be- 


come unayailable. It is suggested that the 
data set be reorganized using ISAM with PTF 
code. 


When calculating space requirements for an 
indexed sequential data set, the user must 
consider the space required for the EOF re- 
cord following the last data record in the 
prime and independent overflow areas. ISAM 
reserves the last track of the prime area for 
the EOF record. In the independent over- 
flow area the space required for the EOF 
record is equal to the BLKSIZE (block size). 
Therefore, when determining the number of 
records that will fit in the independent over- 
flow area, the EOF record must be consid- 
ered. 


OS/360 RELEASE 13 - COBOL F PERFOR- 
MANCE AND DATA SET SPACE IMPROVE- 
MENT 


The following is a field contribution. It con- 
sists of a SUPERZAP change made by a user 
to OS/360 Release 13, SYSGEN'ed for MFT 
and tested by the user with a S/360 Model 50 
in a production environment. Potential users 
should be aware that it has not been submitted 
to any formal IBM test, that no maintenance 
1s available, and that they are expected to 
evaluate its usefulness in their own environ- 
ment. 


The following change will improve COBOL F 
performance and reduce the data set space 
requirement. 


This SUPERZAP change, Job D99755JC, Ex- 
hibit 1, changes the blocking of the COBOL F 
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SYSLIB dataset. The change is to blocksize 
constant modifying a blocksize from 400 to 


3600 giving this user better 2311 disk utilization. 
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OS/360 RELEASE 13-COBOL F PERFORMANCE AND DATA SET SPACE 


IMPROVEMENT 


> OND ED GED GD TED CED GS OED ED cae 000d OD EES GED GED GED ED GD OD a SP OD oe ee GD OD SE a a oe oD ee a: CS BSD che GS TES ED GES ENS WD Gy GS OES cate SE ED OS ED BP OE OE SD GEE GB BD GP BD EF OD GS GE ED OD SD BS OB GD OH GF OE GE GD GD. GE ED Gt 60 EF UR GR 08 OD 28 68 O98 EHS SEBS 


// EXEC PGM=SUPERZAP 
/SYSLIB as 
JASYSPRINT DD 


VERTFY 
REP O41C 


O41C 
QE10 

/* 

Exhibit 1 


OS/360 FORTRAN - OPM'S TO PUT POUND. 
SIGN BACK INTO CSECT NAME | 


There are three OPM's (Optional Program Mod- 
ifications) that will be available with Release 14 
in SYS].SAMPLIB, The application of these 
OPM's will allow an installation to continue with 
the CSECT pound sign convention and operate 
in the same manner as at present. They will 
be available for a limited period of time, and 
will allow additional time for a normal conver- 
sion. 

The first step in applying these OPM's is to 
list and punch OPM00001 (applies to FORTRAN 
E), OPM00002 (applies to FORTRAN G) and 
OPM00003 (applies to FORTRAN H) which are 
three separate members of SYS1.SAMPLIB. 
Each of these members is made up of two job 
steps, the first to update SYS1. MODLIB, and 
the second to update SYSI. LINKLIB. The 
OPM's may be used as they are supplied, but 
for efficiency the following alternate approach 
is suggested. There are two separate circum- 
stances where these OPM's may be applied. 
The first is before SYSGEN and the second is 
after SYSGEN. The advantage of applying them 
before SYSGEN is that it need only be done once 
for multiple SYSGENs. The advantage of apply- 
ing them after SYSGEN is that with only one 
SYSGEN you can have a system with the OPM's 
applied and a second system without them. 

This can be done by copying the new system 
and applying the OPM's applied and a second 
system without them, 


In either case only one of the two job steps 
supplied in each OPM need be run. 


> oe Gm OF OF 6 Gay GD OD Of GP BS SF Ge GF o> wn OE OP aE wD am oe OD ae te oP a 


To make the application before SYSGEN, the 
following job steps should be to update SYSI. 
MODLIB for FORTRAN'S E, G&H, respec- 
tively: 


//STEPI1 in OPM00001 
//LKEDMOD in OPM00002 
//STEPI in OPM00003 


To make the application after SYSGEN, the 
following job steps should be run to update 
SYS1. LINKLIB for FORTRAN'S E & G, respec- 
tively: 


//STEP1 
//LKEDMOD 


in OPM00001 
in OPM00002 


The DD card for SYSLMOD should be changed 
to point to SYS]. LINKLIB instead of SYS1. MOD- 
LIB before either of these job steps is run. 

To make the application after SYSGEN, the 
following job step should be run, without 


change, to update SYS1. LINKLIB for FOR- 
TRAN H: 


//STEP2 in OPM00003 
Currently, when a module in SYS1, LINKLIB 
is replaced by a new module, the space used 
by the old module is not made available for 
reuse. For this reason the following amounts 
of unused space must be available in SYSI. - 
LINKLIB in order to successfully apply the 
OPM's after SYSGEN. FORTRAN E requires 
4 additional tracks, FORTRAN G requires 5 


additional tracks and FORTRAN H requires 
152 additional tracks. 
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OS/360 PL/I DEBUGGING AID d) After Repair 
It is sometimes desirable, when debugging 
large PL/I programs, to be able to access the 
number of the statement causing a particular 
error, This normally occurs when an ON unit 
is written such that its scope is for the duration 
of the program, and that execution must be for- 
ced as far as possible in order to find the maxe 
imum number of bugs per run, and when the 
standard system action (which would automat- 
ically print the statement number) is not suit- 
able. a) 


ervisor. 


CE Communications 


The assembly language routine shown in Ex- 
hibit 1 is self explanatory. 


OS/360 ON-LINE TEST EXECUTIVE PROGRAM b) Data Protection 
(OLTEP) 

The On-Line Test Executive Program (OLTEP) 
together with associated on-line unit tests al- 
lows testing of System/360 I/O devices while 
operating under control of the Operating Sys-~ 
tem/360 Supervisor. The program, when in-. 
cluded inthe operating system, will facilitate 
increased system availability and reduce the 
required maintenance time. 


c) Scheduler 


1. Description: Use of the OLTEP does not 
require the customer to relinquish the en- 
tire system to the Customer Engineer each 
time he desires to test a device. OLTEP 
is a system of testing that provides minimum 
interference with normal operations. The 
OLTEP with an associated I/O unit test are 
viewed by the OS/360 Supervisor as a prob- 
lem program. Time independent tests of 
I/O units will be executed in the problem 
state and in a multiprogramming environ- 
ment. The integrity of customer data is 
provided for with all tests. These unit tests 
directed by the OLTEP have the following 
purposes and uSage: 
a) Periodic Check 


d) On-Line Test 
Access Method 


e) DEB-DCB 
Subroutine 


- to ascertain con- 
dition of an I/O 
unit 

to provide a tool 
to assist in mak- 
ing certain ad- 
justments 

to exercise the 
failing equipment 
to aid in further 
defining the mal- 
function 


f) DPRINT Sub- 
routine 


b) Adjustment - 


g) Compare Sub- 


c) On Known Failures’ - : 
routine 
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- to verify the re- 


pair 


The OLTEP directs the execution of the on- 
line unit tests and acts as an interface between 
these tests and the Operating System/360 Sup- 


2. Features: The following sections showing 
basic purpose are included in OLTEP, 


-~communicates with 
the operator/CE to 
define the job and 
provides for initial- 
ization and term- 
ination of testing. 


-provides manual 
and program checks 
to insure the integ- 
rity of customer 
data. 


-schedules and in- 
vokes the device 
tests that have been 
called for via CE 
communications. 


-provides for the 
required set up of 
control blocks, etc., 


before executing 


'EXCP' - also in- 
terfaces with the 
OS with execution 
of the 'WAIT' mac- 
ro- 


-sets up appropri- 
ate DEB and DCB 
for the device test. 


-provides for print- 
ing of unit test out- 
put messages via 
normal access 
method. 


-provides for check- 
ing of results from 
an I/O operation. 


md 
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h) Convert Sub- -~provides for con- 
routine version of HEX to 
EBCDIC and vice 
versa. 


i) Random Data 
Subroutine -provides for gen- 
eration of random 
data that may be 
used by unit tests. 


3) CECOM -~provides for oper- 
ator/CE commun- 
ication originating 
from the unit test. 


Functions: To have the facility of on-line 
testing, the OLTEP and an associated SVC 
must be incorporated as an integral part 

of the Operating System. This may be ac-~- 
complished either at the time of System Gen- 
eration or via a system update. The I/O 
unit tests themselves comprise a third es- 
sential element of the on-line test facility. 
These unit tests will be released as a se- 
quential data set on magnetic tape. Prior 

to use in the system, therefore, they must 
be translated to load module format ina 
partitioned data set. The OLTEP, resid- 
ing on the LINK library, is called into mem- 
ory via normal JCL input. The program, 
when loaded, will make requests via the 
console device to define the job to be exe- 
cuted. The information requested will in- 
clude future communication intervals, de- 
vices to be tested, tests to be executed, and 
options to be exercised. When the job has 
been thus defined, a LINK will be executed 
within the OLTEP scheduler to load and be- 
gin execution of the initial test section. The 
execution of I/O unit tests will normally con- 
tinue until all desired tests have been run on 
a device. If other units have been called for 
in defining the job, the test sections will be 
run again in the next unit, etc., until all 

the desired devices have been tested. 


Data Protection: Data protection, within 
OLTEP, is devoted to insuring the integrity 
of customer's data when On-Line Tests are 
executed. Verifying that proper volumes 
have been mounted, setting up of extents, and 
establishing of file mask - mode set byte 
are all functions of data protection. 


This protection is achieved by both manual 
and software checks. The manual checks, 
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consisting of message output requiring Op- 
erator/CE response, will occur prior to exe 
cution of atest. These messages will relate 
to devices having demountable volumes, and 
will request a response indicating that the 
proper volume for testing has been mounted. 
Software checks, consisting of programmed 
tests to verify the volume are also made 
whenever possible. For certain device types, 
each test section, prior to execution, will 
be checked for the type of test to be perfor- 
med. Based on the test type, the data pro- 
tection section may allow only certain oper- 
ations to be performed by setting the file 
mask - mode set byte, and may confine the 


test space to a specific area by establishing 
the extents. 


Changing of file mask, mode set byte, ex- 
tents--functions that are not normally per- 
formed by problem programs--are accom- 
plished within OLTEP by use of a special 
SVC. A program check is made each time 
this SVC is executed to assure that it has 
been issued within the OLTEP. The user, 
therefore, may feel secure that these same 
functions cannot be initiated by normal prob- 
lem programs when the on-line test facility 
is included in his system. 


. Equipment Configuration: The minimum sys- 


tem configuration required to run the OLTEP 
will be the same as that required to support 
the user's Operating System plus the addi- 
tional unit or units to be tested. 


Unit tests for System I/O devices will be 
released within the diagnostic area. 


. Performance: Approximately 1400 bytes of 


core will be required for the OLTEP with an 
additional 4000 bytes for the associated unit 
tests to be run. These unit tests are execu- 
ted one at a time for a given device and 
therefore, 18K is the maximum main storage 
requirement. Approximately 350K bytes of 
external storage will be required on a direct 
access device used to store the partitioned 
data set comprising all I/O unit tests. 


The execution time for a unit test will de- 

pend upon the type of operating system being 
used and the particular environment in which 
the test is being performed. The small a- 

mount of time sacrificed in testing, however, 
will be negligible with respect to the increased 
availability achieved with this type of testing. 
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7. Description of On-Line 2400 Tape Tests 


a) 


b) 


c) 


d) 


e) 


Section T2400A (OS) 


1, WTM at load point. 
Series of REW's check load 
point bit on. 
3. RDF TM - set unit exception. 
4, RDB TM - set unit exception. 


Section T2400B (OS) 


1. WRT - RDB - RDF zeroes. 

2. WRT - RDB - RDF ones. 

3. BSR for correct positioning. 

4, BSR over TM for unit excep- 
tion. 

5. BSR into load point for unit 
check. 


Section T2400C (OS) 


l. BSF over TM for positioning 
and status. 

2. BSF over record into load 
point for unit check. 

3. FSR for positioning and stat- 
us. 

4. FSR over TM for unit excep- 
tion. 


Section T2400D (OS) 


l. FSF over 3 records and TM 
for positioning and status. 

2. BSF at load point for unit 
check. 

3. BSR at load point for unit 
check. 

4, RDB at load point for unit 
check. 

5. Multiple positioning commands 


for positioning. 


Section T2400E (OS) 


1. RDF record with lst char- 
acter similar to TM for 
no unit exception. 

2. RDB record with last char- 
acter similar to TM for 
ng unit exception. 

3. RDB record with LRC simi- 
lar to TM, for no unit 
exception. 

4. RDB record with CRC simi- 
lar to TM for no unit ex- 
ception. 

5. RDB record with CRC and 
LRC similar to TM for 
no unit exception. 


f) 


g) 


h) 


~~ 


i 


j) 


k) 


1) 
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Section T2400F (OS) 


1, WRT - RDB - RDF 256 char- 


acters (9 trk) - 64 characters 


(7 trk). 

2. BSR over long record for 
positioning. 

3. RDF with larger count than 
record for 1Ll, residual 
count. 

4, RDB with short word count 
for 1L1. 


Section T2400G (OS) 
1. SILI flag ' on' to suppress 
1L1 on large count. 


2. 1L1 to break CCW chain. 

3, SKIP flag 'on! for no data 
transfer. 

4. Termination under count 


control for 1LI. 


Section T2400H (OS) 
1. WRT - RDF - RDB random 
data. 


Section T2400I (OS) 

1, WRT 800 BPI, 

2. WRT 556 BPI. 

3. WRT 200 BPI. 

4, WRT - RD at 800 BPI, DC 
and TRN off, odd parity. 

5. WRT - RD at 800 BPI, DC 
and TRN off, even parity. 

6. WRT odd parity, RD even 
parity. 

7. WRT even parity, RD odd 
parity, 


Section T2400J (OS) 


l. WRT - RD random data 


Section T2400K (OS) 


1. Output TRN - WRT TRN 'on!, 
RD TRN 'off', 

2. Input TRN - WRT TRN 'off', 
RD TRN 'on', 

3. WRT 256 characters TRN 'on! 
RD TRN 'off'. 


Section T2400L (OS) 


1. Translate 64 BCD characters 
to 64 EBCDIC characters. 
WRT TRN 'of', RDB TRN 
‘on’, 
2. WRT 8-bit blank TRN 'on', 
RDB 6-bit substitute 


ll 


3 
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blank TRN 'off'. 

3. WRT 6-bit substitute blank 
TRN '‘off', RDB 8-bit 
blank TRN 'on'. 


m) Section T2400M (OS) 
1. Output converter. WRT 18 
bytes DC 'on', RD DC 
‘off'. 


Le Input converter. WRT 32 
bytes DC 'off', RD DC 
'on', 

3 WRT-RD 256 characters DC 
‘on’. 


n) Section T2400N (OS) 


1. DC to write 1 byte as 2 tape 
characters. 

Ze DC to write 2 bytes as 3 tape 
characters. 

oe DC to convert 1 tape char- 
acter to 1 data byte and 
set unit check and DC 
check. 

4, DC to convert 2 tape char- 
acters to 2 data bytes and 
and set unit check and DC 
check. 


0) Section T2460 (OS) 

Le DC to convert 3 tape char- 
acters to 3 data bytes and 
set unit check and DC 
check. 

rae DC to convert 2 tape charac- 
ters to 1 data byte, no 
unit check, no DC check. 

oe DC to convert 3 tape charac- 
ters to 2 data bytes, no 
uait check, no DC check. 


NOTE: Sections 2400A to 2400G are 7 and 9 
track tests. 
Section 2400H is 9 track only. 
Sections 24001 to 24660 are 7 track only. 


8. 2311 On-Line Tests 


a) Section T2311A (OS) 
Tests basic communication between 
the 2311 + 2841 SENSE, READ, 
SEEK, RECALIBRATE, Com- 
mands are used, 


b) Section T2311B (OS) 
Tests difference counter and CAR 
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bits both setting and being clear- 
ed. 


c) Section T2311G (OS) 
Tests the ability of the 2311 to seek 
to all cylinders and also per- 
form a ''worst case" seek test. 


d) Section T2311D (OS) 
Tests random seeks and writing 
using various data patterns. 


e) Section T2311E (OS) 
Tests multitrack operation, end of 
cylinder and rotation speed. 
Also provides two optional 
routines to seek between any 
two addresses or write home 
addresses on any track. 


f) Section T2311F (OS) 

Tests for correct ending conditions 
using various invalid seek or 
set file mask commands and 
and masks. 


g) Section T2311G (OS) 
Checks read count, space count 
and erase operations. 


h) Section T23l11H (OS) 
Checks Search HA, write and read 
RO, write and read CKD, KD, 
and data. 


DOS/360 SYSTEM GENERATION HINT 


The following technique is a field contribution. 

Users should be aware that it has not been sub- 
mitted to any formal IBM test and are expected 
to evaluate its usefulness in their own environ- 
ment, 


When running the job to catalog the user tail- 
ored supervisor, along with the critical pro- 
grams such as Job Control, etc., do not in- 
clude a / & card in the job stream. Placea 
pause card in its place in the job stream. 


Although cataloging of the new supervisor takes 
place during the link edit run, the old super- 
visor is still in control of the system until the 
/ & card has been read. By not having the / 

& card in the job stream, the user is assured 
that control will not pass to the new supervis- 
or until he wishes it. Should any error in eith- 
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er linkage editing or any unrecoverable hard- 
ware situation occur, there would be no / & 
card to cause control to pass from the old su- 
pervisor to the newly cataloged supervisor. 
Should any error occur, do the following: 


1 DONOT RESET OR REIPL THE SYSTEM. 


2. Correct the error condition. If a new as- 
sembly of the supervisor is required, it 
may be done at this time by submitting the 
deck for assembly starting with a // Job 
card. The new deck may be cataloged 
after the assembly by starting with a // 
Job card. 


3. The system will once again come to the 
pause card. If no errors have occurred, 
submit the / & card to the reader. The 
following message will now appear on Sys- 
log: 'New supervisor cataloged, reipl to 
continue’. 


If no errors had occurred, when the system 
read the first // pause card, step 3 would have 
been performed immediately. 


DOS/360 JOB TO JOB COMMUNICATION 
TECHNIQUE 


The following is a field contribution which has 
not been submitted to any formal IBMtest. Po- 
tential users are expected to evaluate its use- 
fulness in their own environment and should be 
aware that no IBMmaintenance will be avail- 
able. Users should consider the implications 
involved in making changes to their system. 


Since the communication region is cleared 
after each job, information cannot be passed 
from job to job. One user desired load up 
(daily) constants at the start of the day to be 
used by all the programs. He could have put 

a constant card in each deck to do this. How- 
ever, a simple modification to the supervisor 
and the use of two macros provided the desired 
results. The FOPT macro is punched out and 
the modifications in Exhibit 1 are applied as 
stated in Columns 40-71. Then FOPT is re- 
cataloged and a new supervisor generated. The 
new supervisor will accept supervisory calls 
218 and 219. These SVC's are used to get in- 
formation into and out of the supervisor area. 
Exhibit 3 shows the macro SUPAREA which, 
when executed, loads the address of the 40 byte 
area into Register 1. The program can then 
move information out of the area. Since put- 


ting information into the supervisor area can- 
not be performed under storage protect by the 
problem program, SVC 219 was used to load 
the area. By using the STORESUP macro, 
shown in Exhibit 3, the modified supervisor 
will take the address in Register 1 and move 

40 bytes into the supervisor, then return to the 
user program. 


The macros and SVC's use Registers 9 and 10 
because the locations of the save area for these 
registers after issuing a SVC are easy to lo- 
cate. The macros use 9 and 10, but restore 
them to the user. The problem program can 
use 9 and 10, in any way it wishes, even as 
base registers without restriction. If a larger 
area is needed, the only change is to the length 
of the DC names KKTEMP in Exhibit 1. These 
macros and the supervisor area have been used 
for over three months, ona system with stor- 
age protect, without problems. 
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BOS/360 RPG CHAINING RECORD NOT FOUND 


ROUTINE 


The following is a field contribution which has 
not been submitted to any formal IBM test. 
Users are expected to evaluate its usefulness 
in their own environment. 


Under BOS RPG using chaining, when a record 
is not found in the chained file, the message 
5885A is typed. The operator can terminate 
by typing a 0 or 1, bypass the chaining record 
by typing a 2 (program branches to GETREC), 
or he can bypass the chained record by typing 
a 5 (program branches to DETAIL CALCGS). 


One user wanted operator intervention elim- 
inated; he always wants to go to DETAIL CAL- 
CS where he will check indicators to determine 
the status. (Model 20 Disk RPG works this 
way). 


The attached assembler (V1-M§8) subroutine 
was written and cataloged into the relocatable 
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The routine (See Exhibit 1) finds the one, two, 


or three places in core where RPG has gen- 
erated the SVC that generates the message and 


puts 16 bytes of NOP's in its place. 


The cross 


reference listing is shown in Exhibit 2. 


Note that f'80' is added to GR3 before comparing 
starts so that LIT will not be compared to it- 


self, 


Other users might have to increase this 


if the program contains more than one subrou- 
tine and NO5885 is not at program load point. 
F'16000' must be ‘higher than the probable lo- 
cation of the SVC for the last chained file, but 
less than core capacity. 


library. An exit is taken to it once in each pro- 


gram that does chaining, usually as the first 
detail calculation conditioned, for example, on 
date card resulting indicator. 


_LOCATN ORJECT CODE ADORI ADDR? S$ 


 Q00000 DO5FO 


_900002 
000002 50320 F032 — 00034 
000006 5A30 FO3A 0003C 
OOOODA D505 F042 3000 090944 00000 
_900010 4780 F022 00024 
000014 5A20 F036 90038 
000018 5930 FO3F 00040 
OOOOIC 4780 ©07Cc — ON02F 
000020 47FO FO08B OOONA 
000024 D20F 3000 FO48 QnDAN ONN04A 
000024 47FO FOL? 00014 
O0002F 5830 FO032— 00024 
000032 OTFF 


~ 000034 00000000 

000038 000C0001 
00003C 00000050 
000040 O0003FRO 

~~ 000044 OADZFSFBFRFS © 

_00004A 4700F0024790F002 

~ 000052? 470CFO024700F002 
cocoon 


Exhibit 1 


SUIT 2s, 


000] 
QNN0?2 
0003 
O004 
0005 


NO5885 
NOSER5 
BALR 


OnC6 


N007 
ONO0R 
NN09 
N0O10 
O01] 


0012 


0013 


0014 | 


0015 
0016 
ON17 


0012 


N09 
020 
0021 
0022 
00273 


NN24 


N025 


ANPTN 
AFILF 
START 
RAL P 


USING 


ST 
A 


CLC 


AE 


ALY 


ee) gl Lene 


_SQURCE STATEMENT —3260R_AS 309 VIM 


CBOSSRE Gc. n oe. 
LIRRARPY,RETAIN 
15,0 

*, 15. 
Ne eee 
3,FIG 
Liy,0730 


2,0NE 


DONE 


Cte 


UP 


Fala 

COD oo 
FAaLENNNA 
XROADPESFRFRESA © 
XM4TINNENOZ4TINFONZA 


X84 TO0F 0024 TO0F 002A 


RALR 


1? 
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BOS/360 RPG CHAINING RECORD NOT FOUND ROUTINE 


ae CROSS REFERENCE LISTING - DISK ASSEMRLER, BK 
SYMBOL LEN VALUE OFF CRNSS-REFERENCE  } 
BALR  =—s- 902 = 000000 0004 0025 
CLC 006 OO000A 090008 00123 
DONE 004 O0002F 0016 (0012 
FIG 004 0N003C 0020 0007 
Fs 004 )§=—000034 «60018 0006 O16 
HIT 006 000074 90014 0009 
LUT OOF =—000044 =—0N22 NOR 
NEW Q08 O0004A 9023 0014 
N05885 000 000000 0003 
ONE 004 000038 0019 °&®»0010 ~~ : 
TOP 004 00040 0021 0011 
uP 004 000014 90010 oc1s 
Exhibit 2 


S/360-USING THE IBM EXECUTARY TO IM- 
PROVE OPERATIONS 


Several customers, particulary in the larger 
systems and multiprogramming installations, 
have placed IBM Executaries at the console of 
their systems. This provides a quick and ef- 
fective method for recording positively the con- 
ditions existing at the time of occurrence of 
any incident which affects processing. 


The IBM Executary is used by customer oper- 
ators, operator supervisors, and IBM Custom- 
er Engineers and System Engineers. Data rec- 
orded includes the time of day, system status, 
job starts, completions and stops, unscheduled 
interrupts, actions taken, time lost, and other 
information which seems pertinent at the time. 
Each moring the recording for the previous 
twenty-fouf hours, is typed, reproduced, and 
distributed. Then, each day a meeting is held 
by customer and IBM representatives to discuss 
each problem, its cause and solution. Any 
problem which is not resolved is identified 

and responsibility for follow-up is given toa 
member of the group. 


The procedure is very helpful in providing a 
history of events; it provides a document for 
improving communications between customer 
and IBM personnel concerned with identifying 
and solving hardware, software, operator, pro- 
gramming and related problems. The history 
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in this concise form allows identification of re- 
curring incidents and also provides a method 
for insuring that problems have been resolved. 


The result is better understanding and improved 
production and turn-a-round time. 


S/360 USING TRANSLATE INSTRUCTION TO 
REARRANGE DATA 


The following technique is a field contribution 
which has not been submitted to any formal 
IBM test. Potential users are expected to e- 
valuate its usefulness in their own environment. 
The Translate instruction is normally used to 
convert from one character set to another. ‘An 
example would be from BCD to EDCDIC, In 
the example below, Translate is used to alter 
the position of characters in a data record. The 
data is unchanged. Specifically, the example 
deals with reversing the sequence of charact- 
ers in a ten-character record--the byte in the 
tenth position is moved to the first position of 
the target field, the ninth to the second, eighth 
to the third, etc. 


GET input file, INPUT 

MVC TARGET, X'09080706050403020- 
100! 

TR TARGET, INPUT 

TARGET DC CL10 

INPUT DC CL10 
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The GET is included here to emphasize that 
the input data is variable; any characters in 
the EBCDIC set will do. The MVC sets up the 
TARGET field for the Translate instruction. 
When the TR is executed, the byte at INPUT 
+09 replaces the 09, the byte at INPUT +08 re- 
places the 08, and so forth. 


This approach is, of course, not limited to re- 
versing data fields. Any logical rearrangement 
is possible. For example, COS uses this ap- 
proach to extract every other byte of a card in- 
put area when handling Column Binary data. 
(S/360 reads column binary cards into one con- 
tinuous 160 byte area. The 1401 reads such data 
into two discontinuous areas at locations 40] and 
501. COS "Translates" 360 positions 1,3, 5,... 
to 1400 positions 401, 402, 403....) 


The TRANSFORM verb in COBOL uses the 
Translate instruction and a similar effect can 
be coded in COBOL. The following are the 
COBOL statements to reverse the position of 
data in a 10 byte input record. 


DATA DIVISION. 
INPUTA PICTURE X(10). 
TARGET PICTURE X(10). 
PROCEDURE DIVISION. 
MOVE 'JIHGFEDCBA' TO TARGET. 


TRANSFORM TARGET FROM 'ABC- 
DEFGHIJ' TO INPUTA., 


To paraphrase the COBOL Language Specifi- 
cations manual: "If equal in length, any char- 
acter in TARGET equal to any character in the 
non-numeric literal is replaced by the char- 
acter in the corresponding position of INPUTA, "' 


It should be pointed out that this statement nec- 
essarily generates a significant amount of code. 
It will require about 10 instruction executions 

to move a character from INPUTA to TARGET. 
If coding speed is more important than execu- 
tion time, as in a one time conversion program, 
this can be a very useful approach. 
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NEW TYPE II PROGRAMS * 


The following are the abstracts of programs which have been recently made available from 


the Type II library. 


The program, along with its complete abstract, will be incorporated in subsequent issues 


of the Catalog of Programs. 


Programs may be obtained by submitting a properly completed 'General Program Request 
Card" (Form Number 120-1145-1) to the Program Information Department, 40 Saw Mill River 


Road, Hawthorne, New York, 10532. 


These programs and their related documentation are distributed by IBM in the author's 
original form and have not been subjected to any formal testing. 

Any discussion of Type III Programs must emphasize the following points: 

1. Type Ill programs are not part of the IBM product line, as are Programming 
Systems (Type I) or Application Programs (Type II). 

2. Type Ill programs have not been subjected to any formal product test. 

3. Recipients of Type III programs are expected to make the final evaluation as 
to the usefulness of the programs in their own environment. 


4. There is no committed maintenance for Type III programs. 


However, any 


changes the author chooses to make will be announced in subsequent issues 


of the Catalog of Programs. 


Na 


* NOTE: THE CUSTOMER MUST BE INFORMED THAT THE ABOVE APPLIES TO 


ANY OF THE FOLLOWING TYPE UI ABSTRACTS FURNISHED TO HIM. 


COS/40-COMPATIBILITY OPERATING SYSTEM. 


Additional information is provided below since 
the announcement write-up in Installation News- 
letter 67-26 for Model COS/40 did not include 
the minimum machine requirements. These 
are as follows: 


1) 1400 compatibility feature--#4457 

2) Disk compatibility--#9710 

3) Decimal arithmetic--#3237 

4) For a generated DOS supervisor size 
greater than 8K-- RPQ E54022 for 


core relocation to 16K. 


5) First selector channel for load mode 
magnetic tape operations. 


S/360 DOS/TOS UPDATE PROGRAM TO MAIN- 
TAIN MULTIPLE PROGRAM MODULES ON 
MAGNETIC TAPE. This program provides 

the facility to keep many source program mod- 
ules or other data such as job control proced- 
ures ona single tape. Each module on the tape 
is separated from the others and has its own 
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sequence numbers starting at 000000. In the 
past, most update programs have been used to 
maintain files of deblocked card images which 
were used directly as input to the assembler or 
other language translator. The update program 
uses blocked old and new master tapes (40 


cards/block) and produces a third deblocked tape 


to be used by the language translators. A most 
important feature is that only those modules 
specified by the user are written on the de- 
blocked tape. A 32K System/360 Model 30 or 
larger system having 3 tape drives for DOS or 
4 for TOS is required. The program is writ- 
ten in Assembler language. 

Ordering Procedure: Order File Number 360D- 
00. 3.012. 


The program material can be obtained on one 
9 track or 7 track (Data Conversion feature re- 
quired) Distribution Tape Reel (DTR). 


The requester must indicate whether a 9 track 
or 7 track DTR is required. If not specified, 
a 9 track will be provided. 


No tape submittal is required. The DTR will 
be provided by the Library. 
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s/360 DISK PACK AUTOMATIC CATALOGING, 
DPAC is a three part programming system for 
automatically keeping a current catalog of disk 
space utilization. Minimum configuration is a 
2030-D with the decimal feature under BOS. It 
can be modified to run under DOS. 


Phase 1 formats the catalog on the system res- 
ident 1316 and enters a label in the system res- 
ident volume table of contents, so that the cat- 
alog can be accessed logically. 


Phase 2 catalogs on the system resident pack 
information from all on-line 1316/s when any 
file is created. 


Phase 3 prints on request a two page report per 
1316/s. Page 1 shows the file label, volume se- 
quence number of the originating volume, vol- 
ume number, creation and expiration date, ex- 
tent type and sequence, and the upper and low- 
er limits of all the files on the 1316. If a file 
has expired, it is flagged with an asterisk, 
Page 2 is a listing of the available cylinders 

on the 1316. 


Odering Procedure: Order File Number 360D- 
00. 4. 010. 


The program material can be obtained in card 
form or on one 9 track or 7 track (Data Con- 
version feature required) Distribution Tape 
Reel (DTR). 


The requester must indicate whether a 9 track 
or 7 track DTR is required. If not specified, 
a 9 track DTR will be provided. 
No tape submittal is required. The DTR will 
be provided by the Library. 


S/360 PROCESS MODELING AND CONTROL- 
DESIGN PACKAGE, This is a program pack- 
age, comprising two FORTRAN programs to 
analyze continuous industrial processes. The 
first program analyzes a record of repeated 
measurements, equally spaced in time, ofa 
number of manipulated variables and one de- 
pendent variable. It produces a representa- 
tion of the sample in the form of mathematical 
and statistical models of the process and its 
disturbances. The second program calculates 
various conventional process and disturbance 
characteristics, and/or an optimal control law. 
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Application is limited to processes that can be 
described by a linear, single-output, time-in- 
variant, dynamic model, superposed by a nor- 
mal random time-series with time-invariant 
power spectrum. Diagnostic tests are included. 


The package should reduce systems engineer- 
ing work needed to apply process control com- 
puters, in particular when the process has com- 
plicated dynamics and significant time-delays, 
is slow-reacting, and substantially disturbed 
during running conditions. Sufficient machine 
configuration is S/360-40 with DOS or TOS. 
Core storage requirement is 128 k bytes. Source 
language is Basic FORTRAN IV. 


ORDERING Procedure: 
360D-13. 4. 004. 


Order File Number 


The program material can be obtained on one 
9 track or 7 track (Data Conversion feature 
required) Distribution Tape Reel (DTR). 


The requester must indicate whether a 9 track 
or 7 track DTR is required. If not specified, 
a 9 track DTR will be provided. 
No tape submittal is required. The DTR will 
be provided by the Library. 


S/360 NONLINEAR PARAMETER ESTIMATION 
AND PROGRAMMING. The program is de- 
Signed to solve the following problems: 1) Es- 
timate unknown parameters in nonlinear math - 
ematical models, using any of the following 
techniques: least squares, weighted least 
Squares, maximum likelihood, bayesian esti- 
mation. Special provisions are included for 
models involving solutions of ordinary differ - 
ential equations, and for chemical reaction 
kinetics equations. Constraints may be im- 
posed on the parameter values. 2) Solve non- 
linear programming problems. 3) Solve simul- 
taneous equations, two point boundary value 
problems, and other problems which can be 
cast in the form of one of the two above men- 
tioned forms. 


The program is written in the lowest level 
FORTRAN IV language. It can be run on the 
IBM S/360 under the OS or BPS monitors, on 
the IBM 7090 or 7094 computer under IBSYS, 
etc. 

Ordering Procedures: Order File Number 
360D-13. 6.003. 
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The program material can be obtained on one 
9 track or 7 track (Data Conversion feature 
required) Distribution Tape Reel (DTR). 


The requester must indicate whether a 9 track 
or 7 track DTR is required. If not specified, 
a 9 track DTR will be provided. 


No tape submittal is required - the DTR will be 
provided by the Library. 


S/360 ADVANCED LIFE INFORMATION SYS- 
TEM MASTER RECORD UTILITY PROGRAM, 
This program is intended as a conversion aid 
for the Advanced Life Information System. Any 
field in the ALIS master record (as it exists on 
tape) may be changed by use of this program 
with the IBM Disk Operating System. The user 
specifies the following information in a trans- 
action card for each field to be changed: policy 
number, trailer ID, trailer number (if more 
than one trailer exists on the master record 
with the same ID), field position within the 
trailer and field contents before and after the 
change. The "before' field in the transaction 
must compare equal to the old master field before 
a change will take place. A register is pro- 
duced which shows field contents both before 
and after a change, as well as an error code 
for those changes which could not be made. A 
"Change ALL" option is provided, by whicha 
field may be changed in every master record 
in the file. 


Machine Configuration : minimum configur- 
for the Disk Operating System, 
plus two tape drives. 


Source Language: S/360 Assembly Language. 
Order File Number 360D- 


Ordering Procedure: 
04. 3.002. 


The program material can be obtained in card 
form or on one 9 track or 7 track (Data Con- 
version feature requied) Distribution Tape 
Reel (DTR). 


The requester must indicate whether a 9 track 
or 7 track DTR is required. If not specified, 
a9 track DTR will be provided. 
No tape submittal is required. The DTR will 
be provided by the Library. 
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S/360 COBOL CROossS REFERENCES AND RE- 
SEQUENCING PROGRAM, This is a set of 

two IBM S/360 Programs that will provide a 
cross reference listing, by sequence number, 
of COBOL source programs. Data and para- 
graph names are identified in alphabetic se- 
quence and all references to these names by 
procedure division statements arenoted. All 
literals (excepto and 1) and selected COBOL 
words are listed indicating their location within 
the procedure division. The user must provide 
a sort program of his choosing. In addition to 
providing a corss reference, provisions are 
made to: 


— 
° 


Resequence a COBOL source deck. 
2. List a COBOL source deck. 
3. Re-identify a COBOL source deck, 
4 Any combination of the above - indicating 

cross reference. 
5. Reproduce and/or list any card deck. 
Multiple COBOL source programs can be 
be processed ina 'batch' environment. 


The programs are written in COBOL under 
control of DOS, However, they could be adapt- 
ed to any operating system by the user re-com- 
piling and creating the necessary job stream 
and associated control cards. 


The corss reference listing can be extremely 
helpful in debugging COBOL programs. The 
resequencing and/or re-identifying functions 
should also prove useful as additional entries 
are made tothe source program during the 


debugging stage, 


Minimum system requirements are: 


O 2540 Card-Read- Punch 

oO 1403 Printer 

O At least 1 tape drive 

O Any other components required forthe 
sort the user chooses. This will 
also determine core requirements. 

NOTE: 


By changing the 'select' statements in the 
COBOL source decks and compiling, any type 
of Card-reader, Punch and Printer could be 
used. A punch is required only if the input 
card decks are to be reproduced. ®@ 
Ordering Procedure: Order File Number 360D- 

03. 6. 006. 
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The program material can be obtained in card 
form or on one 9 track or 7 track (Data Con- 
version feature required) Distribution Tape 
Reel (DTR). 


The requester must indicate whether a 9 track 
or 7 track DTR is required. If not specified, 
a 9 track DTR will be provided. 


No tape submittal is required. The DTR will 
be provided by the Library. 


CARD TO PAPER TAPE/MAGNETIC TAPE 
AND MAGNETIC TAPE TO PAPER TAPE 
PROGRAMS UNDER OS/360. The card to pap- 
er tape/magnetic tape program will punch pap- 
er tape or build a magnetic tape from Hollerith 
or column binary card input. The magnetic 
tape to paper tape program will punch paper 
tape from magnetic tape input. Machine re- 
quirements: IBM System/360 under the Oper- 
ating System; Decimal Arithmetic; IBM 1012 
Paper Tape Punch; IBM 2821 Control Unit with 
column binary feature; IBM 1403 Printer; IBM 
2400 Tape Unit with 9-track read/write head; 
IBM 2540 Card Reader/ Punch. 

Ordering Procedure: Order File Number 360D- 
01.1. 001. 


The program material can be obtained on one 
9 track or 7 track (Data Conversion feature re- 
quired) Distribution Tape Reel (DTR). 


The requester must indicate whether a 9 track 
or 7 track DTRis required. If not specified, 
a 9 track DTR will be provided. 


No tape submittal is required. The DTR will 
be provided by the Library. 


A SYSTEM/360 JOB ACCOUNTING AND SCHED- 
ULING AIDS PACKAGE TO RECORD, EVAL- 
UATE, AND CONTROL TIME (REACT). This 
package is a collection of programs that Record 
Evaluate, and Control time. Three programmed 
steps account for computer time, calculate util- 
ization, analyze operations by shift and provide 
data on job performance for scheduling purposes. 
The Daily Usage Log similarly illustrated in 

the S/360-20 User's Guide is the source docu- 
ment for all the programs. Date, Job ID, de- 
partment, use type, operator, clock time, me- 
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ter time, input volume, and sequence performed 
are recorded. The first step edits the data 

for accuracy. The second calculates utiliza- 
tion according to job classification such as pro- 
duction, reruns, testing, idle time, etc., with- 
in the user's own shift periods. A third pro- 
gram step times completed jobs giving average 
job time per unit of input volume. A comput- 

er scheduling form is included. These pro- 
grams are specifically designed to aid in the 
effective use of available computer time. The 
basic program material is in RPG source form. 
It can be run under any S/360 Programming 
System supporting RPG. I/O requirements are 
one card reader, one card punch, and one print- 
er (100 Print positions). Minimum core require- 
ments are 8K for Card Model 20, 12K for Tape 
or Disk Model 20, 16K for BOS-TOS-DOS. 
Ordering Procedure: Order File Number 360D- 
15. 0.003. 


The program material can be obtained in card 
form or on one 9 track or 7 track (Data Con- 
version feature required) Distribution Tape 
Reel (DTR). 


The requester must indicate whether a 9 track 
or 7 track DTR is required. If not specified, 
a 9 track DTR will be provided. No tape sub- 
mittal is required. The DTR will be provided 
by the Library. 


S/360 NET EXPLOSION TECHNIQUE OF IN- 
VENTORY CONTROL FOR MANUFACTURES, 
The Net Explosion Technique of Inventory Con- 
trol for Manufacturers (NETIM) is a system of 
programs to explode net inventory requirements 
using a Bill of Material File. 


The gross requirements for products are first 
'netted'' against available inventory, and the 
net requirements thus generated are then ex- 
ploded into requirements for the component 
parts and assemblies using a Bill of Material 
file. The system includes programs for estab- 
lishing and maintaining a card Bill of Material 
file for use in the explosion process. 


All programs are written in RPG for a card 
IBM S/360 Model 20 system with 8,000 posi- 
tions of core storage, printer, MFCM, and an 
auxiliary card reader. 


Ordering Procedure: Order File Number 360D- 
23. 3.002. 
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The program material can be obtained in card 
form or on one 9 track or 7 track (Data Con- 
version feature required) Distribution Tape 


Reel (DTR). 


The requester must indicate whether a 9 track 
or 7 track DTR is required. [If not specified, 
a 9 track DTR will be provided. 


No tape submittal is required. The DTR will 
be provided by the Library. 


5/360 "OPTIM" - ORDER POINT TECHNIQUE 
OF INVENTORY FOR MANUFACTUERERS, 
This program package may be utilized to estab- 
lish a basic order point inventory control sys- 
tem on the IBM S/360-20 Card System. It is 
designed to be easily understood, installed, and 
operated in order to provide a logical step 
toward better inventory control for IBM custom- 
ers. Three 'RPG" programs have been pro- 
vided to be used "AS IS" or modified to meet 
individual requirements. The programs are an 
Inventory Update, a Reorder Analysis, and a 
Reaveraging (Usage) that uses the Exponential 
Smoothing method. Documentation includes 
"RPG" source list, object program decks, op- 
erating procedure, and a sample problem. 
Systems configuarion is 8K, 360-20, 2203 
Printer, 2501 Card Reader, and a 2560 Multi- 
function card machine with an interpreting fea- 
ture. 


Ordering Procedure: Order File Number 360D- 


25.0. OO1. 


The program material can be obtained in card 
form or on one 9 track or 7 track (Data Con- 
version feature required) Distribution Tape 
Reel (DTR). 


The requester must indicate whether a 9 track 
or 7 track DTR is required. If not specified, 
a 9 track DTR will be provided. 


No tape submittal is required. The DTR will 
be provided by the Library. 


S/360 MODEL 20 MULTI-FUNCTION UTILITY 
PROGRAM, This program was written to pro- 
vide a convenient method for Model 20 users 


to perform the basic card functions. The pro- 
gram will: 1) 80-80 List; 2) 80-80 Reproduce; 
3) Interpret Input Cards; 4) Interpret Output 
Cards; or any combination of these functions 
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under control of data switch 1 on the Model 20 
console. This program, with its ability to 
perform multiple functions on one pass, and its 
ease of operation, should make it very useful 
in all Model 20 installations: 


Minimum configuration: 4K Model 20 and 2560 
MFCM with printing ability. 


Ordering Procedures: 
00.1. 012. 


Order File Number 360D- 


Distribution will be in card form only. 


S/360 MODEL 20 DISK AND TAPE PROCESSING 
SYSTEM MACROS, These 26 macros area 
modification of the BPS/BOS package 360D- 

03. 7.003 and DOS/TOS package 360D-03. 7. 008. 
Macros available are ADDP, SUBP, MULTY, 
DIVID to provide automatic multiple parameter 
decimal aligning arithmetic. ZEROP to zero 
up to 49 fields, BLANK to blank up to 24 fields 
of any length, SHIFT packed fields left or right 
1 to 31 digits with optional rounding, PAC mul- 
tiple parameters and insure a valid sign, UN~ 
PAC multiple parameters, EDIT to generate 

a hex edit mask and perform the editing, COMP 
to compare packed or zoned fields and generate 
branches, RANGE to test the magnitude of a 
field for two limits, IF NUM to validate a field 
for pure numeric content, 7 byte-switch defin- 
ing, setting, testing, and first-time assembly 
language coding for the usual RPG oriented mod 
20 user, reduced coding errors, easier key-= 
punching and verification, and faster debugging. 
Since the model 20 macros are a conversion of 
an existing package they should be error free. 
Macros are upward compatible to BPS/BOS/ 
TOS/DOS on System/360 models 30 thru 75. 
MACHINE REQUIREMENTS: Designed to be 
cataloged into the Model 20 DPS and TPS, and 
will function on any Model 20 the DPS/TPS will 
function on. SOURCE LANGUAGE: Model 20 
DPS/TPS macro language. 

Ordering Procedure: Order File Number 360D- 
03. 7.015. 


The program material can be obtained on one 
9 track or 7 track (Data Conversion feature 
required) Distribution Tape Reel (DTR). 


The requester must indicate whether a 9 track 
or 7 track DTR is required. If not specified, 
a 9 track DTR will be provided. 
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No tape submittal is required. The DTR will 


be provided by the Library. 


S/360 LOADING MODEL 20 OBJECT DECKS 
WITH THE TAPE MONITOR, This program, 
once cataloged into the core-image library of 
the Tape Programming System for the Model 
20, allows a user to execute Model 20 object 
programs in card form under control of the 
tape-resident monitor. This is an option not 
currently available in the Tape Programming 
System. The 


The purpose is to allow execution of object decks 
in a job stream with other programs that may 
need the facilities of the tape-resident system, 
such as the compilers. The Program performs 
the same loading functions as the card-resident 
monitor of the Tape Programming System: 

TXT, END, XFR, and REP cards are pro~ 
cessed and all others are bypassed. 


Since the program resides between the moni- 
tor and the lowest possible starting address 
for RPG programs, it effectively takes no ad- 
ditional core storage. To use this program 

with BAL object decks, the BAL program must 
be specified with a start address of 2144 or 
greater. 


Machine configuration: Same as required for 
the Tape Programming System. Three tapes 
are required to catalog the program into the 
program library of the system tape. 


Source Language: Model 20 Basic Assembler 
Language. 


Ordering Procedure: Order File Number 360D- 
01.1. 002. | 


The program material can be obtained in card 
form @r on one 9 track or 7 track (Data Con- 
version feature required) Distribution Tape 
Reel (DTR). 


The requester must indicate whether a 9 track 
or 7 track DTR is required. If not specified, 
a 9 track DTR will be provided. 


No tape submittal is required. The DTR will 
be provided by the Library. 


AN AUTOMATED VAN LOADING PROGRAM 
FOR THE IBM 1130. The Van Loading program 
is designed to match a system configuration to 
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a file of the physical characteristics of each 
component and to then identify the location with- 
in the van which will provide the maximum trans- 
it protection in terms of each ride, padding, 
elimination of box shifting and accessible tie 
downs. This location will be determined by 
parameters, built into the program, which ex- 
press the characteristics of each type of van. 
The program will be expanded to include load- 
ing guides for both railroad freight car and air- 
craft shipments. 


Machine language will be 1130 FORTRAN for use 
on an IBM 1130 with 2K core storage and disk 
pack. Output will be punched cards, which, 
when listed indicate box loading sequence by al- 
ternating sides of the carrying space. Other 
output could be as cards defining vectors for 
use on a line drawing device. 


Ordering Procedure: Order File Number 1130- 


23.1.003. 


Distribution will be in card form Only. 


1130 FORTRAN - CALLABLE SUBROUTINES - 
TO READ AND/OR PUNCH NUMERICAL CON- 
TROL TAPES, A set of 1130 FORTRAN and 
assembler subroutine which allow the user to 
read and/or punch any character, one at a time, 
on paper tape. Subroutines are also included 

to break a floating point number into a series 

of P/T characters for subsequent punching. 


These subroutines were developed to allow the 
reading and punching of P/T characters which 
FORTRAN couldn't normally handle in the num- 
erical control area but can obviously be used in 
any paper tape application where non-IBM codes 
are used. 


Configuration: 4K 1130, 1055, 1134. 


Ordering Procedure: Order File Number 1130- 
23. 4. 003. 


Distribution will be in card form only. 


S/360 DOS/360 CIVIL ENGINEERING COORD- 
INATE GEOMETRY (COGO). DOS/360 Civil 
Engineering Coordinate Geometry (COGO) is a 
direct conversion from COGO for the IBM 1130. 
The machine configuration required, in addition 
to the requirements for DOS FORTRAN, isa 
32K 360 (with a 6K or 8K DOS Supervisor) and 
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2 cylinders on a 23ll disk. The program is 
written in FORTRAN AND BAL. See the IBM 
1130 COGO User's Manual (H20-0301) for a des- 
cription of COGO. 
Ordering Procedure: Order File Number 360D- 
16, 2.003. 


The program material can be obtained on one 9 
track or 7 track (Data Conversion feature re- 
quired) Distribution Tape Reel (DTR). 


The requester must indicate whether a 9 track 
or 7 track DTR is required. If not specified, 
a 9 track DTR will be provided. 
No tape submittal is required. The DTR will 
be provided by the Library. 


1401 SIMULATOR FOR SYSTEM/360. This 
program allows the éxecution of 1401 programs 
on a System/360 Model 30, 40, 50. 65, 75 with- 
out using any special hardware or re-program+¢ 
ming. 1401 features supported are advanced 
programming, sense switches, tapes, multi- 
ply, divide, -16K core, and all standard in- 
structions except Select Stacker. Operator 
control is through the 1052 and tape and in- 
cludes sense switch assignment, load from 
cards or tape, display and alter core, start the 
reset, start, clear core, set and clear I/O 
check switch, and write tape mark. The pro- 
gram is written in OS/360 Assembler language, 
but runs stand-alone. It should be especially 
useful to customers converting from a 1401 to 

a System/360, Model 50 or higher. The sim- 
ulator requires Standard Instruction set, 65K 
core, one each 1052, 1403, 2540. 


Ordering Procedure: Order File Number 360D- 
11.1. 017. 


The program material can be obtained on one 
9 track or 7 track (Data Conversion feature 
required. If not specified, a 9 track DTR will 
be provided. No tape submittal is required. 
The DTR will be provided by the Library. 


1401 REAL ESTATE TAX BILL SYSTEM FOR 
THIRD CLASS PENNSYLVANIA COUNTIES. 
To calculate and print real estate tax bills giv- 
en the assessment and mileage rates. Tp pro- 
vide summary cards during calculation time 
for later generation of monthly reports. 
Machine configuarion - 1401, 4K, 1403, 1402, 
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advanced programming (advanced pregramming & 
can be eliminated) source language - autocoder. 
Ordering Procedure: Order File Number 140l- 

14. 0. 026. 


Distribution will be in card form only. 


1800 TSX MAINLINE TRACE PROGRAM, The 
1800 TSX Mainline Trace Program consists of 
two subroutines which can be built with a main- 
line coreload to enable either full trace or 
checkstop trace of that mainline. The trace 
set-up subroutine (TRSUP) is called by a state- 
ment in the mainline, and communicates with 
the operator to set up the trace limits. The 
trace interrupt subroutine (TRACI) is then 
executed for every mainline level instruction. 
The program is written in 1800 Assembler 
language and is available in source form only. 


Ordering Procedure: Order File Number 1800- 
04, 2. 001. 


Distribution will be in card form only. 


1800 TSX DISKN OPERATION COMPLETE 
MODIFICATION, This program provides a 
modification to the 1800 TSX system DISKN 
subroutine which will allow the user to spec- 
ify a subroutine to be executed upon comple- 
tion of the called disk operation. This mod- 
ification consists of several 1800 Assembly 
language source cards which must be insert- 
ed in the source deck of the 1800 TSX TASK 
program. 


Ordering Procedure: Order File Number 1800- 
03. 4. 003. 


Distribution will be in card form only. 


1800 TSX CIRCULATING TRACH TABLE SUB- 
ROUTINE, The Circulating Trace Table Sub- 
routine (TRTSX) is used to create a dynamic 
trace record of programs being executed un- 
der the 1800 Time Sharing Executive system, 
TRTSX calls are assembled or compiled with 
process programs. Whenever one of these pro- 
grams is then executed, TRTSX generates a 
four word trace record in the trace table in 
SKELETON COMMON. This record contains 
the current interrupt level being processed, 
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the system clock value, the address of the call, 
and the user data parameter. If the table is 
filled, the oldest record is replaced with the 
new trace record. Size of the table and loca- 
tion in common is optional. This table can be 
dumped at any time to provide a time dependent 
trace of programs executed. 

Ordering Procedure: Order File Number 1800- 
04. 2.002. 


Distribution will be in card form only. 


IBM 1800 CONSOLE INTERRUPT PROGRAM, 
The IBM 1800 Console Interrupt Program con- 
sists of a group of subroutines which enable 
operator controlled execution of several func- 
tions which are useful in debugging, modify- 
ing, and communicating with programs being 
executed under the process mode. These 
functions are 1) entry of hex, decimal, and 
floating point data, 2) dump of hex, decimal, 
and floating point data to console printer and 
list printer, 3) set up of full trace or check- 
stop trace, 4) setting of program switches in 
the COMMON area, 5) execution of any user 
program. All features are optional and can be 
selected or omitted through use of user coded 
EBQUATE cards assembled with the CONSOLE 
INTERRUPT PROGRAM, The program is pro- 
vided in source cards written in 1800 ASSEMBLY 
Language. The user must assemble the pro- 
gram and then build the coreloads or skeleton 
including the console interrupt program. 
Ordering Procedure: Order File Number 1800- 
04.1. 001. 


Distribution will be in card form only. 


1800 TSX TYPEN MODIFICATION FOR IN CORE 
MESSAGE BUFFERING, This program pro- 
vides a modification to the 1800 TSX System 
(1800-OS-001) which will allow buffering of 1053 
messages in core rather than on disk. This 
will eliminate the wait loops which can occur 

on the call level and the typewriter levels when- 
ever message buffering to disk takes place. 
Options selectable by the user through use of 
EQUATE cards at assembly time are 1) amount 
of core allocated for buffering for each 1053, 

2) priority messages, 3) action taken when buf- 
fer overflows. This program consists ofa 
deck of 1800 Assembly language source state- 
ments which must be inserted in the 1800 TSX 
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TASK program before assembly of TASK. 
Ordering Procedure: Order File Number 1800- 
03. 4.002. 


Distribution will be in card form only. 


IBM 1800/1896 PROCESS COMMUNICATION 
AND CONTROL SYSTEM. The 1800/1896 Pro- 
cess Communication and Control System is a 
teleprocessing support package for the 1800 
System utilizing the 1896 Communications Adapt- 
er (RPQ C08413). The system works within 
TSX and provides support for up to sixteen 
lines with sixteen terminals per line. The 
System is designed to support 1070, 1050, 1030, 
and 2740 terminals, and 1800-360, 1800 - 1800 
communication. It is currently fully imple- 
mented only for 1070 terminals. The author 
states implementation for other terminals and 
computer to computer communication will be 
reflected in the 1800 catalog of programs. 


Features include printed output via FORTRAN 
WRITE statements, queued I/O, on-line diag- 
nostics, all user interface via FORTRAN, and 
automatic code conversion. Minimum system 
requirements are 16K of core and TSX. Skel- 
eton requirements vary from 2000 to 3000 words 
in addition to TSX requirements. Interrupt 
requirements are exclusive use of level zero 
and the program-settable interrupts of two low- 
er levels. Upto sixteen typewriters are sup- 
ported with FORTRAN WRITE statements. The 
System is currently operating successfully in 
both multi-terminal and multi-line systems 
with full TSX functions. 


Ordering Procedure: Order File Number 1800- 
03. 4. 004. 


To obtain program material, submit one 2400 
foot reel of magnetic tape. Specify whether 

¢ or 9 track recording is required. If not spec- 
ified, 9 track recording will be used. 


The required tape may be ordered from IBM 
or supplied with your request for the program. 
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SELECTED SHORT SUBJECTS 


The purpose of Selected Short Subjects is to 
bring together and highlight concise, factual 
and timely information which will indicate 
that action is to be taken by the IBM repre- 
sentative whose accounts are affected. 


1. IBM 1800, 1070, and 1080 Systems Assis- 
tance. 


The SDD C/DA (Control and Data Acquisi- 
tion) resident support personnel 

to be the first point of contact for assistance 
with system design problems, details 
relative to previously quoted RPQ's and 
sales call assistance as outlined in DPD 
Blue Letter 266-67. 


To supplement this service, when neces- 
sary, a telephone system designed to pro- 
vide the Field with effective response to 
our customer's requests for Special Equip- 
ment and assistance with solutions to uni- 
que C/DA application has been established 
within SDD Special Systems Design (De- 
partment 590) San Jose. 


Your request, realistically defined, will 
assure you of receiving assistance. 


Phone: San Jose Tie-Line 132, orArea 


Code 408, 227-7100, Extension 3714. 


2. 2560 MFCM Score Card Restriction 


Punched cards scored on the column 80 
end with the M-4 score are recommended 
for only reading in the 2560 MFCM. The 
M-4 score is not recommended when 
punching is required. 


The 2560 "'Machines" page in the Sales 
Manual will be changed to reflect this 
restriction. 


OS/360 RELEASE 15- PLANNED IMPROVED 
ERROR RECOVERY PROCEDURES 


The following planned changes for OS/360 
Release 15 are provided for planning purposes. 
The actualavailability and specifications will 
be as provided through the official IBM 
announcement and documentation procedures. 
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The error recovery procedures resident work 
area in the nucleus will be expanded from 400 
bytes to 1024 bytes in Release 15. This will 
improve performance by requiring less load- 
ing of small individual sections of the ERP's. 
The number of re-reads will be reduced from 
100 to 40. There will be no changes required 
of the user to his SYSGEN procedure to accom- 
modate this change. 


Users should evaluate their available storage 

to determine if they will have sufficient core to 
accomodate the 624 byte increase. If the user 
must reduce his storage allocation to accom- 
modate this change, one possibility is to analyze 
the I/O specifications in light of what is actually 
needed. Elimination or reduction of such items 
will reduce the nucleus size needed. 


OS/STRAM PTFE'S AVAILABILITY 


There are currently three PTF's (for IOS, 
BTAM and STRAM) active for OS/STRAM 
under Releases 12 and 13. They are not avail- 
able from Field Engineering. Contact the 
OS/STRAM Coordinator at your district Field 
Systems Center for further information. Re- 
fer to STR PTF Numbers 3, 4 and 5. The PTF 
documentation supplies the detail as to the 
reasons for the fixes. 


OS/360 Release 14 is now available and a new 
set of PTF's will be supplied for it. 

NOTE: If the Field Systems Center has any 
difficulty inidentifying these PTF's, 
the FSC Coordinator should call 
Mr. W. T. Romei, DPD Technical 
Center, Poughkeepsie, Tie Line 
8-165-7876 or 914-485-7876. 


OS/360 ATTEMPT TO USE UNSUPPORTED 
2314-2844 


The 2844 is not supported under OS/360. 
Therefore, careful consideration should 

be given to the implications involved before 
implementing the following change. 


The change should be made to SYS1. GENLIB, 
the system macro IECIOS, at approximately 
statement number 56130000. 
ceding label is INTOO9. 
change is: 


The nearest pre- 
The instruction to 
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Before TM UCBFL1 (UCBREG), UCBBSY 
: | Test for Busy UCB 


BC 8, INTATT NO, UNSOLICITED 


DE 
After TM UCBFL1 (UCBREG), UCBBSY+ 
_ UCBASK > 


BC 8, INTATT 


OS/360 COBOL/ASSEMBLER TAPE READ 
ERROR RECOVERY ROUTINE | 


An OS/360 COBOL/Assembler Tape Read 
Error Recovery Routine has been provided to 
Field System Centers. The routines provide 
operator intervention and the recovery capa- 
bility beyond what is provided by the Type I 
OS/360 Error Recovery Procedures. These 
routines have been found useful in solving user 


problems encountered with magnetic tape under 
OS/360. 


The routines are documented in the Sales and 
Systems Guide Y20-0162-0, to be released 
from the IBM Distribution Center, Mechanics- 
burg. Refer to Publication Release Letters 
for specific availability. Do not order until 

it is so announced. The abstract of the manual 
follows: 


The routines discussed in this manual are 
applicable only to tape read errors where BSAM 
or QSAM access methods are employed. In 
general, the routines can be used in any cur- 
rent operating system environment (as of Sep- 
tember 1, 1967) with either COBOL or Assem- 
bler source programs, provided the operating 
system includes the SYNADAF and SYNADRLS 
(SVC 68) option. 


This manual is intended for systems program. 
mers. It discusses programming routines for 
extending tape error recovery procedures be- 
yond those now available in an Operating 
System/360 environment where COBOL and 
Assembler are used. At present, after a tape 
read error, the system performs a series of 
steps that cause the tape drive to attempt to 
retransmit (up to a predetermined number of 
times) a physical record (block) correctly, and 
to record the event for future reference. In 
addition, the system has provisions for accom- 
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modating, via a SYNAD exit in the DCB, any 
user-written routines for handling such errors. 


The routines discussed here may be considered 
as an extension of the system capability for 
handling tape read errors; as such, they may 
complement, supplement, or even replace any 
user-written routines; they are linked to the 
system and any user-written routines through 
the I/O Supervisor. A general description of 
the capabilities of these routines is given in 
the Preface of this manual. 


OS/360 Release 14 FORTRAN-APPROACH TO 
CHANGED CSECT NAMING 


OS/360 Release 14 was announced by Program 
Announcement P 68-7. The following is a sug- 
gested approach to the changed CSECT naming 
convention effective with Release 14. 


Currently all OS/360 FORTRAN compilers 
develop the object module CSECT name by 
appending a pound sign (#) to the entry point 
name for that module. With Release 14, this 
convention will be changed so that the CSECT 
name and the entry point name will be identical 
for all modules compiled under Release 14 or 
later. 


Because of this change, users maintaining li- 
braries of FORTRAN object modules will now 
have both object modules with the pound sign 
in the CSECT name and those without it. 


This change will affect all programming situ- 
ations where FORTRAN object modules are 
referred to by CSECT name. The two most 
common situations are: 


1) The programmer is creating an overlay 
structure. 


2) The programmer is doing a CSECT 
replace to an existing structure. 


In either case each object module must be 
referenced by CSECT name, and the program~ 
mer will have to know whether it contains a 
pound sign or not. 


A possible approach to this situation is for the 
installation to maintain a list of current CSECT 
names and make this list available to the pro- 
grammers., 
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A second approach is to apply the OPM's in 
SYS1. SAMPLIB which alter the compilers 

so that they again append the pound sign to 

CSECT names. 


The following is a third approach, and one, 
which in many ways, is more satisfactory and 
easier to use than the other two. It requires 
no software or programming changes, and only 
minor modifications to control statements. 


First, consider this approach as applied to 
overlay structures. The following modifications 
are required: 


1) Placing two INSERT cards in the 
overlay deck for each object module, 
one card would have the CSECT name 
without pound sign and the other would 
have the CSECT name with it. 


2) Indicating !''LET" as an option in the 
PARM field of the linkage editor step 
execute card. 


3) Indicating (8, LT, LKED) as an option 
in COND field of the go-step execute 
card. 


If the CSECT being inserted was compiled on 
Release 14 or later, it will be inserted, and 
an unresolved external reference will be indi- 
cated for the INSERT card having the CSECT 
name with pound sign. The load module will, 
however, be marked executable because the 
"LET" option was specified. The unresolved 
external reference gives a severity code of 8, 
so the COND=(8, LT, LKED) is required to 
allow execution of the go-step. 


If the CSECT being inserted was compiled on 
Release 13 or earlier, it will be inserted. In 
this case the CSECT name without pound sign 
(which appears on the secondINSERT card) will 
be resolved to the entry point name, and no 
unresolved external reference will occur. 


This approach can be easily adapted to use with 
standard catalog procedures, or if the user 

wishes, he may maintain a special catalog pro- 
cedure to be used only with overlay structures. 


Let us now consider this approach as applied to 
the CSECT replace situation. The only change 
here is that a 'REPLACE" card must be in- 
cluded specifying the CSECT name with pound 
sign as the module to be repjaced in the struc- 
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ture and specifying no new CSECT to replace 
it (i.e. REPLACE CSECT #), This 'RE- 
PLACE" card and the new CSECT must appear 
in the job stream before the CSECT to be re- 
placed. 


The linkage-editor will look for the CSECT 
Specified in the "REPLACE" card. If it finds 
the CSECT with pound sign, it will delete it. 
(It is deleted because no new CSECT was spec- 
ified in the "REPLACE" card.) If it does not 
find the CSECT with pound sign, it ignores the 
"REPLACE" card. 


If the CSECT to be replaced was compiled with 
Release 14 or later, its CSECT name will have 
no pound sign attached. Since the new CSECT 
appears first in the job stream, automatic 
replace will occur. 


If the CSECT to be replaced was compiled with 
Release 13 or earlier, its CSECT name had a 
pound sign and would already have been deleted 
by the "REPLACE" card. The new CSECT 
would then be included in the structure. 


This approach has the following advantages: 
1) No necessity to maintain a list. 


2) Programmers do not have to concern 
themselves with differences in CSECT 
names. 


3) This approach should work indefinately 
with no further changes. 


4) Installations will be gradually convert- 
ing because they will be using new 
compilers which do not produce pound 
signs. 


Installations which keep their libraries in load 
module form will still have to do a re-link- 
edit, but no re-compilation of FORTRAN H 
and early FORTRAN E programs is necessary 
with this approach. 


NOTE: 


This approach may allow jobs to get into the 
execute step with other unresolved external 
references from the link-edit step. This will 
be made apparent by the failure of the job to 
execute. The unresolved external references 
will be noted by linkage-editor warning mes- 
sages, 
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OS/360 FORTRAN VARIABLE RECORD EX- 
TENSION 


The following is provided for planning purposes. 
The actual availability and specifications will 
be as announced through the formal IBM an- 
anouncement and documentation procedures. 


For variable length records written without 
format control, OS/360 FORTRAN permits a 
logical record to extend across more than one 
physical record or block. This facility is re- 
ferred to as Variable Record Extension (VRE) 
and records of this type are referred to as 
"spanned records.'' Present plans are that 
the Operating System will not support VRE 
until Release 17. Therefore, care should be 
exercised in using this facility. Data sets con- 
taining spanned records intended as input to 
FORTRAN may not be handled by components 
other than FORTRAN. In addition, a utility 
may split a field so as to make the data unac- 
ceptable to FORTRAN. 


INFORMATION ABOUT THE NEWSLETTER 
EVERY SALESMAN AND SYSTEMS ENGINEER 


SHOULD RECEIVE ONE COPY OF THE NEWS- 
LETTER. Each FE Branch Manager should 


receive five copies for distribution to Customer 


Engineers, 


The IBM Installation Newsletter is distributed 
only to IBM locations and is not available to 
customers. The Newsletter is separated into 
two parts. The first part contains information 
which is intended only for IBM personnel and 
the pages are labeled For IBM Internal Use 
Only. THESE PAGES, OR REPRODUCTIONS 


OF THEM, ARE NOT TO BE GIVEN TO CUS- 


TOMERS, However, using your own good judge- 


judgement, you may discuss pertinent informa- 
tion from these pages with a customer. The 
second part contains information which may be 
REPRODUCED by the Branch Office at their 


discretion and given to customers. These pages 


are not labeled with any restrictive classifica- 
tion. Note that when any abstracts for Type III 
programs are given to the customer, he must 
be informed that the disclaimer for Type III 
programs, as contained in the Newsletter, 


applies. YOUR COOPERATION IN PROPERLY 


HANDLING THE CONTENT OF THE IBM IN- 
STALLATION NEWSLETTER IS NECESSARY 
FOR ITS CONTINUED PUBLICATION, 
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Changes to the quantity of the Newsletter ship- 
ped are to be made by the Administration Man- 
ager. (NOTE THAT EXTRA COPIES OF THE 
NEWSLETTER ARE NOT TO BE ORDERED 
FOR DISTRIBUTION OF INFORMATION TO 
CUSTOMERS, ) 


Direct inquiries concerning the contents of this 
Newsletter to: 


W. P. Gaffigan, Editor 

IBM Installation Newsletter 

Installation Planning #713 

DPD HQ 

112 East Post Road 

White Plains, New York 10601 
Telephone 914-WH9-1900 Extension 4781 


MARKETING PUBLICATIONS ANNOUNCED 
BY PRL'S | 


The weekly PRL's (Publications Release Let- 
ters) are used to insure that all Salesmen and 
Systems Engineers are aware of new or re- 
vised Marketing Publications. Normally, each 
issue of the Newsletter will contain information 
from two PRL's, one following the other. The 
information will be placed in the Newsletter in 
its original form with no rearrangement of 
form numbers or titles. It is not intended to 
replace existing information and distribution 
sources. You should be certain that you are 
aware of these sources. 
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-PRL #52 December 29, 1967- 


This PRL was not available for previous publication MARKETING PUBLICATIONS 


FORM NO. TITLE DISPOSITION 
520#1932=0 Linear Programming for Management Decisions NEW 
542-0034=1 CRA Announcement - Brochure Use 542-0034-0 
A24-3030-1 Message Rates for IBM 1448 Transmission Control Unit Scrap A24-3030-0 & N24-0351 
A24-3256-5 IBM 1285 Optical Reader Component Description and Operating Procedures Scrap A24~3256-4 
C20~1688-0 Operator Manual IBM 2260 Display Station, IBM 2848 Display Control, IBM 1053 Printer NEW 
C24-3337-2 IBM S/ 360 Operating System RPG Use C24~3337-1, N26-0515, N26- 
0530 & N26-0546 
C24-9000-2 IBM S/360 Model 20 Tape Programming System Control and Service Programs Scrap C24-9000-1 & N24-9010-0 
C24-9009-1 IBM S/ 360 Mod 20 Tape Programming System Operating Procedures Scrap C24-9009-0 
C26-3709=1 IBM 1130 Disk Monitor System, Version 2 System Introduction Scrap C26<3709~0 
C26-3715=1 IBM 1130/1800 Basic FORTRAN IV Language Scrap C26=3715-0 
C26-3808-2 IBM S/360 Mod 20 Tape Programming System Utility Programs Scrap C26-3808-1 & N33-9009 
C26-5927-3 IBM 1130 Assembler Language Scrap C26-5927-2 
C26-5929=3 IBM 1130 Subroutine Library Scrap C26-5929-2, N26-0551 & N26- 
0553 
H20-0478-0 IBM S/360 Model 20 Bill of Material Processor Application Description NEW 
N20-1066 TNL to 1130 Project Control System (1130-CP-~O5X) Operator's Manual Re: H20-0343-1 NEW 
N23-0611 ENL IBM S/ 360 DOS/TOS Language Interface Guide Re: R20-1057-0 NEW 
N28-3001 TNL ~ IBM S/ 360 Time Sharing System Linkage Editor Re: C28-2005-1 NEW 
N28-3002 TNL IBM S/ 360 Time Sharing System Independent Utilities Re: C28~2038-0 NEW 
N28=3004 TNL IBM S/ 360 Time Sharing System Command Language for Manager's and Administrator's NEW 
Re: C28-2024-0 
N28-3008 TNL IBM S/ 360 Time Sharing System System Programmer's Guide Re: C28-2008-0 NEW 
N33-85 18 TNL to IBM S/ 360 Mod 20 Tape Programming System, Performance Estimates Re: C24-9010-0 _ NEW 
with N33-9005 | 
N33~8519 TNL to S/360 Mod 20 TPS Sort/Merge Re: C26-3804—1 NEW 
R29-~0094-0 IBM S/ 360 Mod 20 RPG Coding P.1. Examination NEW. 
R29-0249-1 IBM CSF P,1, Examination Use R29-0249-0 
Y28-0242=1 IBM S/ 360 Time Sharing System On-Line Test Control Program PLM Scrap Y28-2042-0 
Y28~3058-0 IBM S/360 Time Sharing System Assembler Program Logic Manual Re: Y28=-2021-0 NEW 
Y28-3060-0 IBM S/ 360 Time Sharing System - Independent Utilities PLM Re: Y28-2039-0 NEW 
Z20~1856-0 1130 Corrugator Scheduling Program NEW 
Z32-0394-0 ENL IBM Comp. System Training Education Guide Re: Z32-0401~1 NEW 
Z77=7274=0 DOS Multiprogramming Demonstration with Job Stream on Disk NEW 
Z77=7 275 <0 IBM 1401 Supplemental Study Course NEW 
Z77=7 276-0 Solving Transportation Problems Using Network Flow Theory NEW 
Z77-7277-0 The Installation of an IBM System/ 360 Model 20 Equipped with a Communications Adapter NEW 
~ PRL #2 January 12, 1967 - 
C20~16 194 Catalog of Programs for IBM System/ 360 - December 1967 Scrap C20-1619-3 & N20-0 
N20#1130,. 25 1130 SRL Newsletter Re: A26-5916-2 Scrap N20~1130, 24 
MARKETING PUBLICATIONS 
221-0+461-0 The IBM 1800 Data Acquisition and Control System NEW 
221-0462=0 The IBM 1800 Multiprogramming Executive (MPX) Operating System NEW 
221-0463-0 The IBM 1800 MPX Operating System I/O Control Routines (IOCR) NEW 
221-0464-0 The IBM 1800 MPX Operating System Executive Director NEW 
221-0465—-0 The IBM 1800 MPX Operatang System Batch Processing Monitor NEW 
320=1906011 In Brief, November 1967 Scrap 320190610 
543-0033~2 Selectric 1/O Manual Scrap 543-0033=1 
5 20~155 1-0 1130 Numerical Surface Techniques & Contour Map Plotting NEW 
5 2021914-0 VSP/ 360: Direct Route to Improved Vchicle Scheduling NEW 
5 20=2062=0 The IBM 633 Billing System NEW 
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A24=3264<1 
A32-0001-0 
C24-145602 


C24—3427=2 


C24-5030=3 


C26<375 1-1 


C26-5 830—4 
C27-6957-0 


C27-6938-0 
C2865 14-5 


C28~-6632=2 
C25—-6647=1 


C2S8-667 3-0 
E20-0299-0 
£50-0036-0 
H20-61 36-2 
H20-02 373 


H20-0323—2 
H20-0 340-2 


H20-0574=1 


H20-0476-0 


J20-0009-1 
K20-0042-1 
K20-0247-0 
N20.-1065 


N26~-0578 
N28<#0242 


N238~3000 
N28-3003 
N2&~3009 
N33-8000 


-R20-4095~-0 
R20-9172-0 
R29-0030-3 
R29-0085—35 
R29-0095—2 
R29~0096-2 
R29~0 L0G—1 


R29~0110-1 
R29-0162=1 
R29=0206<2 
R29-0241-2 
R29-0248=3 


V25—-6465=0 
Y20-O051—1 


Y20-0147-—0 


PRL #2 (Continued) 


1030 Original Equipment Manufacturer's Information 
IBM Tape Drive, 2400 Serics Model 6, Tape Requirements 
Sort Timing Specs & Operating Procedures for IBM 1401/1460 


IBM S/ 360 DOS Data Management Concepts 
IBM S/ 360 Disk & Tape Operating Systems Concepts & Facilities 


IBM 1800 Card/Paper Tape Programming System Operator's Guide 


IBM 1800 Subroutine Library 

IBM S/ 360 Operating System and 1130 Disk Monitor System FORTRAN IV Subroutines for Data 
Transmission Between a System/ 360 and an 1130 System | 

IBM S/ 360 Operating System and 1130 Disk Monitor System: User's Guide for Job Control From an 
IBM 2250 Display Unit Attached to an IBM 1130 System Preliminary Specifications 

IBM S/ 360 Operating System, Assembler Language 


IBM S/ 360 Operating System: Job Control Language Charts 
IBM S/ 360 Operating System: Supervisor & Data Management Macro-Instruction 


IBM S/ 360 Operating System: Planning for the Shared Direct Access Device Option 

Ceimputer Application in Nuclear Medicine 

Using the IBM 1232 Optical Mark Page Reader in the Federal Government 

Mathematical Programming System/ 360 (360A-CO-14X) Application Description 

Structural Engineering System Solver (STRESS) for the IBM 1130, Model 2B (1150-EC-03X) 
Version II Application Program Bulletin 

Attached Support Processor System (ASP) (360A-CX-15X) System Programmer's Manual 

Structural Engineering System Solver (STRESS) for the IBM 1130, Model 2B (1 130-EC-03X) Version 
II User's Manual 

System/ 360 AUTOSPOT (360A=CN-08X) and AD=APT/AUTOSPOT (360A-CN-O9X) Numerical 
Control Processors = Version 2 Operator's Manual 

Mathematical Programming System/ 360 (360A-CO-14X) Lincar and Separable Programming User's 


Manual 


QUIKTRAN Financial Programs 

Construction Project Management Control System at the H. B. Zachry Company 

BUFFUMS - Unit Control Using the IBM System/ 360 

TNL for System/ 360 AD-APT/AUTOSPOT Numerical Control Processor (360A-CN=09X) Version 2 - 
Application Description Re: H20-0463-0 

IBM 1800 Time-Sharing Executive System Operating Procedures Re: C26=3754=2 with N26~0561, 
N26-0569 & N26-0571 

sBM 7090/7094 IBSYS Operating System, Version 13: System Monitor (IBSYS) Re: C28-6248=3, 4, 
“5S, «6, -7 with N28-0207, N28-0182, N28-0187, N28~0137, N28-0166 & N28=0139 

TNL IBM S/360 Time Sharing System Assembler Language Re: C28-2000-2 

TNL IBM S/ 360 Time Sharing System Command Language User's Guide Re: C28-2001-1 

IBM S/360 Time Sharing System System Generation and Maintenance Re: C28=2010~0 

IBM S/ 360 Operating System ALGOL Programmer's Guide Re: C33-4000 


IBM Branch Office Library Education Guide 

IBM S$/360 for Data Processing Managers Course Description 
IBM FORTRAN PI. Advisor Guide 

FORTRAN IV for IBM S/360 P,I, Dlustrations 

IBM S/360 RPG Coding (Using 2560 MFCM) P.I. Dlustrations 
IBM S/ 360 KPG Coding P.I, Text 

iBM 1130 FORTRAN P.I, Problem Book 


IBM S/360 PL/I Coding P.I, Advisor Guide Supplement 

2M PCDPP 514 Oper, Peis Notebook 

IBM S/360 COLCL = COBOL Prog. Fund, P.I. Reference Handbook 
I2-M CSF P.I, Text = Unit 1 

IBM CSF P.i, Notevook 2-6 


IBM 5/360 DOS Exercises Card Deck 


Structural Engineering System Solver (STRESS) for the 1130, Model 2B (1130-EC-03X) Version II 
System Manual 


TNL to 1130 Linear Programming Mathematical Optimization Subroutine System (1130-LP-MOSS) 
(1130-CO-16X} System Manual Re: Y20-0141-0 
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Use A24-3264-0 & N24-022 
NEW 

Use C24-145621, N24-0281 
N21-5002 

Use C24e3427—i, N24-5122 
5169, N24-5197, N248527€ 
N24-S291 

Use C24=5030-2, N24-5182 
5191, N2#-5235, N24-5275 
N24-5 340 

Scrap C26=3751-0, N26-05. 
N26-0528, N26-0539 & N2t 
Scrap C26-550-3 & N26-05 
NEW 


NEW 


Scrap C28=65 ltet, N26«05 ' 
N2S@2150 

Use C28=-063281 & N2S“2255 
Use C25-6647-0, N2S=2217 
2225, N28=2248 & N2S=225: 
NEW 

NEW 

NEW 

Scrap H20-0136=1 & NOO=1C 
Scrap H20-0237=2 


Scrap H20-03525—=1 
Scrap H20-05-0-1 


Scrap H20-0574—0 


NEW 


Use J20-0009-0 

NEW - REVISED ABSTRACT 
NEW 

NEW 


NEW 


NEW 


NEW 

NEW 

Use R29-0030-2 

Use R29-0085-2 

Use R29-0093-1 & N23~0609 
Use R29-0096-—1 

Use R29-0106-0 


Scrap R29-0110-0 
Use R29-0162~0 
Use R2S-0206—{ 
Use R29-0241-1 
Use R29~0248—2 


New = Use R20=4074=0 
Scrap Y20-0081-0 


NEW 
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Y¥20-0153<-0 
Y24~5070 
Y24-5077 
Y28— 3050 
Y28~3059=0 
Y25-6605=3 


704-76 33=1 
Z20-0 8 39— 1 
277-6025~1 
Z77=723i91 
277-7 266=1 
277 #7 262-0 
Z77 #7 254-0 
277 7 255=0 
277 #7 286-0 
L777 285m OD 


C20-1602=7 


C20-1603-7 
C20-1604=7 
C20-16 30-3 


N20~1440,. 49 
N20~7040, 39 


Z20-0305-16 


221-0400-3 
520-1077~1 
520-2060-0 
520-2061-0 
546-0030-0 
$70-0295=2 


A24=3333-4 
A26=5917~+6 
C24-3374~2 
C24-9003=2 


H20-0290=2 
H20-0373-1 


H20-0375=1 


H20-0483-0 
J20-0012=1 

K20-0231-0 
K20-0241-0 


K20-0245-0 
N27#1292 


N27-2916 
N27=2918 


N28-0564 
N28=3012 


PRL #2 (Continued) 


Medical Information System Programs (MISP) (360A-UH-O8L) Application Description 
TNL to S/ 360 DOS System Controi PLM Re: Y24=5017-2 with Y24=5059 

TNL to IBM S/360 BOS Logical IOCS PLM Re: Y24-5003=1 

TNL to IBM S/360 Time Sharing System Task Monitor PLM Re: Y28=2041 

IBM S/360 Time Sharing System Linkage Editor PLM Re: Y28=2030-0 

IBM S/360 Operating System: Introduction to Control Program Logic, PLM 


Five Minute Typing Test & Copying From Rough Draft 


IBM 1050 Data Communications Dial-up Systems Design 

Queueing, Analysis of Real-Time Computer Programming 

1050 Configurator 

The Customer Information File 

RCA 301 to System/ 360 Marketing Assistance Guide 

PSM with OS/ 360 SORT 

Systein/ 360 APT N/C System Implementation Version I Post Processor Conversion 
Remote job Enury & Output for Disk Operating System (DROS) 

Shared File Opcration under DOS using the 2314 


- PRL #3 January 19, 1968- 
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OS/360 RELEASE 14-SYSTEM GENERATION 
CHANGES CORRECTION 


Installation Newsletter issue 67-26 contained, 
on page 2, an article on the above subject. 


The coding shown in item 1 is in error. The 
fifth line in the coding should be changed from 
// SYSLMOB to // SYSLMOD, Following this 
entry should be a line of coding: 


// MODLIB DD DSNAME = SYS1,MODLIB, 
DISP = OLD 
then // SYSLIN, etc. 


The second sentence in the last paragraph of 
the article contains a transposition. 
IBECOPY to IEBCOPY, 


Change 


OS/360 NEW JCL EXAMPLES REFERENCE 
CARD ~ 


A new reference card (X20-1760) is available 
for OS/360 Job Control Language. The card 
explains, by example, how to prepare JCL for 
FORTRAN, COBOL, PL/I, Assembler, and 
Utilities. It represents a new approach to 
detailed explanation of Job Control Language. 


The card is available from the IBM Distribu- 
tion Center, Mechanicsburg. 


OS/360 MVT-BUFNO IN IEFDATA CARD 
CONSIDERATIONS 


The reader-interpreter builds a JFCB in the 
job queue for each DD* data set. The skeleton 
comes from the IEFDATA DD card. If BUFNO 
is specified, a BSAM open will get buffers that 
take space which will not be used. The COBOL 
F compiler reads SYSIN data with BSAM. 
Blocked input with BUFNO = 1 caused a 100K 
region to be small, although SIZE = 10000 and 
BUF = 20000 had been specified. The com~ 
piler gets its own buffers and does not use those 
provided by the system at OPEN time. Thus, 
all buffers obtained at OPEN time, in response 
to the BUFNO parameter, are unused and may 
take up space required for other processing. 

It is recommended that BUFNO be omitted in 
the DCB parameters on the IEFDATA card. 


The IEFDATA DCB parameters are used both 
during the SPOOL function and thelater read. 
Therefore, the reader using QSAM will obtain 
the default of 2 buffers if BUFNO is omitted. 
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This will necessitate expansion of the reader 
region size when blocking is being employed, 
but should increase the efficiency of the reader. 


OS/360 DATA CELL RELATIVE TRACK TO 
ABSOLUTE CONVERSION 


The following is a field contribution which has 
not been submitted to any formal IBM test. 
Potential users are expected to evaluate its 
usefulness in their own environment. 


This routine, shown in Exhibit 1, was written 
to solve the problem of addressing a Data-Set 
which extends over more than 64, 000 tracks. 
While OS/360 offers the user relative block 
addressing in the form 'BBB', the three byte 
block address is first converted to a relative 
track address of the form'TTRZ' thus truncating 
the track address to a two byte value. This 
routine has proven helpful in addressing with- 
in one data cell. Multiple DCB's and problem 
program switching are required to handle more 
than one data cell. | 


l. Restrictions 


As written, this routine converts only a 
relative track’ address and assumes full 
track records. The record portion of the 
resulting 'MBBCCHHR' is always returned 
as record one. 


2. Departures from OS/360 Conventions 


In the interest of speed, registers 0, 1 and 
2 are used as parameter registers rather 
than passing a parameter list address. 


All registers are saved at entry to the 
program but since this is not a calling 
program, no save area is provided. 


Register 15 is used as a base register and 
must contain the entry point address upon 
entering the module. 


3. Entry to Routine 


The following conditions are required at 
entry: 


a. Register 0 must contain the relative 
track number right justified. The 
maximum decimal value is 16, 777, 215. 
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Register 1 must contain the address 
of the opened DCB for the Data-Set. 


Register 2 must contain the address of 
an 8 byte area into which the absolute 
address 'MBBCCHHR' will be formatted. 
No alignment is necessary. 


d. Register 14 must contain the return 


address to the calling program. 


e. Register 15 must contain the entry 
address of the routine. 


Program Logic 


a. The DEB address is obtained from the 
DCB. 


b. Using the DEBNMEXT value as a 
counter, Register 0 is decremented by 
the number of tracks in each extent 
until it goes minus (extent found) or 
all extents are exhausted (track not 
in extents). 


c. 'M' is developed and placed in the 
receiving area. 


d. 'BB' is moved into the receiving area 
from the DEB, 


e. 'R' is moved in as a constant of one. 


f. The extent start address (DEBSTRCC) 
is converted to relative track and add- 
ed into Register 0. 


g. The resulting relative address is con- 
verted to absolute and stored in 
"CCHH" of the receiving area. 

h. Return is made to caller. 

Exit from Routine 

a. Registers Othrough 14 are restored. 

b. Register 15 contains: 

0 if extent was found. 
4 if extent not found. 
Comments 
It may be noted that the table with symbolic 


name 'MYCCHH' which is used as botha 
multiplier and a divisor, contains a value 
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of 1 in the last half word. This results in 
a 'NO-OF' in this particular application, 
but gives the facility to convert any 'CCHH' 
combination by simply changing the values 
in the table. 


OS/360 COBOL F BLOCK SIZE OVERRIDE 


When the block size for a file is specified as 
"BLOCK CONTAINS 0 RECORDS" in the file 
section of a COBOL source program, the block 
size can be overriden atobject time. This can 
be done by the user specifying BLOCK SIZE for 
that file in the DCB parameter of the DD card. 
The ability to override block size can be used 
for files that consist of fixed length records. 


When QSAM and QISAM are used as access 
methods, the override facility can be used for 
multiple files and no further changes to the 
COBOL source program are required. This 


is because QSAM and QISAM use dynamic buf- 
fering. 


When BSAM or BISAM are used as access 
methods, the DCB override facility can be 
used for only one file. The buffer is located 
in the object module. A level 77 filler must 
be inserted at the beginning of working storage 
to reserve core for the largest expected block 
size. This technique will enable the first file 
named in the file section in the program to 
have its block size specified at object time. 


OS/360 RELEASE 14-FORTRAN H NEW XREF 
OPTION 


The XREF option is new with Version II of 
FORTRAN H. When using this option, a DD 
card is required in the compile step for 
SYSUT2. This information appears on Page 
12 of the FORTRAN H Program Logic Manual 
(Y28-6642). 


OS/360 DATA CELL RELATIVE TRACK TO ABSOLUTE CONVERSION 


LOC OBJECT CODE 


000000 


LOC 


000000 
000004 
000005 
O00000C 
000000 
000000 
000000 
000010 
000014 
O000016 
OOOOLA 
BO00LC 
000020 
000022 
000026 
O00002A 
OO002ZE 
000032 


000036 
OQOO003A 


OBJECT CODE 


4&1F0 
OT 


C3D6D5E5E3E3E3 


9OEC 


FOOC 


BDOOC 


002C 
1010 
1O2E 
FO3C 
0010 
FOLC 
0004 
0010 


DOOC 


ADDR1 ADDR2 


ADDR1 ADDR2 


0000C 


Q000C 


0002C 
00010 
OOO2E 
0003C 
00010 
0001C 
00004 
00010 


0000C 


STMT SOURCE STATEMENT FOLJUNS7 1/12/68 
2 CONVTTT CSECT | 
3 * * ROUTINE TO CONVERT RELATIVE TRACK 'TTT* TO ABSOLUTE *MBBCCHHR’. 


OOnN OW 
*# eH HK 


REGISTER CONTENTS AT ENTRY: O=TTT 


1=DCB POINTER. 

2=8-BYTE AREA FOR *MBBCCHHR*. 
14=RETURN ADDRESS TO CALLER. 
15=ENTRY ADDRESS USED AS BASE. 


1l * RETURN CONDITIONS: REGISTER 15=0, NORMAL RETURN. 

12 * REGISTER 15=4, TRACK NOT IN EXTENTS. 
STMT SOURCE STATEMENT 

14 SAVE (14,12),5,* 

15+ B 12(0,15) BRANCH AROUND ID 

16+ BC AL1{(7) 

17+ DC CL7*CONVTTT® IDENTIFIER 

18+ STM 14,12,12(13) SAVE REGISTERS 

19 USING CONVTTT,BASE 

20 USING THADCB,DCBREG 

2l USING ITHADEB,DEBREG 

22 L DEBREG,44(DCBREG) LOAD BASE FOR DEB. 

23 SR BCTREG,BCTREG ZERO BCT REGISTER. 

24 IC BCTREG,DEBNMEXT LOAD NUMBER OF EXTENTS. 

25 LR EXTREG,BCTREG SAVE FOR DEVELOPING 'M*, 

26 CNVTB LH WORK1 ,DEBNMITRK LOAD NUMBER OF TRACKS IN EXTENT. 

a7 SR TTTREG,WORKI SUBTRACT FROM RELATIVE TIT. 

28 BM CNVTC IF TTT GOES MINUS, EXTENT FOUND. 

29 LA DEBREG,16(DEBREG) BUMP TO NEXT EXTENT. 

30 BCT BCTREG,CNVTS BRANCH IF STILL IN DEB. 

31 LA BCTREG,4 DEVELOP ERROR CODE. 

32 RETURN ST BCTREG,161{13) STORE CODE IN SAVE AREA. 

33 RETURN (14,12) TETURN TO CALLER. 

34+ LM 14,12,12(13) RESTORE THE REGISTERS 

35+ BR 14 RETURN 

Exhibit 1 
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00003C 
OOOO3E 
000042 
000048 
00004C 
000050 
000054 
000058 


00005C 
000060 


000064 
000068 
OOO06A 


OOOO6E 
000072 


000074 


000078 
00007C 


000080 


000084 
000088 


LOC OBJECT 
O0008C 4864 


000090 1D06 
000092 4212 


1865 
4262 
D205 
9201 
4A00 
4770 
4150 
47FO 


4150 
4110 
4140 
1B33 
4331 
4034 
1A03 
4111 
4144 
4650 


4150 
4140 
8C 00 


000096 4122 


OOO09A 4144 
OOO009E 4650 


OOO00A2 4202 
OOOOA6 47FO 


OOOOAA O3E8 


OOOOAC 


0064 


ODOOOAE 0014 
0000B0 0001 


0000 
2001 
2007 
LO2ZE 
FO5C 
0000 
F032 


0004 
1026 
FOAA 


0000 
0000 


0001 
0002 
FO68 


0003 
FOAA 
0020 


0000 


CODE 


1024 00001 


00007 


ADDR 1 


00000 
00024 


OO002E 
0005C 
00000 
00032 


00004 
00026 
OOOAA 


00000 
00000 


00001 
00002 
00068 


00003 
OOOAA 
00020 


ADDR2 
00000 


00003 
00001 
00002 
00088 
00003 
00054 


CNVTC SR EXTREG,BCTREG 
STC EXTREG,O(MBCHREG) 


OS/360 DATA CELL RELATIVE TRACK TO ABSOLUTE CONVERSION 


DEVELOP ‘*M*. 
STORE *M* IN MBBCCHHR. 


MvC 1(6,MBCHREG) ,DEBBINUM MOVE B8BCCHH TO MBBCCHHR. 


MVI T(MBCHREG) »X'01' 
AH TTTREG, DEBNMTRK 
BNZ CNVETTT 

NORMAL LA BCTREG,O 
B RETURN 


FORCE RECORD 1 IN MBBCCHHR. 

ADD BACK OVERDRAW. 

IF NET IS ZERO, NO CONVERT NEEDED. 
DEVELOP NORMAL RETURN CODE. 

RETURN TO CALLER. 


* * THE FOLLOWING CODE CONVERTS THE EXTENT START ADDRESS TO TTT. 


CNVETTT LA BCTREG,)4 
LA DEBREG,DEBSTRCC 


LA TBLREG»MYCCHH 
CNVLOOP1 SR WORK1,WORKL 

IC WORK1,0O(DEBREG) 

MH WORK1,0O(TBLREG) 

AR TTTREG, WORK 


LA DEBREG, 1(DEBREG) 
LA TBLREG,2(TBLREG) 
BCT BCTREG,CNVLOOP1 


LOAD BCTREG FOR THREE TIME LOOP. 
LOAD ADDRESS OF CCHH IN DEB EXTENT. 
LOAD ADDRESS OF MULTIPLIER TABLE. 
ZERO IC REGISTER. 

INSERT IN ORDER-C1,C2,H1,H2. 
MULTIPLY BY MYCCHH CONSTANTS. 
ACCUMULATE TTT IN EXTENT. 

BUMP TO NEXT CCHH IN DEB. 

BUMP TO NEXT MULTIPLIER. 

LOOP 3 TIMES. 


* * THE FOLLOWING CODE CONVERTS TOTAL TTT BACK TO CCHH. 


LA BCTREG,3 
LA TBLREG,MYCCHH 
CNVLOOP2 SRDL TTTREG,32 


SOURCE STATEMENT 


LH EXTREG,O(TBLREG) 
DR TTTREG,EXTREG 

STC QUOTREG, 3(MBCHREG) 
LA MBCHREG, 1(MBCHREG) 
LA TBLREG, 2(TBLREG) 
BCT BCTREGeCNVLOOP2 


STC TITREG,3(MBCHREG) 
B NORMAL 
* * CONSTANTS FOR CONVTTT. 
MYCCHH DC H*1000! 
DC H*100° 
DC H*20' 
DC Hl? 
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LOAD BCTREG FOR TWO TIME LOOP. 
LOAD ADDRESS OF DIVIDE TABLE. 
SHIFT REMAINDERS. 


LOAD DIVISOR. 

DIVIDE. 

STGRE Cl1l,C2,H1, IN ORDER. 
BUMP MBBCCHHR POINTER. 
BUMP DIVISOR POINTER. 

LOOP TWICE. 

STORE H2 IN MBBCCHHR. 
RETURN TO CALLER - NORMAL. 


Cl MULTIPLIER. 
C2 MULTIPLIER. 
Hl MULTIPLIER. 
H2 MULTIPLIER. 
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OS/360 DATA CELL RELATIVE TRACK TO ABSOLUTE CONVERSION 


000001 80 DEBREG EQU 1 
000001 81 DCBREG EQU 1 
000004 B82 TBLREG EQU 4 
OOO000F 83 BASE EQU 15 
000005 84 BCTREG EQU 5 
000006 85 EXTREG EQU 6 
000003 8&6 WORKI EQU 3 
000004 87 WORK2 EQU 4 
000000 88 TITTREG EQU 0 
OOOO0E 89 RETREG EQU 14 
000002 90 MBCHREG EQU 2 
000001 91 QUOTREG EQU l 


LOC OBJECT CODE ADDR1 ADDR2 STMT SOURCE STATEMENT 
93 * * DUMMY SECTIONS FOR ADDRESSING DEB'S AND DCB‘S. 


95 * * DUMMY SECTION FOR DCB. 


000000 97 IHADCB DSECT 
000000 98 DS 44C 
00002C 99 DCBDEBAD DS F 


101 * * DUMMY SECTION FOR DEB. 


000000 103 THADEB DSECT 

000000 104 DS F 
000004 105 DEBAMIND DS C 
000005 106 DS 11C 
000010 107 DEBNMEXT DS C 
000011 108 DS 15C 
000020 109 DEBDVMOD DS F 
000024 110 DEBBINUM DS H 
000026 Lil DEBSTRCC DS H 
000028 112 DEBSTRHH DS H 
O00002A 113 DEBENDCC DS H 
00002C 114 DEBENDHH DS H 
OO002ZE 115 DEBNMTRK DS H | 
000000 116 END CONVTITT 


Exhibit 1 (Continued) 
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OS/360 FORTRAN H VERSION II-MINIMUM 
COMPILER SIZE 


FORTRAN H (Version II) can be SYSGEN'ed 
for a minimum compiler size of 153600 Bytes 
of storage. This size compiler will handle 
about 200 to 300 source cards. ‘Sach additional 


18, 000 bytes will allow roughly 100 additional 
source cards. 


A significant point to note is that the SYSGEN 
default for compiler size is 204, 890 »vytes in 
order to get the minimum size FORTRAN H 
compiler, that size (153,600) mu' + be explicitly 
specified in the FORTRAN SYSGEN macro. 


OS/360 PL/I ARRAY LOWER BOUND 


The lower bound of an array is 1 unless ex- 
plicitly declared otherwise. A common error 


is to use a subscript of 9 in an array reference, 


This error may be difficult to isolate if the 
SUBSCRIPTRANGE condition is not enabled 
for program checkout. 
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OS/360 PL/I AL ROUTINE TO DETERMINE 
CORE REQUIRED 


The following is a field contribution which has 
not been submitted to any formal IBM test. 
Potential users are expected to evaluate its 
usefulness in their own environment. 


The following is an Assembly Language sub- 
routine which, when called from a PL/I pro- 
gram, gives the amount of core required at 
that time. It will assist a PL/I oriented in- 
stallation in determining where to set partition 
sizes or when a reduction in program size 
should be considered. The subroutine (Exhib-~ 
it 1) is called from a PL/I program. This 


approach has been tested (by the author) in an 
MET environment. 


OS/360 PL/I AL ROUTINE TO DETERMINE CORE REQUIRED 


f//3J0B65 JOB MSGLEVEL=1 


7/C EXEC PROC=ASMFC,PARM.ASM="NODECK! 


//7ASM EXEC PGM=TEUASM,REGION=50K 00020000 
//SYSLITB DD DSNAME=SYS1.~MACLI8,01SP=SHR 90040000 
J/7ASM.2SYSUT1 DD UNIT=2314 

4/SYSUT1 OD UNIT=SYSSQ,SPACE=(1700,(400,50) ) 00060000 
//ASM.SYSUT2 DD UNIT=2314 

//SYSUT2 DD UNIT T=SYSSQ,SPACE=(1700, (400,50) ) 00080000 
J/ASM.SYSUT3 DD UNIT=2314 

//SYSUT3 DD UNIT=(SYSSQ,SEP=(SYSUT2,SYSUT1L,»SYSLI3)), X90 100000 
tf SPACE=(17002(400,50)) 00120000 
S/SYSPRINT DD SYSOUT=A 00140000 
J/SYSPUNCH DD SYSQUT=RA 00160000 
S/ASM.SYSIN DD UNIT=2314,VOLUME=SER=SYSLI9, C 

// DISP=(O0LD,DELETE) »yOSNAME=D00.J0B65 


IEF2361 ALLOC. 
TEF2371 SYSLIB 
TEF2371 SYSUT1 
IEF2Z371 SYSUT2 
TEF2Z371 SYSUT3 


FOR JOB65 ASM C 
ON 134 
ON 135 
ON 136 
ON 137 


LEF2371 SYSPRINT ON 130 
IEF2Z37TI SYSPRINT ON 132 
TEF2371 SYSPUNCH ON 130 
IEF2371 SYSPUNCH ON 132 


TEF2371I JYSIN 
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OS/360 PL/I AL. ROUTINE TO DETERMINE CORE REQUIRED 


PRAGRAM TD DETERMINE CORE USED 


LOC 


000000 
000000 
000000 
000004 
000005 
000008 
O0000C 


000010 
090012 
900012 
900016 
QOOOLA 
00001C 


000020 
000022 
900026 
000028 
00002C 
OO002E 
000030 


000034 
000038 
090003C 
0000490 
000044 
000048 
00004C 
000050 


QBJECT CONE 


47FQO FOOC 

06 
C6D8C5D4C1D7 
00 

9OEB DOOC 


O5A0 


4100 0048 
58FO AOEE 
O5EF 

9280 D000 


0700 
4110 AOILC 
O511 
00000000 
0000 
OAOQE 
5010 AGES 


4150 9010 
5855 0000 
5855 0000 
4155 0004 
5855 0000 
5865 0018 
5876 0008 
5B76 0004 


ADDR] 


00000 


ADDR? 


0000C 


O0000C 


00048 
00100 


OO00Q2E 


OOOF8B 


00010 
00000 
00000 
00004 
00000 
90018 
00008 
00004 


STMT 


QEMAP 


STARTGR 


ee 
rnb whryor OO DON PD UIP WY 


18 GOl 


SOURCE STATEMENT 


FOLJUN67 12/27/67 


PL/1i CALLING SEQUENCE -- CALL FQEMAP 5 


SIZE OF PROBLEM 


PROGRAM AT TIME OF CALL WILL BE TYPED 


ON CONSOLE. 


IT IS 
SINCE 


ANVISABLE TO INSERT SEVERAL CALLS IN A PROGRAM 
ITS SIZE MAY CHANGE DYNAMICALLY. 


TJK 9 362,12/28/6T 


START 
USING 


MVI 


SET PICA FUR THIS 


0 

*, 15 

GO1 
AL1(6) 
CTPSEMGe! 


14,11,12(13) 


15 

10,0 BASE REG 

*,10 

0,72 

15,ADDR1 

14,15 GET DYNAMIC SAVE AREA OF 7? BYTES 
0{13),xX*'a8o! 


ROUTINE 


294 

Ly*+12 LOAD BRANCH ADDRESS 
l,l BRANCH AROUND PARAMS. 

A(O)* EXIT ROUTINE ADDRESS 

AL2(0) INTERUPTION MASK 

14 ISSUF SPITE Svc 


1,HOLD SAVE ADDRESS OF PREVIOUS PICA 

516 LD ADOR OF PTR TO CVT 

5,0(5) LD PTR TO CVT 

5,0(5) LD CVTTCBP-PTR TO PTR TO NEXT TCB 
5¥4(5) BUMP TO ADDR OF PTR TO CURRENT TCB 
5,0(5) LD PTR TO CURRENT TCB 

6,24(5) LD TCBMSS 

7,8(6) LD HI CORE ADOR 

72416) SUBTRACT LO CORE ADDR 


8961 66 Azrenaga 7 


“ON OnSssT 


cO"89 


000054 
000058 
00005C 
000060 
000064 
000068 
00006C 
900070 
000074 
0900076 
ONO00TA 
QOOGOTE 
000082 


LOC 


0000 86 
O0008A 
QOOO8E 


000094 
000098 
00009C 
O000A0 
DQOOQ0A4 
OO00A8 
OOOOAC 


0000B0 
0000B0 
0000B0 
0000B4 
0000B6 
000088 
0000C5 
0000D5 
0000D9 
OOO0DA 
OOOODA 


09000DC 


OOQ0ENO 
DOODE2 


OOO0E4 


5070 AOEA 
4120 AQFS 
5876 9000 
5897 0004 
5072 9000 
5092 0004 
4122 0008 
5880 AOEA 
1B89 

5080 AOEA 
5877 0000 
5970 Al76 
4770 AO4E 


OBJECT CODE 


5880 AOEA 
4E80 AODE 
F3F7 AOB3 


4180 AOB3 
96F0O AOC2 
95FO 8000 
4770 AOJE 
9240 8000 
4188 0001 
47FO AOQBA 


4510 AOQC8 
0025 
0000 


AOQDE 


OS/360 PL/I AL ROUTINE TO DETERMINE CORE REQUIRED 


ADDR 1 


Q000C5 


00004 
00000 


90000 


5C5C5C40C 3D6D9C5 
F040404040404040 


405C5C5C 


OA23 
5890 AOE6 


1819 
OAOE 


5B8FO ADF2 


QDOOFC 
O0108 
99000 
00004 
Q0000 
00004 
09008 
QOOFC 


QOQOFC 
09000 


90188 
00060 


ADDR2 
QOOFC 
QO0F QO 
OOOFO 


QOO0C5 


000B9 


90001 
O0009C 


OOODA 


OOOFS 


00104 


AGAIN 


SOURCE 


GO3 


GO2 


TEMP2 


MSGEND 
WTO 


x 


ST 7+CORFUSED STORE PARTITION SIZE 
LA 2,SHOW 

L 7,0(6) LD FQF ADDR 

L 9,4(7) LO NUMBER OF FREE BYTES 
ST 7,0(2) SAVE PTR FOR ABEND DUMP 
ST 944(2) SAVE PTR FOR ABEND DUMP 
LA 24812) 

L 8, COREUSED 

SR 8,9 SUBTRACT FREE AREA FROM PARTITION SIZE 
ST 8, COREUSED 

L 7,0(7) LD FIRST WORD OF FQE 

C Ty=FtOt AT LAST FQE ? 

BNE AGAIN NO 

STATEMENT 

L 8,COREUSED YES 

CVD Ry TEMP I 

UNPK TEMP2,TEMPL 

LA 8,TEMP2 FODIT GUT BLANKS 

OI TEMP24+15,X'*FO" FIX ZONE 

CLI 01(8),C*0O! 

BNE GN2 

MV I 0(8),C! ! 

LA 8,1(8) 

B GO3 

CNOP 094 

EQU x 

BAL 1, WTO 

DC AL 2(MSGEND-*) 

ne AL?2(0) 

DC C'*xk* CORE USED! 

DC CL16'O! 

DC C! **x«! 

EQU * 

DS OH 

SVC 35 

L 9,HOLD 

SPIE MF=(E,(9)) RESTORE PICA OF CALLING PROG 
LR 1,19) LOAD PARAMETER REG 1 


SVC 14 ISSUE SPIE SVC 


15, ANDR3 


RELEASE SAVE AREA AND RETURN TO CALLING PROGRAM 
Exhibit 2 (Continued) 
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OOOOE8 OTFF 88 BCR 15,15 | 
QOOOEA 000000000900 teas 

Q0000FO 0000000009000900 89 TEMPL DC cape = 
OO000F8 90000000 90 HOLD | DC a 

OOOOFC 00000000 91 COREUSED DC neers 

900100 00000000 92 ADDR1 DC V(LTHESAD! 

000104 00000000 93 ADDR3 DC ee ae anen ean aunes 
000108 0000000000000000 94 SHOW DC 37730 AVE a= : LIM 

900188 is LTORG re 

900000. 7 END STARTOR 


Exhibit 2 (Continued) 


OS/360 PL/I LINE SPACING 


When using List directed 1/O in PL/I a blank 
character is appended to each item to separate 
each item from the next. 


If the width of the item is equal to linesize, 
then this blank character will appear as the 
next line. A following SKIP (default to(1)) 
will cause a space of one line and the blank to 
be output, resulting in two actual space lines. 
Eixample: 


DCL X CHAR (120) INIT (*XYZ'): 
PUT LIST (X) SKIP; 
PUT LIST (X) SKIP; 


The output obtained is: 


XYZ 
blank line 
blank line 
XYZ 


DOS/360 COBOL ISFMS DATA ON 2321 IN- 
DICES ON 2311 


The following is a field contribution which has 
not been submitted to any formal IBM test. 
Potential users are expected to evaluate its 
usefulness in their own environment. 


The following is a description of a COBOL 
programming technique used to create a master 
index for an index sequential file, and to lo- 
cate the master and cylinder indices ona 23ll 
disk drive while the prime data is located on 

a 2321 data cell drive. Both the DOS job con- 
trol statements and the COBOL routine to alter 
the skeleton COBOL DTF needed to create these 
indices are described. The technique was used 
with Release 13 of DOS/360. 
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When using COBOL to create an index sequen- 
tial file the DTF must be alteredin order to 
change the assumed number of overflow tracks, 
to locate indices on a 231] when the prime data 
is ona 2321, or to develop a master index, 


To alter the number of cylinder overflow 
tracks (COBOL assumes 20% of the cylinder 
for overflow, or 2 tracks for the 2311 and 4 
tracks for the 2321) move a hexadecimal rep- 
resentation of the quantity of desired cylinder 
overflow tracks into byte 21 of the skeleton 
DTF before the file is opened. 


To change the location of the indices to a 2311 
when the prime data is on the 2321, move an 
X'FO! into byte 20 of the skeleton DTF before 
the file is opened. 


To build a master index, the DTF has to be 
altered both before and after the file is opened. 


Move an X'01' into byte 200 of the skeleton 
DTF before the opening of the file to allow for 
a master index. 


After the open and before the close of the file 
move an X'02' into byte 65 of the expanded 
DTF to allow for two levels of indices. 


Exhibit 1 shows an example of the calling pro- 
gram. Exhibit 2 shows the called program that 
allows COBOL to perform the functions stated 
above. 
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DOS/360 COBOL ISFMS DATA ON 2321 INDICES ON 2311 


// JOB SAMPLE LOAD SAMPLE INDEX SEQUENTIAL FILE 
// OPTTON LISTXsSYM,LOGyLINK, DUMP 

| PHASE SAMPLE ,* 
// EXEC COROL 


001 IDENTIFICATION DIVISION. 
001 PROGRAM-ID. 'SAMPLE! 
O01 ENVIRONMENT DIVISION. 
001 CONFIGURATION SECTION, 
001 SOURCE-COMPUTER. IRM—-360 F30. 
001 ORJECT-COMPUTER. T83M—360 F30. 
O01 INPUT-OUTPUT SECTION, 
OOl FILE-CONTROL. 
001. SELECT I-TAPE 
001 ASSIGN TO "SYSO2L" UTILITY 2400 UNITS. 
001 SELECT O-CELL 
001 ASSIGN TO #SYS913" DIRECT=-ACCESS 232] 
O01 RESERVF NO ALTERNATE AREA 
Q01 ORGANIZATION IS INDEXED 
001 ACCESS IS SEQUENTIAL 
001 RECORD KEY IS I-KFY. 
001 DATA DIVISION. 
O01 FILE SECTION. 
O01 PROCEDURE DIVISION, 
001 START. 
ool FNTER LINKAGE. 
001 CALL 'CHNGDTFA' USING O-CELL. 
O01 FNTER COBOL. 
001 OPEN INPUT I-TAPE OUTPUT O-CELL. 
O01 ENTER LINKAGE. 
O01 CALI 'CHNGDTFR! USING O-CELL. 
O01 ENTER COBOL. 
001 REAN-TAPE. 
001 CLOSE I-TAPE O-CELL. 
001 STOP RUN. 
/% 
INCLUDE MODULE TO ALTER THE OTF 
// LBLTYP NSN(O7) 
// FXEC LNKEDT 
// ASSGN SYSO021,X'181! 
// ASSGN SYSO009—9X!'?9L! 
// ASSGN SYSO13,X'297! 
// VOL SYSO139SYS013 
// DLAB "SAMPLE INDEX SEQUENTIAL FILE 
OO01 567354499365,! ',ISC 
// XTENT 004,000,000011000,000011009, '009145',SYSO09 
// XTENT 004,001,000012000,000036009,4'009145'.SYSO09 
// XTENT 0015002 ,000000100 ,019005419, '011589',SYSO013 
// XTENT 001,0034100000100,119005419,'011590'.SYSO1L3 
// XTENT 001,0044200000100,219005419,'01L1591L'*SYSO13 
J// XTENT 00140055 300000100, 3050044194 '011592',SYSO013 
JS/ XTENT 002 +0067 305005000 307002419, '011592',SYSN13 
// PAUSE MOUNT CORRECT TAPE ON '181° 
// EXEC 
/& 


Exhibit 1 


CALLING 
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PROGRAM 
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f/f. 
// 
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DOS/360 COBOL ISFMS DATA ON 2321 INDICES ON 2311 


JOB ALTROTFFE THIS IS A SUURCE LISTING UF THE CALLING PROGRAM 
OPTION & 


TSTXs DUMP gLOIGsSYM,LIST,DECK 


// EXEC COBOL 
IDENTIFICATION DIVISION. 


002 
002 
00? 
O02 
0? 
002 
002 
002 
002 
O00? 
O00? 
O02 
002 
O02 


002 


PRHIGRAM-ID. tALTRIVEPE Ys 

ENVIRONMENT DIVISTON. 

COMFIGURATION SECTION. 

SOURCE-COMPUTER. IBM-360 F30. 
OBJECT-COMPUTER. IBM-360 F30. 
DATA DIVISTON. 


LINKAGE SECTION. 


O1 


PROC 


EXIT 


DTF-FOR~SAMPLE-FILE. 

O2 BYTE OCCURS 250 TIMES PICTURE Xe 

FDURE DIVISTON. 

ENTER LINKAGE. 

ENTRY 'CHNGODTFA® USING DTF-FOR-SAMPLE-FILE. 

ENTER COBOL. 

NOTE MOVE A XftOL?® TO THE 22ND) CHATACTER POSITION OF THE 
SKELETON CORBUL DIF, 
THIS WILL ALLOw FOR ONLY UNE OVERFLOW TRACK PER CYLINDER. 

MOVE "'A® TO BYTE (22). NOTe A TS X'OLS. 

MOTE MOVE A X®FO® TU THE 21ST CHARACTER POSTTFIUN OF THE 
SKELETON COBOL DIF, THIS wIiLL ALLUW FOR INDICES 
ON THE 2311 WITH PRIME DATA ON THE 2321. 

MOVES POE OPO AYE C299 6> NOTE. aS, XP EOFs 

MOTE mavVE A XFOL® TO THE 201ST CHARACTER POSTTION OF THE 
SKELETON COBOL DIF, THIS WILL ALLOW FOR THE MASTER INDEX. 

MOVE fA" TO BYTE (201). NOTE A TS X#FOLF. 

GO TH EXIT. 

ENTER LINKAGE. 

ENTRY 'CHNGDTFR® USING DITF-FOR-SAMPLE-FILE. 

FNTER COBOL. 

NOTE MOVE A XfO2* Ti) THE 66TH CHARACTER POSITION OF DTF >» 
THIS WILL ALLOW FOR TWO LEVELS OF INDICES. 

MOVF "B® TH BYTE (66). NOTE BITS X*02*. 

FNTER LINKAGE. 

RFTURN. 

ENTER COBOL. 


Exhibit 2 
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S/360-20 DISK SORT CODING SHEET COR- 
@ RECTION 


Installation Newsletter issue 67-24, December 
1, 1967, contained ian article on the above 
subject. The statements that the block size 
must be a multiple of 270 are in error. 


The block size and record size should be ex- 
pressed exactly as they appear on the disk 
file. The sort program will adjust the I/O 
area to full sectors. 


S/360-20 RPG UNDOCUMENTED MESSAGE 


A'"Note 333" was encountered during the pro- 
gram listing. No diagnostic message expla- 
nation was given and no explanation is given 

in Appendix D of "Disk and Tape Programming 
Systems RPG" (C24-9001-3). The cause was 
determined to be that the File Extension Card 
was out of order. 
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S/360-20 DPS RPG INCORRECT CYLINDER 
INDEX 


DPS RPG Index Sequential load does not create 
the cylinder index correctly. The last logical 
record in each sector is loaded with X'FF' 
instead of data. Asa result of this, chaining 
to any record not referenced within the range 
of the first sector of the CI will fail with a 707, 
803 or specification error halt. A solution is 
to duplicate the last logical record in each 
sector of CI, 
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NEW TYPE UI PROGRAMS * ©@ 


The following are the abstracts of programs which have been recently made available from 


the Type II library. 


The program, along with its complete abstract, will be incorporated in subsequent issues 


of the Catalog of Programs. 


Programs may be obtained by submitting a properly completed ''General Program Request 
Card" (Form Number 120-1145-1) to the Program Information Department, 40 Saw Mill River 


Road, Hawthorne, New York, 10532. 


These programs and their related documentation are distributed by IBM in the author's 
original form and have not been subjected to any formal testing. 

Any discussion of Type III Programs must emphasize the following points: 

1. Type IIL programs are not part of the IBM product line, as are Programming 
Systems (Type I) or Application Programs (Type II). 

2. Type III programs have not been subjected to any formal product test. 

3. Recipients of Type IIL programs are expected to make the final evaluation as 
to the usefulness of the programs in their own environment. 

4, There is no committed maintenance for Type III programs. However, any 
changes the author chooses to make will be announced in subsequent issues 


of the Catalog of Programs. 


NOTE: THE CUSTOMER MUST BE INFORMED THAT THE ABOVE APPLIES TO 
ANY OF THE FOLLOWING TYPE UI ABSTRACTS FURNISHED TO HIM. 


S/360 DISK REMOTE OPERATING SYSTEM 
(DROS). DROS is a 32K foreground program 
which provides concurrent job input and out- 
put transmissions on multiple switched and 
non-switched lines via 2701 and 2702 trans- 
mission control units. DROS automatically 
picks up jobs from a terminal job queue and 
schedules them sequentially in the background 
partition for execution. Terminal input and 
output is buffered on a 2311 disk file. Printed 
and punched output from terminal submitted 
jobs can be received at the terminal or -be 
directed to the computer center based on sub- 


mission time instructions in the '//JOB' card. 


DROS is written in Assembly Lanugage using 
BTAM and STRAM. DROS will operate on any 
System/360 (Model 30 or larger) with 64K, 
decimal arithmetic, storage protection, and 
aninterval timer. Three 2311 disk files are 
utilized in DROS for SYSRES, DROS job input 
and output buffering, and system work files 
and/or user data files. Terminal service is 
accomplished through the 2701 and 2702 trans- 
mission control units with single drop lines.. 
DROS supports 1050, 1130, and 1978 terminals. 
Modification to DOS was kept to an absolute 
minimum. Only three insertions of code in 
the Job Control portion of the DOS supervisor 
are required to allow it to work with DROS, 
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Ordering Procedure: Order File Number 360D- 
in e 


The program material can be obtained in card 
form or on one 9 track or 7 track (Data Con- 
version feature required) Distribution Tape 
Reel (DTR). 


The requester must indicate whether a ” track 
or 7 track DTR is required. If not specified, 
a 9 track DTR will be provided. 


No tape submittal is required. The DTR will be 
provided by the Library. 


S/360 DEBE-DOS UTILITY PROGRAM, The 
System/360 DOS Debe Utilities is an adaptation 
of the original BPS Debe Utilities to operate 
under 16K DOS. In addition to the original card, 
tape, and printer functions, DOS Debe also 
provides 2311 Disk to Printer and 2311 VTOC 
Display functions, in non-DASD file protect 
systems. The program is loadable from the 
core image library of DOS, and requires the 
1050 console for function selection and symbolic 
unit assignments. 


Ordering Procedure: Order File Number 360D- 
00.1. 013. 
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The program material can be obtained in card for 
form or on one 9 track or 7 track (Data Conver- 
sion feature required) Distribution Tape Reel 
(DTR). 


The requester mustindicate whether a 9 track 
or 7 track DTR is required. If not specified, 
a 9 track DTR will be provided. 


No tape submittal is required. The DTR will be 
provided by the Library. 


S/360-20 CARD RPG COMPILER OVERFLOW 
PATCH. This patch, consisting of four TXT 
cards to be inserted in the Model 20 Card RPG 
Compiler deck (360T-RGO10, Version 2) causes 
page overflow during printing of the RPG source 
cards at compilation time. Compiler operation 
is unchanged, with the.exception that the diag- 
nostic message, ''RG0O05 CCOL. 6 INCORRECT, 
CARD IS BYPASSED," does not print in recog- 
nizable form due to the use of the area normally 
occupied by this message as a patch area. 


Machine Configuration: As required for 360T- 
RGO1O. 


Ordering Procedure: Order File Number 360D- 
03. 8.009. Distribution will be in card form only. 


S/360 MACRO ASSEMBLER FOR S/360-MODEL 
44, Themacro assembler for S/360/44 is 
designed to provide macro capabilities for the 
Model 44 operating system. The macro pack- 
age is written in assembler language. Itis 
composed of six programs; 1) assembler phase 
one, 2) assembler phase two, 3) decoder, 

4) encoder, 5) macro library routine and 6) li- 
brary read routine. Assembler phase one is the 
main routine. It calls and controls all other 
routines. The macro language is a subset of 
OS/360 macro language. This package also 

has library capabilities for system and user 
macro libraries. 


Order Procedure: Order File Number 360D- 
03. 7. 014. 


The program material can be obtained on one 
9 track or 7 track (Data Conversion feature 
required) Distribution Tape Reel (DTR). 


The requester must indicate whether a 9 track 
or 7 track DTR is required. If not specified, 
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a 9 track DTR will be provided. 


No tape submittal is required. The DTR will be 
provided by the Library. 


APL/1130-A PROGRAMMING LANGUAGE FOR 
THE IBM 1130. APL is a conversational im- 
plementation of the Iverson notation, an ex- 
tremely concise mathematical notation with 
simple but rigorous syntax. This concise 
attribute virtually eliminates the -program- 
step in the problem-solving chain of problem-- 
algorithm--program--solution. All operators 
of the notation and editing capabilities, and the 
capability to save and retrieve work spaces are 
provided. The implementation allows data to 
be structured as scalars, vectors, and matrices 
with up to 225 elements in any dimension. 
Numerical values are accurate to six decimal 
digits, and identifiers are up to 6 alphabetic 
characters. The program is independent of 
the IBM monitor, and requires a dedicated 

disk cartridge. Utilities are provided to gen- 
erate the system, assign and delete workspaces, 
and dump/restore individual workspaces and 
their functions to cards. Minimum configur- 
ation is a 1131-2B anda 1442. A 2741 termi- 
nal and requisite RPQ are highly desirable. 


Ordering Procedure: Order File Number 1130- 
03. 3.001. 


Distribution will be in card form only. 


ROMANCE-ROY'S METHOD FOR ACCURATE 
NUMERICAL CONTROL ON THE ELEVEN- 
THIRTY. The ROMANCE program is a Numer- 
ical Control processor designed to facilitate 
part programming by providing the user with 
simple methods for tool and pattern definition. 
Point to Point and simple milling operations 
can be part programmed through ROMANCE. 
The programmer has point, line, matrix or 
circle definitions available, and can invert, 
repeat, translate, rotate or delete from these 
patterns. Milling operations which are paral- 
lel to the X and Y axis can also be defined. 
Special features include a data check, the 
facility of calling pre-defined successions of 
tools, a guard routine which prevents tool 
collisions with the work-piece, a sort of out- 
put records, anda plot of the tool path. 
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Minimum configuration - 8K 1130 C. P.U., DISK 
and either a 1442 CARD READ PUNCH or the 
1055 and 1134 TAPE units (an 1132 PRINTER 

and a 1627 PLOTTER are optional). The pro- 
gram was written in 1130 Fortran IV and runs 
under the 1130 Monitor System. 


Ordering Procedure: Order File Number 1130- 
23.4. 002. 


Distribution will be in card form only. 


APBE ANALYSIS OF PLACKETT-BURMAN 
EXPERIMENT, This program computes the 
mean effects of all independent variables in 
two level Plackett-Burman experiments where 
the number of trials is 8, 12, 16, 20, 24, 32, 
36, 40, 44, 48, 56, 60, 64, 68, 72, 80, 84, 
88, 96. Where the number of variables and 
trials permit, the program also computes an 
estimate of the variance. 


Programming language is FORTRAN IID. 
Machine configuration is: 1620, Model II with 
60K memory with auto divide; additional in- 
structions and indirect addressing; 1622 Card 


Reader Punch; 1443 printer. 


Ordering Procedure: Order File Number 1620- 
06.0. 252. 


Distribution will be in card form only. 
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SELECTED SHORT SUBJECTS 


The purpose of Selected Short Subjects is to 
bring together and highlight concise, factual 
and timely information which will indicate 
that action is to be taken by the IBM repre- 
sentative whose accounts are affected. 


Using the IBM Executary To Improve Sys- 
tem Operations 7 


The IBM Executary, when placed at the 
console of the system, provides a quick 
and effective method for recording the 
conditions existing at the time of the oc - 
currence of any incident which affects pro- 
cessing. It provides a history of events 
and much improved communications be- 
tween the customer and IBM in identifying 
and solving machine, programming sys - 
tems, operator, customer programming, 
and related problems. See Installation 
Newsletter issue 68-01, page 18 (green 
section), for more detail. For information 
about the IBM Executary, contact your 
IBM Office Products representative. 


OS/360 CUSTOMIZED DISTRIBUTION - 
PLANNING INFORMATION 


The customized distribution service (Letter 
P67-1) was offered initially with OS Release 
9 to allow users having only two 2311 Disk 
drives to perform system generations more 
conveniently. The need for this capability 
was the result of OS/360 library growth. 


Since then, the number of components and the 
size of many existing components has grown, 
limiting the component selection available for 
2-drive users. Further OS growth is expected, 
and may exceed three 2316 Disk packs in late 
1968. Asa result of these factors, a plan is 
being investigated which permits the 2-drive 
user to generate a greater number of compo- 
ments and would reduce the time necessary for 
PID to ship orders for 2-drive users. 


The plan, generally, is to prepare a standard 
subset package having most of the present OS 
components (eliminating those which are large- 
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system oriented) packaged on three, rather 
than two volumes. Users with two drives would 
be given special system generation instructions 
and would be able to select any combination of 
the Components in the subset package. 


If the outcome of this investigation is positive, 
it is likely that orders for 2-drive users will 
require submission of three volumes to PID, 
possibly as early as Release 15, and that in- 
dividual customizations will be discontinued. 


An additional plan is being investigated with 
the goal of repackaging the full OS distribution 
so that all users with three or more Disk 
drives will be able to use it without needing 
customization, or subset packaging, after 
SYS1. MODLIB grows to exceed one 2311 vol- 
ume Capacity. 


OS/360 PCP OR MFT CHECKPOINT APPROACH 


The following contribution has not been submit- 
ted to any formal IBM test. Potential users 
should first evaluate its usefulness in their 
own environment. 


The following is an approach to avoiding the 
need to re-enter nucleus initialization param- 
eters after IPLing. A checkpoint of the system 
is taken after the operator has entered all the 
OS initialization parameters he intends to run 
with for the day. A dump of core to tape is 
taken at this point and then operations proceed 
as normal. In the event of a system failure, 
the tape is IPL'ed and operations proceed as 
normal. The operator has only to reset the 
clock and resume production. In this manner, 
the system is restarted in a matter of seconds 
in the event of an OS/360 system failure. 


A flow chart of the approach is shown in Exhibit 
1, 


1. Modification to OS/360 


SVC IG C0203D-Modified to recognize 

an additional display command param- 

eter 'DISPLAY DUMP’. The command 
will XCTL to SVC IGC0303D. 
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2. Additions to OS/360 
a) SVC IGC0303D 


l. ATTRIBUTES-REUS- 
ABLE, TRANSIENT 


2. FUNCTION-DUMP the 
contents of core toa 
predetermined 9-track 
tape drive in a form that 
is 'IPL-ABLE'. 


3. ENTRIES-The only entry 
to this module is from 
IGC0203D VIA an XCTL. 


4. MACROS-Macros used 
in this module 


a. GET MAIN 
b. ABEND 

c. FREEMAIN 
d. EXIT 


5. INPUT-At entry to this 
module, register 6 
points to 40 bytes of 
core that is used to 
pass information from 
MEXCP to IECO103D. 
These 40 bytes carry 
the following informa- 
tion: 

Bytes 00-15 calling 
sequence used to 
XCTL to 


Bytes 16-23 verb 
from operator com- 
mand 


Bytes 24-39 Param- 
eter list from op- 
erator command. 


3. Description of module ICC0303D 


The program determines how much 
core is available by looking at the CVT. 
From this information a list of CCW's 
are constructed to both write out and 
read in core. The OS IO interrupt new 
PSW is changed to point to the IO inter- 
rupt handler in this module and is later 
restored to its original value. The 
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program starts IO to a predetermined 
9+track tape unit, then ends via SVC 
EXIT. 


When the checkpoint tape is IPL'ed, i, 
control is transferred to the restore 

segment of the program which continues 

reading in the checkpoint tape and then 

ends via SVC EXIT. 


4. Restriction 


TIMER MUST BE UPDATED with set 
clock command after IPLing CHECK- 
POINT tape. 


5. Advantage 


The time it takes to restart a 512K sys- 
tem after a system failure is approxi- 
mately six seconds. 


OS/360 FORTRAN H VERSION II CHANGE IN 
PASSING NAMES 


The method used by FORTRAN H to pass sub- 
routine or function names ina call statement 
has been changed with FORTRAN H Version II. 
Names of functions and subroutines being 
passed as arguments ina CALL statement must 
appear in an external statement in the calling 
routine. In routines compiled under FORTRAN 
H Version I, the calling routine would pass 

an ADCON, which was in the parameter list, 

to the routine being called. This ADCON 
would point directly to the entry point of the 
function or subroutine being passed. Routines 
compiled under Version II, however, pass not 
the ADCON itself, but a pointer to the ADCON. 


There are two instances where some action is 
required. The first is where subroutines or a 
function name is being passed between the rou- 
tine compiled under FORTRAN H Version II 
and a routine written in Assembler language. 
If the Assembler language routine was written 
to operate with FORTRAN H Version I, the 
interface will have to be changed to accept a 
pointer to the ADCON instead of the ADCON 
itself. The second instance is where a subrou- 
tine or function name is being passed between 
a routine compiled under FORTRAN H Version 
I and one compiled under FORTRAN H Version 
II. 
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OS/360 PCP OR MFT CHECKPOINT APPROACH 


Flow Chart of SVC IGC0303D 
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Exhibit 1 
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XCTL From Module IGC0203D 
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In order to operate properly, a routine compiled 


under Version I will have to be recompiled 
under Version II. 


The reason for this change was to make all OS 
FORTRANs compatible. Difficulties similar 
to those discussed above had previously existed 
when passing a subroutine or function name 
between the routine compiled under FORTRAN 
H and another compiled under either FORTRAN 
E or FORTRAN G. This inconsistency now has 
' been eliminated. 


OS/360 MINIMUM CORE REQUIREMENT FOR 


2314 SORT 


There is no explicitly stated minimum core 
storage for the 2314 sort in the SRL Manuals. 
The actual minimum is variable, and averages 
25K. The minimum should be considered to 
be 44K to obtain good performance. It is pre- 


sently planned to include a more explicit state- 
ment concerning the 2314 sort main storage re- 


quirements ina future SRL revision. 


Record File 


Length Size 
5000 

80 10000 
100 5000 
10000 

200 5000 
270 4200 
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$/360-20 NEW MODELS -DISK SORT/MERGE 
Si 200-60 NE WMV Pees eS eee 


TIMING 


The following information is preliminary, sub- 
ject to change, and is provided for planning 
purposes only. Actual timings and specifi- 
cations will be provided through the official 
IBM documentation procedures. 


The timings apply to the newly announc ed 
models of $/360-20. See Product Announce- 


ment letter 268-21, dated 3/5/68 and the Sales 
Manual pages attached thereto. 


l, Performance: 


The sort time estimates in the table be- 
low are based on the following assump- 


tions: 


a) Sort/Merge program is disk-resi- 
dent. 


b) One control field. 
c) Disk input and output. 
d) No options used. 


e) Work areas on different drives for 
two-drive sorts. 


f) Freeout specified. 


Time in Minutes 


12 K Core 16 K Core 
1 Drive 2 Drives 1 Drive 2 Drives 
7 5 6 5 
9 9 
1 6 6 5 
12 9 
9 8 
15 13 


Minimum System R equirements 


A 2020 Processing Unit Model BC4 (12k), 
a 2560 Model A2, a 2311 Model 12 Disk 
Storage Drive, and if error and diagnos- 


tic messages are desired, a 2203 Model 
Az Printer. 
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S/360-20 TPS/DPS - RETURNING CONTROL 
TO JOB CONTROL PROGRAM 


The following is a field contribution which has 
not been submitted to any formal IBM test. 
Users should evaluate its usefulness in their 
own environment prior to implementation. 


When operating under S/360-20 TPS or DPS, 
it is sometimes desirable to return control to 
the Job Control Program in the event of an 
error stop (non-programmed halt) - in order 
to initiate the execution of the next program in 
the job stream. | 


Control can be returned to the Job Control 
Program at anytime by altering the contents 

of Register 3 (actually the instruction address 
portion of the PSW) to 00C2 and pressing start 
on the CPU console. This procedure eliminates 
the need to re-IPL in such a situation. 


S/360-20 DISK RPG CHAINING ERRONEOUS 
DIAGNOSTIC 


In using S/360-209 Disk RPG, there seems to be 
a problem in generating a program when one 
file with two chaining fields is used to chain to 
two indexed sequential files. 


An erroneous diagnostic (message 236) is given. 
It states the chaining field and the key field to 
the second chained file have unequal lengths. 


Contact the servicing Field Engineering Branch 
Office regarding a PTF to correct this problem. 


1130 IMPLEMENTING MONITOR SYSTEM 
VERSION II 


Version II of the 1130 monitor, supporting the 
new features and models was released on 


December 15, 1967. Some improvements in 
the system are: 
1 Data Statement in FORTRAN 
rae Dynamic Dump 
oe Faster Loading of Core Image Pro- 
grams 
4. Dump Data Directly From Users Area 
a Extended Assembler Mnemonics 
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Some customer reprogramming may be re- 
quired for operation of €Xisting programs 
under Version II. 


It is important that prior to working with Ver- 
sion II, customers obtain and review the follow- 
ing SRL's for instructions: 


C26-3709-0 IBM 1130 Disk Monitor System 
Version II, System Introduction 


C26-3717-0 IBM 1130 Disk Monitor System 
Version II Programming and 
Operators Guide. 


INFORMATION ABOUT THE NEWSLETTER 


EVERY SALESMAN AND SYSTEMS ENGINEER 
SHOULD RECEIVE ONE COPY OF THE NEWS- 
LETTER. Each FE Branch Manager should 
receive five copies for distribution to Customer 
Engineers. 


The IBM Installation Newsletter is distributed 
only to IBM locations and is not available to 
customers. The Newsletter is separated into 
two parts. The first part contains information 
which is intended only for IBM personnel and 
the pages are labeled For IBM Internal Use 
Only. THESE PAGES, OR REPRODUCTIONS 
OF THEM, ARE NOT TO BE GIVEN TO 
CUSTOMERS, However, using your own good 
judgement, you may discuss pertinent informa- 
tion from these pages with a customer. The 
second part contains information which may 

be REPRODUCED by the Branch Office at their 
discretion and given to customers. These pages 
are not labeled with any restrictive classifica- 
tion. Note that when any abstracts for Type Il 
programs are given to the customer, he must 
be informed that the disclaimer for Type III 
programs as contained in the Newsletter, ap- 
plies. YOUR COOPERATION IN PROPERLY 
HANDLING THE CONTENT OF THE IBM IN- 
STALLATION NEWSLETTER IS NECESSARY 
FOR ITS CONTINUED PUBLICATION, 


Changes to the quantity of the Newsletter ship- 
ped are to be made by the Administration 
Manager. (NOTE THAT EXTRA COPIES OF 
THE NEWSLETTER ARE NOT TO BE ORDERED 
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FOR DISTRIBUTION OF INFORMATION TO 
CUSTOMERS.) He should update and send the 
DP Administration Managers! Communication 
Control card (form number N44-780) to DP 
Communication Control, DPD HQ. 


Direct inquiries concerning the contents of this 
Newsletter to: 


W. P. Gaffigan, Editor 

IBM Installation Newsletter 
Installation Planning-#713 

DPD HQ 

112 East Post Road 

White Plains, New York 10601 
Telephone 914 WH9-1900 Extension 4781 


NEW PUBLICATIONS ANNOUNCED BY PRL'S 


The weekly PRL's (Publications Release Let- 
ters) are used to insure that all Salesmen and 
Systems Engineers are aware of new or revised 
Marketing Publications. Normally, each issue 
of the Newsletter will contain information from 
two PRL's, one following the other. The in- 
formation will be placed in the Newsletter in 
its original form with no rearrangement of 
form numbers or titles. It is not intended to 
replace existing information and distribution 
sources. You should be certain that you are 
aware of these sources. 
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68ol 
6718 
6721 
6717 
6725 
6725 
6712 
6705 
6721 
6724 
6T26 
6723 
6706 
6712 
6717 
6Tl2 
6804 
6709 
6711 
6712 
6712 
6716 
6717 
6717 
6710 
6713 
6801 
6710 
6726 
6720 
6711 
6723 
6724 
6711 
6803 
6706 
67C5 
6717 
68C3 
6707 
6803 
6714 
oTll 
6713 
6712 
6725 
6713 
68C3 
6717 
6716 
680] 
6723 
€720 
6719 
6714 
6a8C0l 
6716 
6719 
6717 
6722 
6719 
ot22 
6721 
6719 
6725 
oT15 
é¢719 
6722 
6708 
671 
€725 
6714 
6725 
6705 
6711 
6801 
6722 
«718 
6707 
o80} 
6705 
€ AC? 
6726 
671? 
6710 
6724 
6718 
6714 
6713 
€721 
6726 
6720 
67h? 
6719 
6719 
6711 
6707 
6722 
6713 
6723 
6765 
6Tr5 
6720 
6804 
6803 
6724 
éT2l 
6804 
6713 
6718 
4714 
6712 
6709 
6712 
6726 
6716 
6803 
6709 
6707 
6804 


CALY &€ CS/36C FCRTRAN 
CS/36C RELEASE 14 
$/36C 3C USING THE 1620 
NWENT € $/36C 40 1401 
RCAPENT $/36C 4C 1401 
$/36€0-4C 141C€/7C10 


STCRAGE 1416/7C10 
CS/36C USE OF 2311 
CATICN 08/360 


CKANICLE TO SIMULATE 519 
CHANECLE TC SEIMLLATE 519 
CCCUMENTATICN AKO FLELC 
IMPPRCVEE FLCATIAG PCENT 
—& 1C ANC ll 08/360 
S$/32€C RELEASE IC ANE 11 
SYSTEMS 
CS/36€0 FLFLO 
ICRCFICFE FIELD 
CCS/BCS/2éC VOL CARD 
VEAT UNECALING TAPFS AT 
INSTALLATICN OF NCN-1BM 
ud CS$/360 
36C ALTCTEST FLAGNCSTIC 
C RELEASE 12 MVT SYNTAX 
1130 FURTRAN 
2€C wVT JOB STEP TIMING 
0$/360 
CS/36C SCRT/PERGE 
CCS/36G CTAF 
$/26C UTILITIES TEHMOVE 
CCS/36C ISFMS LINKAGE 
ASE 15 PLANNED I1*PRCVED 
BCL/ASSEPBLER TAPE READ 
R GRICE FCR WRITING 1/0 
CCS/3€C ISFMS CCPPILE 
2C TPS ASSEPBLER CTIFEN 
$/36C-2C TPS RPG 
ec CoBCe E USING SET L/ 
CS/2éC SCRT - FILE SIZE 
ECTICA €S/36C STCRAGE 
€/36C 2C SORT TEPING 
C-2C CiSk FILE CAPACITY 
C-2C CESK FILE CAPACITY 
$/36C 2C CISK SCRT TIME 
MPAKE CET RCLTINE USAGE 
f£OS/36C 
$/2€C USING TRE TBM 
CS/36C SCART 
CSTICS CCS/36C 
CS/26C CA-LEIAt TEST 
beCC TIME SRARTNG 
€C$/36eC CSCRT ANC TSRT 
©/3€C 2C TAPE RPG LSER 
RELEASE 11 ~ USER LABEL 
CF SAVE ANC RETURA wITH 
CCS/3éEC CSCRT ANC TSRT 
$726€C - CESK SCRT USEING 
CIN€ CCS/760 SORT 
Lecce 
CS/3EC 225C/2260 
FCRTRAK VARTABLE RECORE 
NCS/36C 
CCS/3¢éc CCBOL 
LEASE 12 CEINKAGE EFITOR 
LUTECAS FCR UNAVAILABLE 
AGE ECTTCR €44 ELUCKIENG 
ECS/36C REAC 
472€C ISAM WRITE KEY NEW 
PIC CALY 3200 
CS$/2€9 CCBCL F SORT 
CS/260 CCECtL F SuURT 
SYSTEM/3EC ISCLATION 
- 22€C ACN-CESTRUCTIVE 
LAARKEC CCBCL F STERLING 
SECCH NEW 
13C LleC SERVICEAPILITY 
TELE-PRCCESSING - 195C 
TELE-PRCCFSSIKG - 1050 
CS/36C MVT 
RELEASE 13 LCAC ANE 
$/36C RPE RLANKIAG A 
PPIAG CCOCUVENTATICA ANE 
CS$/36C 

AN CA MICROFICHE 
STERLING REANK CECIPAL 
C$/36C 
PG KEY CRKAINING ANE RAF 
FAC PACKED AND UNPACKEL 
G€ CF MATCREIAC € CCATROL 
2C CISK RPE PACKEC KEY 
ANSHER CF ALPERIC IAPUT 
LTEPLE CRAIAING TC SAME 
LE CRAINENC TC THE SAME 
$/36C-2C CISK 
$/36C-2C CISK 
CCS/326C CATA 
CCS/36C CATA 
TCA CCS/36C CATA 
TIC TAPE MASTER ACERESS 
CS/726C EXE CF VCLUME 
/3€C INCEMFE SECUFATIAL 
/OCS INCEXEC SECUENTIAL 
73€C 2C RPG SECLENCE OF 
CCS/36C CASO 
CS/36C0 SCRT - 
COS/3e€C CCOCL EXTERNAL 
C PRCGRAPPIAC CISK BRCRK 
CTECTICA CF COeECL ISFMS 
CLIAG MULTI-VOLLKE CISK 
CLPLICATE EKATRY FCR IS 
PC PACKEC KEY FIELCS IS 
ACY IN ENC EX SECUERTIAL 
ABELEC PLLTI-REEL INPUT 
C$/3€C RPG TAPLES AND 
COS/36C 
PRE-ECIT ANE PLRGE CARD 
CCS/3EC MLLTIPLE ESFMS 
Ty Tc CPEN 7 TRACK TAPE 
FIn 
CCCUNTEAG CATASET ABENC 
1C €PuLLaTOR 1/C CVERLAP 
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ELIMINATION CF PROTECT RING FOR READ 
EMPFASIS CN UPGRADING 

EMULATCR 

EMULATCR € DOS IN STACKED JCB ENVERO 
EMULATOR AND OCS IN STACKEO JOB ENVI 
EMULATOR I/C CVERLAP FIX 

EMLLATOR PRCGRAM ALTERATION FOR 100K 
ENABLE-CIESAGLE SWITCH 

ENC CF VOLUMF FILE INDICATION MODIFI 
ENC PRINTING CN PFCPES/360 20 RPG TE 
ENC PRINTING ON MFCWES/360-20 RPG TE 
ENGINEERING PROGRAPHING 
ENGINEERING CHANGE EF & FORTRAN 
ENGINEERING CHANGE LEVELS FCR RELEAS 
ENGINEERING CHANGE RECUTIREMENTS 0 
ENGINFERINC COPPUNICATICNS YSECOMO 
ENGINEERING KANCBOCK 

ENGINEERING PROGRAM INFORMATION ON M 


ENTRIES 
ECJ OCS/360 RPG PETHCO TO PRE 
ECUIPMENT 180C SYSTEM 


ERRCNEOUS USE OF NCTE/PCINT WITH ASA 
ERRCR NOSs/ 
ERRCR CAUSING SYSTEM WAIT 08/36 
ERRCR-CODE CCRRECTICN 

ERRCR CORRECTION . OS/ 
ERRCR IN SCRT SRL SHARING TAPES 
ERRCR MESSAGES 

ERRCR MESSAGES 

ERRCR MESSAGES 0 
ERRCR OCCURRENCE 


FRRCR RECOVERY PROCEDURES & RELE 
ERRCR RECOVERY ROUTINE CS/360 CO 
ERRCR RCUTINES 0$/360 USE 
ERRCRS 

ERRCRS $/360 
ESC CARE 

ESETL OS/3 


ESTIMATE ITS NECESSARY 
ESTEMATES ANC UTILITIES MANUALS CORR 
ESTIMATING PRCGRAM 


ESTIPATICN $/36 
ESTIWATICN CORRECTICN $/36 
ESTIMATCR 

EXAPPLE OS/360 MASTER CC 


EXAMPLE CF 1S LABEL CONTROL CARES 
EXECLTARY TC IMPROVE OPERATICNS 
EXECLTE PARAMETER KEYWCROS 

EXECUTING CCBKCL O wITH E LEVEL DIAGN 
EXECLTIVE PRCGRAW ICLTEPO 

EXECUTIVE SYSTEP Z1Sxn 

EXIT CLFFERENCES 

ExXtt TAPE I/C 

FXITs 0$/360 
EXTTS DOS/36C RPG USE 
EXT¥S SAVING 1401 LABELS 

EXITS TC RANDLE 14¢L TAPE LABELS 0 
EXITS TC PRCCFSS L4CO LABELS ANE PAD 
EXPANSICN PLAANING 

EXPRESS GRAPHCS 

EXTENSICN 08/360 
EXTENSIONS PLANNENG INFORMATION 
EXTERNAL FILENAME 

F44 BLCCKEAG FACTCP CS$/360 RE 
FACILITIES AND CEI & SO 
FACTCR CS$/360 RELEASE 12 LINK 
FAILURE AFTER wRITE TO SAME 226C 
FATLURE CFTECTICA OS 
FCL MAGRETIC TAPE IS AVAILAPLE FROM 
FFATLRE 


FFATURE 

FEATURE 

FEATLRE TELE-PROCESSING 
FFATURE CS/360 RELEASE 2 - P 
FEATURES 

FEATURES §/36C 1 


FFATURFS SFELECTICN 

FEATLRFES SFLFCTICN 

FETCR LACK CF SPACE APERD 

FETCR CVERFEAC RECUCTN TECKNIQUE 
FIFLT AFTER A USF 

FIELE ENGINEERING 

FIELS ENGINEERING KANDBCOK 
FEELE ERGENEERENG PROGRAM INFORMATIC 
FIELC PROGRAM CRECK 0CS/360 RPG 
FIELE SCLUTICN FCR SHARED DAS) 


PROGRA 


FRELES $/36C R 
FICLES COS/36G RPG MATCE 
FIELES $/36C 20 RPG PROCESSIN 


FIELCS IS FILES $/360 
FIFLES wOCRK AREA TC C € 20 RPG TR 
FILE $/360-20 DISK RPG MU 
FILE $/360-2C DISK RPG MULT IP 
FILF CAPACITY ESTIMATICN 

FILE CAPACITY ESTI®VATION CORRECTION 
FILE CONVERSICN TC €S/360 

FILt CCAVERSICN TO CS$/360 

FILC CCNVERSICN TO CS/360 CLARIFICAT 
Fite CESEGA 2321 AND MAGNE 
FILE INCEICATICN MCCOTFICATECN 


FILE LABELS OCs 
FICE MANAGEMENT SYSTEM Hos 
FILE PRCCESSEAG S 


FILE PRCTECTICN 
FILE SIZE ESTIMATE IS NECESSARY 
FILENAME 


FILES 00S/36 
FILES CCS/360 PR 
FILES OCS/360 HAN 
FILtS CO$7360 CCBOL 
FILES $/360 20 DISK R 
FILES BDCS/360 INCREASING EFFICIE 
FILES CCS/360 RPG PROCESSING UNL 


FILES FROW CARD REACER 
FILES SFARING SAME CASD 
FILES TECHNICUE 

FILES USEING SAME OTF 
FILES wITH LABELS DCS/3eC - ABILI 
FIVE POINT PRCGRAM CROER CHFCKLIEST 
FIX 0$/360 - JCL A 
FIX $/360-4C 1410/70 


$/360 20 


6726 
6801 
6717 
6720 
6717 
6709 
6710 
6720 
6719 
6718 
6713 
6706 
6726 
6707 
6109 
6707 
6Til 
6720 
6714 
6721 
6712 
6716 
6719 
6720 
6803 
6801 
6804 
6706 
6712 
6709 
6717 
6802 
6802 
6725 
6716 
6719 
6713 
6720 
6712 
6720 
6718 
6711 
6714 
6726 
6722 
6717 
6801 
6715 
6725 
6801 
6707 
6718 
6705 
6712 
&7?22 
6721 
o713 
6725 
6719 
6710 
6aC2 
6725 
6726 
6718 
6724 
6718 
6725 
6718 
6715 
6706 
6715 
6803 
6Til 
6710 
6712 
6723 
6711 
4711 
6720 
6801 
6718 
6706 
6711 
6720 
6719 
6708 
6723 
6722 
6723 
6724 
6723 
6803 
6801 
6711 
6714 
6721 
6801 
6725 
6717 
6719 
6711 
6T14 
6723 
6712 
6712 
6726 
6803 
6803 
6712 
6713 
E724 
6709 
6725 
6804 
6712 
6722 
6726 
6714 
671} 
6712 
6709 
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CATA CCAVERSICN UTILITY FIX 


O0S$/360 FORTRAN UNFORMATTEC 


08/360 COBCL E FIXES FOR RELEASE 10 ANO 11 
SYSTEM/36C NEW MANUAL FLOATING PCINT CHANGES 
CS/36C FCRTRAN EMPRCVED FLOATING PCINT ENGINEERING CHANGE EF 
CRTERIAG CCRRECTICA05SO FLGh CHART CCNFIGURATORES4 FORMAT/44 


PERATICA $/360 FLOWCHART %360A-SE-22X0 ~- CNE OISK O 
0CS/360 FOREGRCUND PULTIPLE WAIT TECHNIQUE 

SRL PUBLICATICNS CROER FORP NEW 

72€C DASE SELECITICN AIO FCRP ANC. S 

YPE Lf lf PRCGRAP INVALIC FCR® NUMBER 1800 T 


0$/36C SRL FORP NUPBER CCRRECTIONS 
SUPPCRT RECLIRE RECLEST FORM 1L20-1L702-O8USE OF THE PROO ANC 


CS/36C SYSCUT TAPE FCRPAT 
26C CCeCL F.LOAC PMCCULE FORMAT 


oS/ 


CS/360 SYSCUT TAPE FORMAT CORRECTICNS 
w CHART CCNFIGES/360 44 FCRMAT/44 CRCERING CORRECTICNOSO FLO 
CS/36C CTAM CISK FCRMATIANG RECUTREMENT 


S UTILITY MACRCS RECORD FCRPATTING 


PPR ANE REACER COMMENT FCR¥S 
CS/36C FCRTRAN 
CS/260 FORTRAN 
3C BCRTRAN VERSUS $/360 FORTRAN 
K CCPMCK AREA IK AL ANO FORTRAN 
MINE CS/36C RELEASE 14 FCRTRAN 
CS/360 FORTRAN 
CS/360 FORTRAN 
LE 1130 FORTRAN 
CS$/36C RELEASE 12 FORTRAN 
CS/36C RELEASE 11 FORTRAN 
FCR REAC CNLY &€ CS/360 FORTRAN 
113C FORTRAN 
CS/36C FCRIRAN 
CS/360 FORTRAN 
CCS/36C RELEASE 14 FCRIRAN 
CCS/36C RELEASE 14 FCRTRAN 
CS/360 FCRTRAN 
TRICTICA 0S/360 FORTRAN 
CS/36C RELEASE 14 FCRTRAN 
R SIZE CS/36/ FCRIRAN 
NEERING CHANGE & CS/360 FORTRAN 
RENCES CCS$/260 FCRIRAN 
REACES CCRRECTIECCS/36C FORTRAN 
36C FORTRAN IV ANC 2401 FCRIRAN 
FCRTRAN [Iv ANC L401 -FORTRAN 
LLE ACCRESS CCS$/36C FORTRAN 
CS$/36C FCRIRAN 
INTC CSECT NAPE CS/36C FCRIRAN 
CCS/36C FCRIRAN 
CS/36C FCRTRAN 
CS/36C FCRTRAN 
CS/36C FCRTRAN 
CS/360 FORTKAN 
CCS/260 FCRTRAA 
CS/3450 FCRIRAN 
CS/360 FCRTRAN 
$/36C-44 FORTRAN 
CCS/360 FCRIRAN 
LTULITY FIX CS/360 FCRIRAN 
CS/360 FCRIRAN 
$/360 FCRIRAN 
CS/36C FCRTRAN 
1130 FCRTRAN 


CE ROUTINES 


OCS/TOS MP 
PROPER USE CF APARe MRR, 


ll 

CS/36G USE OF BLAN 
APPROACH TC CHANGED CSECT NA 
CCNTRCL SECTION NAMING 
CCATROL SECTION NAMING 
OIS« I/C EPPROVEMENT TECHNIC 
E wITH BVT 
E,» G ANC H GREENWOROES 
ELIMINATION OF PROTECT RING 
ERRCR CCCE CORRECTICN 
FUACTICN TYPING 
G ACCONS 
GREENWOROS 
GREENWCRCS CHANGE 
H BLANKCOM 
H BYPASSING CALL BY NAME RES 
H NEW XREF CPTICN 
H VERSICN Il *INIMUM COMPILE 
IMPRCVEO FLCATING PCINT ENGI 
IV ANC 1401 FORTRAN IV DIFFEF 
IV ANT 1401 FORTRAN IV CIFFE 
Iv CIFFEREACES cos/ 
IV CIFFERENCES CoRRFCTIO 
IV PROGRAP CHECK IJTFIOS MOF 
POCLLE NAMING 
OP¥sS TC PUT POUND SIGN BACK 
CVERLAY CGNSIDERATICNS 
PAUSE STATEMENTS 
PLAANING INFORMATICN 
PCINTER 
PCINTER 
RE READ ANC UNSUPPCRTED CEVI 
RE-READ RCUTINE - READRE 
RE-REAC ROUTINE - RFADRE 
SUBRCLTINE - LINK 
TAPE LAREL CHECKING 
UNFCRPATTEC CATA CCAVFERSION 
V TYPE RECCROS 
V TYPE RECCROS 
VARTAPLE RECORD EXTENSICN 
VERSUS S/36C FORTRAN 


RCS/TRACK CCS/260 BASIC FCRIRAN-TECHNICUE TC PRCCESS 11 RECC 


SE¥S TESTING RECCRC NOT FCUNC INOICATCR COS/360 If 
RPG CRAINING RECORE NOT FCUAC RCUTINE BNS/ 360 
{CA 2712 FREPCTE MULTIPLEXER UNIT 1034 CPERAFT 
C CYAw - USE OF LCGGING FUNCTICK CS/36 


CCS/26C SAVFL MACRO FLACTICA FCR ESAW CPEN 
CS/36C FCRIRAN FUNCTICA TYPING 
CS/26C SPITE RCLTINE FUACTICNING CA S/36C 65 
CS/36C USING AVAILABLE FUNCTICAS FCR RJE 
CS/3EC MASTER CCPWAND GET RCLTINE 
CS/3EC MASTER CCPRMANC GET RCUTENE &SVC 34 
C$/36C MASTER CCPWMANC GET RCLTINE CLAREFICATICN 
C39/36C MASTER CCMPANC GFT ROUTINF CLARTFICATICN 
CS$/36C MASTER CCPYPANOD GET RCUTENE USAGE FXAMPLE 


RRIER TERMINALS 


GLCSSARY CE CCMPUNECATICNS COMMCN CA 


TELE PROCESSING NEW GLOSSARY PLBLISKEC 
CS/34C BTAM GPS SHARING SAME PARTITION 


$/26C 225C/226C EXPRESS GRAPHCS Cc 
CS/36C CRAPEIC PRCGRAMPING SERVICES 
CS/360 GRAPHICS 
CS/3EC BASIC GRAPHICS CCNTRCL SLCCKS 
CS$/36C RELEASE LL GRAPHICS SUPPCRT 
CS/36C BASIC GRAPHICS UNCER PFT OPTION 2 
/3EC RELEASE 14 FORTRAN GREENWCORCS Ocs 
—E LL FCRTRAN €, G AAD H GREENWCROS CS/36G RELCAS 
/3€C RELEASE 14 FCRTRAN G2EENWCROS CrANGE ncs 
T TC PSPES CISTRIGLTION GRCUPING [*PROVEMER 


TICA CF GENERATICA CATA GRCLPS 
CATA ENTRY MARKETING CUICE 
REACER CCCLMENT CESIGN GUICE 


CS/360 IMPLEMENTA 


L287 OPTICAL 


INTRCCUCTICN ECUCATION GUICE - MAJCR REVESTION $4360 


LBLICATICNS—PRCGRAPPERS GUICE AKC UTILITIES 
LELECATICNS-PRCGRAPPERS GLICE AND UTILETIES 


OS/36C NEw P 
O0$/36C NEW P 


NEW MARUAL USER S GUICE CCNTR@CL STATEMENT TECHNIQUES 
CCS/36C CPERATING GUICE CCRRECTICA 
MANAGEMENT PLAAAING GUICE FCR CATA PROCESSING STANDARDS 
TELE PRCCESSING NEW GLICE FCR CEAL UP SWITCHED LINES 
CS$/36C USER GUICE FCR WRITING [7/0 ERROR ROUTINES 
22€C CISPLAY STATION GUICELINES 


2C TPS RPG LNOCCUMEATED HALT 


$/36/- 


COS/TOS/36C RPG KALT ZERG FEAGNCSTIC SUBROUTINE 
CCS/36C FALTS OLRING CCACENSE RUNS 
CS/36C CEBLGGIN AIC F E HANOBOCK 
$/326C FIELC ENGINFERING FANCACCK C 


1B* CATA COPPUNICATIGNS FANCBCCK 
tev DATA CCPMUNICATIONS HANCBCCK UPCATE 


ISK SCRT USING EXITS TO FANCLE 
L FANOLING BKITH 7 TRACK HEACS 


TELE-PROCESSING - 
TELE-PRCCESSING 
1401 TAPE LABELS NCS/360 - O 
COS/360 TAPE LAKE 


256C MFCM LSING REAVY CLTY Carn STCCK 


$/260 SYSTEM GENERATION HINT 


00 


$/36C PRYSICAL PLANNING FUMIOITY 
RLAYS UACER S/3€0 & PL/ I-LCCAT OSA-PAIN IN PROGRAM WITH OVE 


€re $/3€C OCS 
TAPE RPG USER EXIT TAPE I/C 
TAGE CCATRCL FCR RECORD 1/0 


PL/ I-VALIOATICN CF REGISTER CCNTFENT UNO 


$/360 20 
COS/360 PL/I CARR 


$/36C 2C CCCING I/C ASSEMBLER LANGUAGE 


CURRENCE OF CONFLICTING I/C ASSIGNMENTS 


0CS/360 OC 


USER GLICE FOR WRITING I/0 ERRCR RCUTEINES 0$7360 
L130 FCRTRAN CISK I[/C [MPROVEPENT TECHNIQUE 


6717 
6712 
6726 
6726 
6721 
6715 
6705 
6723 
6721 
6719 
6717 
6601 
6717 
6720 
6719 
6721 
6720 
6706 
6707 
6705 
6709 
6Tll 
68604 
6802 
6725 
6725 
67i7 
671A 
6708 
6726 
6803 
6725 
671i 
6719 
6720 
6711 
6708 
6802 
6802 
6726 
6721 
6724 
6721 
6724 
6726 
6717 
6801 
6723 
6711 
6767 
6708 
6705 
6706 
6710 
6709 
6714 
6712 
é7i? 
6724 
6724 
6802 
oT7lt 
6712 
6717 
6801 
6717 
6712 
6725 
6725 
6705 
6722 
726 
6715 
6721 
6726 
6722 
6RC1 
6706 
6724 
6710 
6713 
6712 
6710 
6711 
6 TOR 
6719 
67108 
6720 
4706 
6707 
6722 
6T10 
6709 
6725 
67126 
6723 
6Tit 
6716 
6718 
6725 
46715 


6726 


6T0T 
6717 
6724 
6711 
o716 
6715 
6713 
6707 
6705 
6801 
6705 
éT14 
oT14 
6705 
6803 
6720 
6724 
6725 
6TLT 


CS/360 PL/1 

C-4G 1L42C/7CIC EPLLATOR 

$4360 20 CISK 

ELS CS/36C RELEASE 8 

AP RECCRC CCUNTING WITH 

CS/360 WVT BUFNC IN 

CS/3€0 CTILITIES 

0CS7360 

CRTRAN IV PRCGRAM CHECK 

C RECLCIANG SIZE CF CORE 

ANCE ANC CATA SET SPACE 

CLPS 0S/360 

A CASE OF 

AKC CS/360 

$/36C-2C MFCP EFFECT OF 

NG TRE [TBM EXECLTARY TO 

RELEASE 15 PLANNEO 

CKANGE € 0S/36C FORTRAN 

RPG IS REAC PERFORMANCE 

13 PCP CR MET 2314 SORT 

C$/360 PL/L F 

1403 AL STACKING 

CS/326C {SAM 

CS$/360 LSAGE 

C RELEASE @ PERFCRMANCE 

113C FORTRAN CISK 1/0 
CUP ENG 

CS/36C JCR SCHECLLER 

CCS/36C CCACL 

é€C PL/I F  PERFGRMANCE 

C PLELIC/PRIVATE vCLUME 

/GLISAP FCR PERFORMANCE 

wSLETTER TWO 
SLETTER 

$736C 2C 1403 

NTEAL FELES CCS/360 

CS/3EC RELEASE 12 

CS$/36C MASTER SRL 

RPE IACCRRECT CYLIACER 

CLASSTFICATICN CODE 


KWIC 
FRCLGH €7-12 KwIC 
KwIC 
67-Cé KWIC 


CCS/36C PRCGRAMPENG 
NCREASEIAG CFFICIENCY IN 
CCS/360 

YSTEWM ccs/e6cs 
$/36C-2C 

$/3€C-2C€ 

736C ENC CF VCLUME FILE 
ESTING RECCRE ACT FCUNC 
S/3EC RPG 

76C MASTER AKAD CYLIATER 
Cect TSwFS CATA CN 2321 
CPCt £SFMS CATA CA 2321 
CS/326C CRECKIO MACKC IN 
S/3E6C 2C CCMPATIFILITY 
t VELLMES CPS USE OF 
Cl FCR tFIGh VOLLMF CARC 
LAPELEC MULTE REEL TAPE 
CCS/26G RPG LOCATING 
RPG TRANSFER OF NUMERIC 
AG UNLABELEC MULTI-REFL 
LARPELEC MULTI-REEL TAPE 
PIC CREER STATUS 

E 12 C$/360 
12 CCRRECTICA €$/360 
(MPRCVEPENTS TC THE 
CCATRIULEICANS TC THE 

WC EMPRCOVEMERTS FOR THE 
becc system 

$/7€C-ZC CARC SYSTEM PO 
INC SYSTEMETEST/36C PRE 
NG ClLS$/3260 
TELEPRCCESSING TIPS CN 
2 CLISPLAVENG TAPE UNETS 
CCS/36C RPC CIVICE 
S/26C ULSTIAG TRANSLATE 


[IMPROVEMENT CF CATA SFT 
L/1 += CS/36C SCRI/MERGE 
bacc GEM 

Lacc - OFM 

CS/26C BTAM 

U1 CS$/4360 


COS$/36EC RENLCIANG SYSTre 
T/MERGE CCPFLFETICA COLE 
é€C = LSER COATROL CF PC 
S/36C PROGRAM 

CCS$/3€0 CCBOL 

$/360-26 CARE RPG 

C CTAP CRECCSING PCLLING 
TC PUT PCULAC. SIGN BACK 
14C0 TYPF Uff PROGRAM 
ASE & ICENTIFICATICN OF 
AWS CS$/36C CYNAMIC 
EC CHFFEREACE, PRIATER 
$/326C 20 CISK 

§/3€C-2C€ 

Tt CS/36C PELEASE 14 
S/3€C 20 {PS CARE 
L$/36C 

RING TRE CTF FCR CA ANC 
TY CS/360 
CCS/36C 

AVFL PACRE FUNCTICA FOR 
$/360C 2c CISk 

C$/360 

CS/360 

CCS/360 

CRRECTICN COS/3EC CCAROL 
36C PRCTECTICN CF CCBOL 
CCS/360 MULTIPLE 
0C$S/360 

ATCR CCS/360 
R CF CVERFLCh TRACKS IN 
C€C$/360 CCBOL 
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NEw TYPE ITE PRCGRAPS 6804 056 : $7360 113C L180 SERVICEAPILITY FEATURES 6723 C4 
NEW TYPE TIE PRCGRAPS 6706 40 113C-18CO PRCGRAPMING CCNSIFERATIONS 6713 14 
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NEW TYPE TET PRCGRAFS 68Cl 2CG CLICE 1287 CPTICAL REACER OOCUMENT DESIGN 6710 C2 
NEW TYPE III PRCGRAPS 6721 C&G SPb6Ct &€ CS/36C RELEASE 13 CCBCL F PERFCRPANCE AND CATA SFI ¢801 046 
NEW TYPE ILL PRCGRAWS 6705 23 L/R CEVIECS/36C RELEASE L3 CISPLAVIAG TAPE UNITS INSTEAG UF 6801 O26 
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C ROG PETFCC TC PREVENT UNLCALIAG TAPES AT EOJ 00S/36 6721 9066 N CS/36/ RELEASE 14 PLANAIAG EAFCRMATICN CLARIFICATIC 6801 C2 
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S/26C IPPRCPER CSE CF WARY CFF LINE CCPPANe O 6718 C46 C$/36C JCL CHAACE FCR 16CC PPE TAPE UNETS 6TI2 C26 
CS/36C PL/L I/C CF VARYING LENGTH STRINGS O71? 216 C$/36C LSE OF LeOC BPE TAPE LAETS 6711 C4 
2C CiSK £/C SPECIFYING VERIFY PARAMETER $/36C 679724 04 $/26C 2€ USEING THE 162C EMLLATCR 6717 C4 
{ CFECEPCIAT SCLLTIGN, VERSICN ff CS$/%60 INTER 6709 C2 CS$/36C USE OF 1627 PLCTTER 6709 63 
C$/26/ FCRIRON HH VERSICA TE PEINEPUM COMPILER SIZE 6802 C7G G ACCCLATIANG RCLTINE TC 18K JCP SCFEC “EC RELEASE 11 ACOIN G2 
CCS/36C B@TAP VERSICN 2 LEVEL 2 PCINTERS 6708 41 padcc - CEM INTERFACE COANECTORS 6708 27 
1ecC TSH CHANGES IAN VERSICA 3 6719 156 CER CS/CCS/3€0 180C - $/36C ACAPTER ANC 2827 CCU UN 6708 27 
RG0C TSX VERSICA 3 LEVEL 2 6716 Ca C&R CS/CCS/3EC 1ecc = $/360 ADAPTER ANC 1827 OCU UN 6707 1) 
CS/3EC PL/I F LEVEL VERSICN 3 C@JECT CCRE/PERFORMANCE 6719 03 Lacc - TSX @LILCING AN CFF-LINE PACK 6709 C3 
CCS/@CS/36C VCL CARC ENTRIES 6713 026 Ys 1ecc CALSES CF CREER PRCCESSING CFLA 6719 2 
4C VERSLS 25Cl FCR &IGH VCLLPE CARE {INPUT 25 6710 C2 1R8CC FFFECTS CF POWER UP ANC DOWN 6705 10 
CS$/36C ENC OF VCLUPE FILE INCICATION PODIFICATION 6719 C2G 18CC FXPANSICN PLANNING 6719 06 
CS/3EC PLBLICJPRIVATE VCLLPE IPPRCVERENTS 6705 02 L8CC PULTIPLEXER CRKANNEL IN RPC 6719 C6 
EATEFICATECA CF I[NVALIC VCLLPE LABELS CS/360 RELEASE 8 If 6707 27 ALAL L8CC NUCLEAR FATA ACQUISITICN RPG MA 6724 C9G 
ATCHK CC PARAMETERS BITH VCLLPE TYPE C$/7360 CtaRT TO » 6711 O76 180C CEP INTERFACE CONNECTCRS 671L 10 
CRAPS FCR ACCEL SCRBTCH VCLUPES GPS USE CF INITIALIZE PRO 6711 06 1ec¢ CA CRCER SYSTEMSS/360 CTAF eTli C3 
CCS/36C PRIATOLT CF THE vICC CF A 2311 OTL? 226 Lace CREER CELAYS 6o7TlO C2 
$/36C 2C TPS vi Li CEBLGGING Alc 6722) 11G 1aCcC CRCER CELAYS 6710 12 
AK ERACR CALSIAG SYSTEP BAIT C$/360 RELEASE 12 PVT SYNT 6720 C4 1B80C PCINTERS 6713 19 
CCS/3EC BASIC PULSE WAIT STATE nITHCUT CEAGNOSTIC OUTPUT 6803 C4 1ecc PCINTERS 6718 12G 
36C FCREGRCUNC PLLIZPLE WAIT TECHNICLUE OUS/ 6705 127 Lacc PCINTERS 6711 C8 
C COSIC PL/I BAIT STATE BITKCUY CIAGNCSTIC CUTPUT 0GS/36 68603 04 CASUCEFATICAS LACC PRCGRAPPING TIPPING ANC CESIGN C 6718 C7 
CS/36C CCBCE - RESERVEC nCRE CIFFERENCES OS/COS/T 6713 C5 ECL IPPERT 1800 SYSTEP INSTALLATION OF NON-IBM 6712 03 
CF ALPERIC TAPLT FIELDS WORK AREA ITC C € 20 RPG TRANSFER 6723 14G TSxe 1eCC TIME SHARIAG EXECUTIVE SYSTEM 2 6707 ll 
EPERY LAAGLAGE CCFPILER WORK AREAS €0OS/360 COBCL ANC ASS 6711 06 1800 TSX CKANGES IN VERSION 3 6719 156 
CS/3EC PROGRAPPING CISK WORK FILES C 6803 ©O8G ENTS 180C TSX CATA CHANNEL DEVICE ASSIGNM 6709 21 
3€C USER SCO STREAP ANC BCRELCAC PRCFILES O$/ 6724 C2 1aca TSX MANUAL CORRECTION 6713 Gil 


For IBM Internal Use Only 21 


March 22, 


22 


1968 


LReER 
ATER bBITr TSX 
E Tap 
ecc - $/360 ADAPTER AND 
@CC - $/36C ACAPTER ANC 
CCESSINC - CLOCKING FOR 
PRCCESSIANG CLOCKIAG FOR 
$/36éC CPL WITH 
C$/360 
$/26C CTAM LSIAG REPOTE 
LRE AFTER WRITE TC SAME 


CS/36C 225C/ 
TELE-PROCESSIAG - 
CCS/3€C BTAP LCCAL 
CCS$/36C BTAP LCCAL 

G CW LINE PCATICRING BY 
C$/7360 

CCS/36C ETAP WITH LCCAL 
C9/3EC SCRTING CA THE 
6C SCRTING CA TEE 23017 
IATCLT CF TRE vICCc CF A 
CATA ON 2321 INCICES ON 
CATA CN 2322 FACICES ON 
CER {NCICES CN SEPARATE 
CS$/36C USE OF 

RTING CA THE 23€1/2302/ 
C$/360 


C CCATRCLLEC RELEASE OF 

C RELEASE 13 PCP CR MET 
OS/36C RPG 

EwWPE TC USE UNSLUPPCRIEC 

CLRE 

S FRLE CESTIEN 


CS/3EC RESTRICTICAS FOR 
ATICN SPECIFICATICA FOR 

CCS/36C [SAP CN 
3éC CCBCL ISMFS CATA CN 
36C CC@CL ISFMS CATA CN 
LECTCR SULBCEAANELS bITH 


RECTICA 
5/75 CATA CRAINING WITH 
CCS/TCS/3EC SLPPCRY OF 
CS$/360 - 
$/36€C-44 LSE CF 
254€ VERSUS 
CCS/36C CCROL 


tcss ccs/3e0 CCBCcL 
C INPUT 

K 

E C$/360 
EVISICK 


274C CVER RUANIAG THE 
NG = 2711 ATTACFMERT TC 
ANC LINE ASSIGAPENT FGR 
LNICATICAS EC LEVELS IN 
CCS/26C ETAP 
CCS/3€C BIAM 2702/ 
TELE-PROCESSIAG - 
PERATICA 
TELE-PRECESSIAC TBM 


436C TELECCPPUNICATICNS 


E-PRCCESSING - 1C5C ANC 
FERENCES 


FEREACES 

WRITE CPERATICAS 1C5C, 
ces 274C/ 
CES 2740/ 


CPERATICNS 1C05C, 2740, 
$/26C wWITh 

CS/3€C SYSGERN OF 

36C SUPPCRT CF 24C4 ANC 


C TAPE CRIVES 
ELE-PRCCESSING - REPCTE 
TELE-PROCESSIANG - 
TELE PRCCESSING 
$/36C CPL hITH 225C ENC 


36€C RELEASE 14 wbITk THE 
CS/32EC CPERATICN kITH 
CS$/360 

SELECTCR SLECHAANELS OA 


ACT StP Cs/3éC USE OF 
TFLEPRCCESSING 

FRCP PIC CNLY 
CPPANC GET RCUTINE 25SVC 
s/ 

; S/ 
$s S/ 
RCCRAW S/ 
CRPATICN IN SECCP S/ 
S/ 

S/ 

CCRRECTICA s/ 
S/ 

S/ 

S/ 

THEE SAWE FILE s/ 
SAME FILE S/ 
s/ 

TICh S/ 
CEx S/ 
PETrYCCS Ss/ 
S/ 

S/ 

PUBLICATICA S/ 
REC CARCS S/ 
s/ 

Ss/ 


1B8CC TSK VERSICN 3 LEVEL 1 

160C TYPE III PROGRAW IAVALIO FCRM N 
180C TVPE TIT PROGRAM USING 1132 PRI 
1680C 1070 AKC 1C8O SYSTEMS ASSISTANC 


1827 CCL UNCER CS/CCS/360 1 
1827 CCU UACER CS/CCS/360 1 
201 CATA SETS TELE-PR 
201 CATA SETS CCRRECTION TELE 


225C An 2848 PETER CPERATICNS 
2250/2260 EXPRESS GRAPECS 

226C o 
226C COS/360 REAC FAIL 
226C CISPLAY STATICA GUIDELINES 

226C EXPRESS GRAPHCS 

226C ACA-CESTRUCTIVE FEATURE 

226C PCIANTERS 

226C TERPPINALS 

2260 TERMINALS TELEPRUCESSIN 
226C/CTAP CCNSICERATIONS 


22ec S$ 

23C1/23C2/2314 

2302/2314 OS/3 
2311 CCS/360 PR 
231 CCS/360 COBCL ISMFS 


2311 CCRRECTICNECCS/360 COBCL ISFRS 
2312 ORIVE CCS/360 MASTER AND CYLIN 
2311 ENABLE-CISABLE SWITCH 

2314 C$/360 SC 
2314 ACCRESSES wWETR 2 CRANNEL SwITCh 
2314 CATA CHECK PRCCECURE 


2314 SCRT CS$/36 
2314 SCRT IMPROVEMENT 0$/36 
2314 SUPPCRT 

2314-2844 CS/360 att 
‘2316 CISK PACK ALTERNATE TRACK PRCCE 


2321 ANC MAGNETIC TAPE WASTER ACERES 
2321 CE KEY PCSITICK 

2321 CATA CELL 

2321 CATA CELL CS/360 SYSTEM GENER 
2321. CATA CELL CRIVE 

2321 INCICES CAN 2311 CUS/ 
2321 INCICES CN 2311 CORRECTIONECES/ 
2321 ACT SUP CS/360 USE CF 287C SF 
2321 PRCGRAPMEING SYSTEMS SUPPORT 
2321 PRCGRAPPIAG SYSTFMS SUPPCRT COR 
2361 CCRE STCRAGE $/36C-€ 
24C4 ANC 24C4 CA SELECTCR CHANNELS 
2414 FE. CLAGNCSTICS 

2415 UNITS 

25C1 FCR HIGH VCLUME CARO INPUT 

254C STACKER SELECT FRCH REAL SICE 
254C STACKER SELECT RCUTINE OVERLAP 
254C VERSUS 25C1 FCR HIGH VCLUME CAR 
256C MFCM SCCRE CARC RESTRICTION 
256C MFCP USING FEAVY CUTY CARC STLC 
2671 PAPER TAPE REACER 

2671 PAPER TAPE REACER SUPPCRT CHANG 
270k PRINCIPLES CF CPERATICN MAJOR R 
27C2 

2702 

2702 

27C2 CIAL EXVIRCANPFEANT 
27C2/27C3 ALTCPCLE SUPPCRT 

2703 ALTCPCLL SUPPCRI 

2711 ATTACKPENT TE 2762 

2712 FREWCTE MULTIPLEXER UNIT 1034 C 
2712 REPMCTE MULTEPLEXCR RECLIREMENTS 
2712 SALES MANUAL PAGES CORRECTICN 


TELE-PRCCESSI 
OGS/36C SYSGEN 
€& TELCCOMe 


274C - 105C CCMBINATICN cs 
274C CVER RUANEIAG THE 2702 
274C TERMINALS TEL 


274C/2741 CCHPUATICATION TERMINAL CIF 
274C/2741 CCHMLANTICATICN TERMINAL CIF 
274Ce 2741 eETELE PRCCESSING CIRLCE B 
2741 COMPUNICATICN TERMINAL DEFFFREN 
2741 COPPUNRICATICN TERMINAL DIFFEREN 
2741 ,ETELE PRCCESSING CEIRLCF B WRITE 
278° TERPINALS 

2802 WCCEL 2 

28C4 ON SFLECTCR CRANNELS CUS/TOS/ 
2816 SWITCHING UNIT CCNFIGURATCR 
2816 SWITCHING UNIT WITe NON SwWITCheE 
2248 T 
2848 CONFIGURATION TIPS 

22848 CATA SET TIMING 

2848 METER CPERATICNS 

2848 PHYSICAL PLANNING - REMOTE UNIT 
2a7C CS/ 
287C ~ PLAANTIAG INFORMATION 

287C MULTIPLEXER SUPPCRT 

2687C MULTIPLEXCR CS/36C SYSGENs 
287C SELECTCR SUBCHANNELS WITH 2321 
3C3 CATA STATICN CPTIONS RECEFINEL 
32CC FCI MAGNETIC TAPE IS AVAILABLE 
340 CS/360 MASTER C 
36/-2C CPS THRCLGH-PUT RATES 

36/-20 TPS RPG LALCCUMENTEC HALT 
36C-2C CARC RPG INTERRUPT SUBRCUTINE 
36C-2C CARC SYSTFM BO ENSTALLATICN P 
360-2C CISK ANVANCEC PRCGRAPPING INF 
36C-2C CISK CCNTROL PRCGRAP POINTERS 
360-2C CISK FILE CAPACITY ESTIMATION 
36C-20 CESK FILE CAPACITY ESTIMATION 
360-2C CISK NEW PUBLICATIONS 

36C-2C TESK PCIATER 

36C-2C CISK RPG 

360-20 CESK RPG MULTIPLE CRAINING TC 
360-20 CISK RPG MULTIPLE CKAINING TC 
36C-2C CISK RPG PLANNING INFORPATICN 
36C-2C LISK SCRT CCCING SHEET CCRREC 
360-2€ CPS RPG INCCRRECT CYLINDER IN 
36C-2C INCEXEL SECLENTIAL RETRIEVAL 
36C-2C INCEKING SUBROUTINE 

360-2C ICCS FCR TRE 1419 

360-20 PAGNETIC TAPE CCNSICERATIGNS 
36C-2C MFCM EFFECT CF IMPROPERLY SCC 
36C~20 ANEW CARD RPG MANUAL 

360-2C RPG CCRE SAVING POIATERS 


6716 CA 
6719 C2 
6720 03 
6ece C2 
o7GR 27 
670? ti 
6715 C5 
6720 14 
6712 C3 
6710 ICG 
4710 Co 
6725) 256 
6715 C¢5 
6710 10G 
AML C3 
6707 40 
e7t2 IC 
6723 20 
6707? C2 
o7ll CaeG 
6713 C5 
6713 C5 
6717 226 
o8C2 166 
6803 C9G 
6710 Cc? 
6720 C2G 
6713 C5 
6721 C2 
672) C5 
6716 02 
6720 146 
6716 G2 
6802 C2 
67C6 C5 
6717 C2 
€7C6 CS§ 
6715 C4 
o705 C2 
6712) 12 
6°02 126 
6eC3 C9G 
of0S C2 
6717 12 
6719 C6 
eTle Ce 
e710 C2 
é7Th2 C3 
68Cl 1¢e 
6710 C2 
671A C9G 
6721 C46 
6T1C CE 
6802 C2 
67C5 bh 
6717 C2 
67CS Ce 
6720 246 
e717 C2 
e715 «C2 
6705 ¢9 
c?24 C4 
6712. 2 
€712 le 
6715 C2 
oTl7? Ce 
6709 C3 
6713 Ce 
o7T10 C3 
e717 C2 
671i C3 
6713 19 
6713 C2 
6718 16G 
6713 19 
6713 C2 
6718 166 
6713 Ce 
6804 c2G 
6710 C2 
6718 C9 
671% C9 
6711 C3 
6711 C3 
6717 11 
6712 C3 
6712 C3 
68C3 04 
6710 C3 
6723 C2 
6706 17 
6705 02 
6801 10 
6715 tl 
o?15 03 
6726 C7? 
6726 1 
6713 G7 
6716 06 
6713 13 
6714 G3 
6711 206 
6714 G3 
6710 2606 
6707 10 
6710 216 
6801 08 
6803 04 
6713 13 
6802 136 
6602 13 
6710 C8 
6708 46 
6714 G3 
6715 G25 
6803 C2 
6707 46 
6710 25G 


E CCRRECTICA $/ 
EAC PRIATIAC CA €& s/ 


Ter s/ 
ELESSE Ic CCeCe & CA S/ 
EcEease ic Ccece € CA SA 


SCLE RCLTINES s/ 
e Fix $/ 
s/ 


CRAP $7 
cv $/ 


RE STCRAGE $/ 

S/36C FLCeCraRT 2 
C ~ WC7C7CI4 SEPLLATCR 
EC 3C PRCGRAPS CA $/36C 
© EAVEIRCAPEAT € €736C 
JCO ENXVIRCAPENT $7360 
AG ACCCLATIAC PACEIAE 8 
ACCCLATIAG PACHINE 94C2 
LATING PACKERE 2602 403 
C VECHAICLE TO STMLLATE 
G VECONEQCLE Te STMLE ATE 


AE FLACTICAIAC CA £7360 
MFCR NEBSLETIFR ISSULFS 
KmiC IACFx FLR 

weiC IACEX FCR ISSLES 
{ILC A@LE SYSTERs 3EC 
RW ESSLES €E-CIC TRRCUGH 
ACER FOR 66-CLE TEROLGE 
C® ESSLES €6€-22 TReCUGE 
S72€6-46C 141C/ 

1CCK STCRAGE 141C/ 
S$/2€C - 

Ss320€ - 1C7C/ 

ACE €72€C-$5/ 
TELEPROCESSENG 


Issue No. 68-05 


36C-2C PPG CLTPLT STACKER SELFCTICKN 
36C-2C RPG PCINTERS 

36C-2C RPG PCERFERS 

36C-2C RPG PCENTERS 

36C-2C RPG PCIATERS CCRRECTICN 
36C-2C RPG SETE SUBROUTINE 

34C-2C RPG TAX COMPLTATICN SUBRCLIIN 
36C-20 RPG TECHNIGLE TC SIMPLLATE 519 
36C-2C RPG LNCCCUPLATEC MESSAGE 
36C-2C SCUARE RECT SUBRCLUT INE 

36C-2C TAPE TC PRIATER SPFEC 

36G-2C TPS RPC ESO CARC 

36C-2C TPS SCAT/PERCE SAL CCRRECTICN 
36C-2C TPS LTILETY TAPE REDINN 
36C-29 USING PAL witH A TWC-TAPE SYS 
36C-3C 0S/360 & 
36C-3C NS736C R 
36C-3C EC AFFECTING USER WRITTEN CON 
34C-4C 141C/7ICIC FrLLATCR I/C CVERLA 
36C-44 FCRIRAR SLARCUTERE - LIAK 
360-44 LINKAGE ECITCR - UNKECT wap 
36C-44 PRCGRAPPEARG SYSTEM 

36C-44 PRCGRAPPEING SVSTEM. SAMPLE PRC 
36C-44 OS ASSEPOLER MANLAL CISCREP AN 
36C-44 LSE CF 2415 UNITS 

36C-44 UTILITY 

36C-SC CHAAAFL CAPACITTV POINTER 
36C-65/75 CATA CHAIRING WET 2361 CC 
36CO-SE-2200 - CNet CESK OCPERATICN 
30Cl.-S1753 $736 
4c C PUL TIPRCGRAPHG RUANING S/3 
4C 16Cl EPLLATCR € CCS IN STACKED JC 


4C 14Cl EMLLATCR AAC COS IA STACKEC 
402 4C3 4C70 CowPpult 
403 4CTe CCPPLTING 
4Cle CCPPLTING ACCC 


51S EAC PRIATENG CA PECRPES/3600 20 RP 
519 FAC PRIANTIAG CN MECHES/S3I6C-2C kP 
C4CC PREGRAPREKAG RECUIREMEATS 

65 C$/360 SPIF RCLUTE 
6H-CIC TRRCUGr 67-12 wwiC INCE 
€o-Clé TERCLGH 67-184 

66-22 TeRCLGr 67-74 

67 TIME SPARIAG SYSTEm PSP S NCh AvA 


67-12 KWEiC FACEX FOR NEWSLETTE 
¢7-18@ KbIC 1 
t1-246 KwhC INCEX F 


7C1C EPLLATCR B/C CVERLAP FIX 
ITEC EPLLATCR PREGRAM ALTERATICN FUR 
ICICSICTS SEPLLATCR 360C-S1753 

7274 SIPLEATCR 36C0°7-S$1753 

75 CATA CRAIATAG with 2361 CORE STOR 
eCh ALTCPATIC CALLING UNITS 


For IBM Internal Use Only 


6709 
6713 
6708 
6710 
6714 
6708 
6716 
o713 
6862 
enil 
6711 
6713 
e716 
e713 
6716 
6713 
6709 
6403 
6709 
oT14 
o713 
oT14 
6714 
o713 
oaodl 
6714 
6710 
oTlse 
o715 
6714 
6720 
6720 
6717 
6719 
6719 
6719 
6718 
o713 
OT1h 
6705 
e713 
6719 
¢725 
6721 
5713 
6716 
e725 
4709 
6719 
eTle 
GT 
57lb 
6FC4G 


March 22, 1968 


a SS PS SSS SSS SSS 


Issue No. 68-05 


IBM INSTALLATION NEWSLETTER 


TABLE OF CONTENTS 


OS/360 System Generation Changes for 
MFT II 


OS/360 User References to System 
Control Blocks 


OS/360 Space Allocation for a BDAM 
Data Set 


OS/360 2540 Stacker Select Routine 


OS/360 - Release 13 Display Tapes- 
Not U/R Correction 


OS/DOS/360 COBOL D & E Subprogram 
Call Efficiency 


DOS/360 QTAM 2260 Line Addressing 
Feature 


DOS/360 Utilities and Job Control- 
End of Card Input 


DOS/360 COBOL ISFMS Data on 2321, Indices 
on 2311 Clarification 8 


BOS/360 RPG Console Typewriter Routine 9 


BOS/360 RPG GETDAT from Communi. 
cations Region Routine 9 


BPS/360 Cataloging User Program on 
Systems Tape 12 


S/360-20 Purging Invalidly Punched 
Cards 13 


1130-CSP-Type Routines for the 1403, 
25401, and 1442-5 13 


New Type III Programs 16 


March 22, 1968 


OS/360 SYSTEM GENERATION CHANGES FOR 
MFT Il 


To make the conversion fron MFT Ito MFT II, 
the following changes are required to the SYS- 
GEN deck: 


l. Macros involved: 


CTRLPROG- changes 
SUPRVSOR - changes 
SCHEDULR- changes 
PARTITNS - new 


2. Changes: 


a. In CTRLPROG, HITASK and LOWTASK 
must be deleted. This function has been 
taken over by the PARTITNS macro. 
There is also an additional parameter 
(SYSQUE=size), which has an optional 
default of 169@. 


b. In SUPRVSOR, WAIT=SINGLE is now 
invalid for MFT II. 


c. In SCHEDULR, TYPE=SEQUENTIAL 
must be changed to TYPE=MFT. The 
following parameters are no longer 
valid forMFT: TSYSIN, TSYSOUT 


RESJOBQ, CANCEL, VLMOUNT, TAVR. 


The DESIGN parameter for MFT II will 
only support 26K or 44K. Two new 
parameters have been added tor MFT 
Il: (WIFOBFRS and REPLY). They are 
both optional. If omitted, a value of 5 
is assumed. 


d. See the PARTITNS macro to define par- 
tition sizes. 


OS/360 USER REFERENCES TO SYSTEM CON- 


TROL BLOCKS 


The SRL publication IBM System/360 Oper- 
ating System-System Control Blocks (C28-6628) 


contains the details of many system "internal" 
formats. Users who refer to these control 
blocks in any way other than by normal system 
macro-instructions become dependent ona 
specific OS release, since the internal control 
block formats are subject to change as part of 
normal development and maintenance. Pro- 
grams which depend on specific control block 
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formats should be written and used with the 
clear understanding that such programs may 
need revision with each OS release. 


OS/360 SPACE ALLOCATION FOR A BDAM 
DATA SET 


Installation Newsletter issue 67-21 contained an 


article with the above title, on page 3. Some 
confusion exists and the following changes 
should be made to that article. 


1. The first sentence should be changed to 
read: ''When creating a multi-volume 
BDAM Data Set, Space Allocation 1s ac- 
complished by use of primary and secon- 
dary allocation". 


2. The last sentence should be changed to 
read: ''The above applies to all OS/360 
BDAM",. 


OS/360 2540 STACKER SELECT ROUTINE 


The following is a field contribution which has 
not been submitted to any formal IBM test. No 
maintenance can be expected. Potential users 
should first evaluate its usefulness in their own 
environment. 


This routine (UTAU13) is in use in a customer 
installation. It can be called by a COBOL or 
Assembly Language program to select cards 
into the appropriate stacker, including stacker 
3. The routine is shown in Exhibit 1, 
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OS/360 2540 STACKER SELECT ROUTINE ee 
STMT SGURCE STATEMENT FOLJUN67 1/25/6 
2 ROICIGI ISR SIO EOI IGG g gobi ak 2 iii Gg gokolok gai tafokoike ges ot ab oak dtokok ak ak hak aka OR RR RR tok tok CCOOCIC. 
3 ee UTAULZS MAY BE CALLED BY ANY OPERATING SYSTEM PROGRAM. et  sacaeors 
4A ERE LITTLE MOGIFICATION ANY SYSTEM 360 PROGRAM MAY USE IT. **x CCO001LG 
5 eR THIS TS EXECUTE ChANNEL PROGRAM THAT CPENS,READS,STACKER SELECTS** OCOCOLI 
6G eK AND CLOSES A CARE CATA SET. TT KAS A CONAME CF SYSIN. TWO PARAME acooola2 
Toe TERS ARE PASSEC FCR OPEN, CLOSE, AND STACKER SELECT. THREE ** QOCONL3 
Go kek PARAMETERS AVE PASSED FCR THE READ. A STATUS CODE IS ALWAYS *x* CO00013 
9 OWE RETURNED TO THE USER. . | =e COCOOL4 
10 *%ke THIS PROGRAM MAY PE CALLEC BY A CEBCL OR ALP PROGRAM. THE ** CCCO014 
Ll *#** CALLING PROGRAM SFOULE ALWAYS USE THE NAME CF UTAYULZ. — * OCOOOLS 
2 eC GSI CGR ao doo doi d ok fol dloloi tok dob riiofaiotolatdalag a iokakakkdokiottortok OCOOOLS 
13 * REG. 6 HAS FIRST PARAMETER PASSED. 09006029 
14 * REG. 7 HAS STATUS ACDRESS PASSEC AND COMPLETICN COCE PASSED 6C00030 
15 * REG. 8 HAS CARE REAC AREA ACCRESS . _ | c000040 
16 * COMP. CODE A IS SUCCESSFUL CCMPLETICN CF ANY FUNCTICN CCO0050 
17 * COMP. CCRE B IS INVALID CPEN |. bene dhe oc Oo CC00060 
18 * COMP. CODE C IS ENVALIC CPERATICN COME BEING PASSEC-NOT 14223949596 CCCOOTC 
19 * CO¥YP. CCBE © IS A READ CF UNCPENED CATA SET 0000089 
2: * COMP. COPE © IS WHEN '7F! GR '41* 1S NOT IN ECS GN READ 0000090 
21 * COP. CORE F IS WREN #01" OR #92" IS NOT STATUS IN CSW ON READ 0009100 
22 * COMP. COQSE G IS A PERM, I[-0 ERROR - RERUN JCB - READ OCOG110 
23% COMP, CONE FY are BUS Ot “ERRER - RERUN JCB —  .- READ a CCOOL20 
24 * COMP, CORE [ 1S ECUIP.GR CATA CHECK -— CHECK CARDS ANC RERUN JOB-READ 0009130 
25 * COMP. COME J IS END GF. CATA 2’ 0C00140 
26 * COMP. CODE K IS WREN "7Ft GR 141" 1S NOT IN ECB ON STACKER SELECT 0c0o0150 
27 * COMP. COPE L IS WHEN '92' IS NOT STATUS IN CSW FOR STACKER SELECT CCOCL6G 
28 * COP. COPE M IS AN ERROR THAT CANNCT HAPPEN-I HGPE-STACKER SELECT OcC00170 
29. * CORP, CONE N IS BUS-OUT ERRCR - RERUN JCB. |. -STACKER SELECT .. 000018¢ 
30 * COMP. CODE P IS INVALID CCMMAND - STACKER SELECT | CCOOLI0 
31 * Comp. CONE © IS UNSUCCESSFUL CLOSE _ _. ..... 0¢00200 
32 % a 0€00210 
33 UTAUL3S START OO. ee _.TRIS IS A BEAUTIFUL START. —€C00220: 
34 USING *,15_ 0000230: 
35) SAVE [ Cs) ee es. OCGO240: 
36+ CS CH 

Des eee Lae SAVE REGISTERS | ee ee ee ees 
38 LM 210,01) LGCAD COROL AREAS IN REG.6-10 CC00250i 
SL: ed OR, ete os voce enna. ...0600260! 
40 USING *,%5 Cc002701 
41 ST BS VV SAVE Oe brite ee ace ek eet : os , 00002801 
G2 L.A 13yMYSAVE 0000290 
43.60 CET Ob) ,C84* woo. EPEN ROUTINE, a 00003001 
44 BE QPENA | OCOO310I 
45 CLE oth ds C5) READ A CARGO. : ; - _ €C00320t 
46 Be READA 00003301 
BT cata ese uaaeen eect WED OT i Sa tas teeta NE ER IN Sa Bie fa ecette eta fathead tage LOO 9 HOt 
48 BE STACK 00003501. 
49 pb ee ce es kd _ STACKER 2... Seite eee CCO0360¢ 
50 RE STACK2 0000370{ 
Blo CET Oey O88t | STACKER BO 00003808 
52 BE STACK3 0000390{ 
53 0 CLT OG) CT6T CLOSE ROUTINE OO 6004008 
54 BE CLOSEA CLOSE ROUTINE — §6§GC00410K 
25 00 ww MVE CUT) C8et UNWALTO OPERATION CCOE on. ..., 0000420 
56 B RET tes 00004306 
ST_OPENA  _CREN. {CARDy (INPUT) ). Be. eet 00004406 

3 
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STMT | SGURCE STATEMENT - 


58+ 
oF 


6Ut - 


OPENA 


PO. 


READA 


Al. 


92 
$3 A3_ 
94 
ae ; 
96 
i | eee ee 
98 
99 AG 
100 
lol 
162 
oe 
104 
4105... 


ae 


ee 2 ae 


112 


JAl3 


1968 


Src tae aaa 
_ BAL. 


Sve 


Sve 


bo. 


One 


~ CLE 
BE 
NM oa 


BO 
| ee 


BO 
pha 


8B RET 
MVE O07) ,Ct*H® | 


VE OC7) Cth 
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OS/360 2540 STACKER SELECT ROUTINE 


1,*+8 LCA REEL ®/LIST ADCR. 
ALi(128) CPTICN PYTE 
ALS(CARL) CCR ACLRESS 

19 YSSUE OPEN SVC 


CC 


SYC 
CHECK FCR CPEN SUCCESS 


OIC ACT OPEN | 
wn LARDA48s BUOOOLUCCO 


Al 
(O07) ,C DT 


CHECK 1fO SEE IF OPEN 


-NCGT CPEN _ 


BRET 


NGVE REAC CP Cece Te CCW 
STCRE ACORESS CF IO AREA 
MOVE ACDRESS CF CARD AREA 
RESET ECB FLAG BYTE 


Le 5a ae Os nee 
8,58 

— RECCWHL (3) ,Se+) 
CCiCByxX*O00! 


_EXCP CLIOB 


‘LyCDICB LCAD PARAMETER REG 1 
2 ISSUE SVC FCR EXCP 
ECL=CCECB 
-LytDECB LOAC PARAMETER REG Lo 
0,1(9,0) CCUNT CMITTEC,1 USED 
OL LINK TO WALT RCUTINE 
CCECByX'7F! 
Oe Sn Setean, eaqesveaclate ses 
CDECB,X*41! 
Pelee 2 weet A Reece 
MVE OC?) ChES 
Bo. RET. 


LA 


WAIT 
LA 
LA 


SUCCESSFUL COMPLETION 
60eD 
ERROR 
FIND CUT PROBLEM © 
MOVE IN ERROR CODE 


TM 
BO 
TH 


O(7),CtA' 
SEN =e ge ee Ee 
O(2_98),=C'/*! 
ENC 
B RETRN 
CSeCDt3eXtOlN 
END | 
poe eR Sg OO Er cae 
BO A4 
BONN wee CCV OS ee ices 


“MOVE IN GOCE CODE 


reegea ee 


Lem AR I ne Nam tee Nm Re Re RN Te nmi a 


UNIT EXCEPTICN - ENC OF DEVICE 


JUNIT CHECK 


8B RET 


eee 
‘BC 
UM oa 


J SENSECDsX*408 
BS 

J SENSECOsX*20* 
A6 

_  ESKEDFSaXI9E* 
AT 

Pon SG coe ae 


LINTERVENTICN REQUIRED 
EUG enn cles. wha Rad ales Sheree e Stennis 


™ _....BIG PROBLEM 


MVE 


a NE gaged ets ney ey dey oe ok ee 
B RET 


oe ECTP OR DATA CHECK - RERUN. 
B RET 
PVT OCA) sC' J 


a: END OF OATA 
VVI 


SET SWITCH TC RETURN FROM SS 
STACK TRE /* CARD IN PCCKET 1 
Exhibit 1 (Continued) 


EQUSW,X*AAP 
B STACK 


FOLJUN67 


_.--MUST BE ONE OF ABOVE 2 2 


0000451 
0C0046! 
CCO04T! 
CC0048)' 
ocoesli 
Oco0n5s2t 
CCGO53! 
CC0053! 
0009054! 
cCtG955) 
CCOD56: 
ocecst 
0C0058! 


cco05s% 


0C0060: 
OCuUC6L: 
CCCC62: 
009063: 
0CQ065: 
CCO0066: 
CCOS67 

CG0068: 
0C0069 

CCO07G: 
0C0071- 


OG00T2 


000073 
CCOUT4 
CCOOTS. 
CCOUT6: 
OcoaTT. 
0co078 
ccoo079 
CCO0080 


~—9ocons1: 
000082 


CC0083 


(COOC84 


000085 


(0co288 


C00089 


_ 000090 


oc009l 
000092 
000092 


600093 
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®@ OS/360 2540 STACKER SELECT ROUTINE 


TMT SOURCE STATEMENT re _ — FOLJUN6GT)~—o1/425/68 


114 RET L 13,4YSAVE+4 MERE ROK ROK ROR RR ioe a ok ke ok ok kok ak kok a ACKER OTF009400 
LkS RETURN (14912) | oe Oo So — e€€0cg5co 
Llot LM 14,12,12(13) RESTCRE THE REGISTERS 
LLv+t : BR 14 RETURN oo ee oo 7 L 
LL@ RE THIS RCUTINE FCR STACKER SELECT 1 xe e%¢2 40% 0¢009700 
LLO STACKI MVET  8€CCWrX'23" STACKER SELECT POCKET L ©... | €¢€099800 
126 STACK NI COCR ,yX*00! cc009900 
21. — EXCP CCIOR | a re oo ocoLcooco 
122+ LA 1,9) DIC8 LOCAL PARAMETER REG 1 
123+  Ssv€ _€ ESSUE SVC FOR EXCP a BS 
124 WATT ECE=CCECR oco1o0lca 
125+ | LA yc DECS LOCAL PARAMETER REG 1. 
126+ LA C,i(Cs0) COUNT CKITIED,1L USED 
127+ SVC OL LINK TOO WATT ROUTINE - oo | Co 
128 CL! ECUSWyX PAA SEE IF TRIS IS LAST CARD /* CCO1LO1L40 
129 | RE RET | RETURN TO CALLING PROGRAM. — €C01016C 
13u TH CCECR,A'TFS SUCCESS 0C019200 
131 | BC RETRN a , oo oo. OO01030E 
132 TM COECByX'415 ERROR . CCO1040C 
133 BO R20 ~ OCO1LO50C 
134 vVI CUld stk! 0C01060C 
135 BRET. Se oo 0010706 
135 B2 TM ar CO+3 X02! UNIT CHECK-NOTHING ELSE IS VALID CCO1080¢ 
137) RO BB oo CCO109CC 
138 VVI C(7),C*L* | | oco1100¢ 
139 _ Bo RET ne CCO1110¢ 
140 B3 TM SENSECD,X' 40" INTERVENTICN REGUIRED | 0001120 
lal. BO | R4 L occ eee ee tees weet te eee te CCOLL30C 
142 TM SENSECD,X*2C! PUS-OUT CCOLL40¢ 
143, | BO... BS. ee COOL I5OC 
144 TM SENSECD,X'8C! COMMAND REJECT CC01166( 
165 = BOQ BB i  OCOLLTOL 
146 NVI CO7T),CME ERROR CCOLLBOC 
M4700 BRET. ec tenet ee nein ee CCO1190¢ 
148 B4 wT MREABY REACER' 0c01200( 
149+ CNOP  Oy% | cee ten te ete nee tebe an a una i et een ead 
155+B4 AL 1yTHBCOL2A. BRANCK ARCUND MESSAGE 
151+ = = CAL 2(TRACOL2-*) MESSAGE LENGTH 
152+ CC AL2(2). 
153+ OO CHR EACY READER® PESSAGE ee ee nen 
1554ITHEOOL2 ECU # | 
L35+IRbOOL2A CS OH cee wie te emanate teat eee te i | 
156+ SVC 35 ISSUE SVC 
157 BUC oo. FIND CUT WEICH STACKER, 0c01210: 
1568 BS” MVI Q07),CeRr® | COO1L220 
199 oo BO RET. OOO -2~ 3 OL 
166 Bé MVI O(7),C*PE INVALID CCMMAND CO01240: 
16h OR RET oo OS 0001250: 
162 eK STACKER SELECT POCKET 2 x4 # eS RRR ERA OO RR RR RK 0001255. 
l63 STACK2 ®VE  RECCW,X*63" STACKER NOQw 200 0001 26E 
164 B STACK CCO1L270 
L65 *eeeReE STACKER SELECT 3) BRR HRS voce even wrung ame wan so ave , 8001280 
166 STACK3 MVI ROCCW XT AZ STACKER NC. 3 0001290 
L167 0S 8 re cw  GQOL3ZOC 
} 168 *#e# CLOSE RCUTINE ¥#*%4 CCOL31C 
169. CLESEA | CLOSE (CARD Exhibit | (Continued) ~ fe en €0OL320 
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OS/360 2540 STACKER SELECT ROUTINE 
“OGRAM-1BM 


Se ig ci a eae eee 
ry tei 
Y7L4+CLCSEA BAL. 
172+ dC 
MLW oo on oon Se bsa gee, WOO Cit ash 


C4 

1,*#8 FRANCE ARCURO LIST. 

ALi(1l2e) CPTICN BYTE 
ALS(CARC) GER ACCRESS 

174+ 29 ~SSsue CLCSE SVC 

WS TM CARDEGB BD ECCOLCCCC' CRECK FOR CLESE- 
L176 BO C1 

Wr BO CRETRN 

178 Cl | 
179 gee 


LS O eek 


UNSUCCESSFUL CLCSE 


CARD 1CB 
Slo CS OF 
182 COICB CS OCL32 

LE3 FLAGCD CO KMS 
184 EC xFcO* 

145 SENSECD CC Ht 

186 CC 
Esha i ile eit Os 
188 cc 
189 CSeCD CC 
190 CC 
FE ated eden yee 
192 CC 
D2 a ih ene 
194 DC 
195 B 


AL=(CCECB) 
xe 
XEeege 
AGE INY sl 
ALG(RECCW) 
Xeue 

~ALSECARC) 
XL=-"oO? 
. EC ALE ot 
196 CC XL7'g* 
197 «eee CCW STRING #7" FOR READ 

1398 RUCCW CUwW XFUSN*,SBepX*CS',&9 

199 CARD CCR  OSERG=PS,MACRFH(E),TONARE=SYSIN»DEVO=RC,8BUFNC=l 
209 THBCE3 CONAME SHORT-PACCEC TCO @ CKRAR 


ECR ADNRESS | 


CCK ADDRESS 


PCB ACDRESS _ 


WK whe wl 
? rT 


aS 2s a 
2u3+* 

2044+ 
205+CARD 
206F 


BATA CONTRCL ELOCK | 


—*%-16 TC ELIMINATE UNUSFD SPACE ~ 
JF ORIGIN GN WORE BCUNDRY 
4+i6 TC ORIGIN GENERATICN | 


ACh ii re _. .READER/ZPUNCH CEVICE INTERFACE | 


BLZ*COOCCOCCOCCCOCCOC’ “ODE,STACK »CEVT 
Hee 


216+  — Be ys 
211+ cc 


213+% COMMCN ACCESS METHCD INTERFACE 


ca aan cet Vir e117 cat ea ca 
2464 2 DO ARSC) BUFCR 


FOLJUNG6T 


wu Se ve ye is alg he sh ye gt Le Sh Ye ate te ge ge aie ie ey 
MEK ME AE CI ER 3 a a a AEE aie a aie of ak ai aK aR ht oie ke ok 


217+ 


AS 2 se ee 


219+ 


2214* 


223+ 
224+ 


A en ne ie ar RR ee ee ee em ae eR ce a: 


a 
_. BO 


AtLce(0) BUFL 
Ble  Olocogccocecccac! CSORG 
A(1) TOe8ADd 


~ FOUNCATION EXTENSICN 


~ BLI'COCCCCOG’ BFTEK,BFALN | 
JALSEL) EQOCAD 
Exhibit 1 (Continued) 


Issue No. 68-05 


1/25/68 


CCU1330C 
06013400 
6601350C 
COO1L36CC 
CCOL370C 
0CO1L500C 
0601510 
CCO1520¢ 
CC01530C 
C501540¢ 
OCOL55C¢ 
Cc0156aC 
0c01570¢ 
Coc1589¢ 
00015906 
CO01L600C 
0601510¢ 
CCO1620( 
C0016 306 
0C61640¢ 
00916506 
CCO1L660 
OGG1LETO 
00C 16801 
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OS/360 2540 STACKER SELECT ROUTINE 


FOLJUN67 1/25/6 
225+ CC BLIi€cooacocca' RECEM 
Ae i, ee ER 3) ORES es) ONE > 6S a re a 
COG RK ee eevee en e Ff GCUNCATLION. BLOCK. 
230+ BE CLAISYSING CONAME 2 
231+ CC QBLi€ccaccoic’ CFLGS 
232+ ww. . OC... BLi'goecocos®' LFLG. 
233+ _ ec BLEtLLolecococccccesl’ acer 
234 *8** CARD ECB 0 LU AAR RR Ok 2 ob doko da otokbyok tka Radome OCGL7CC 
235 CDBECB DC Feo CCO171C 
LO MY SAVE. 1 MG 198 ne ook te dene ash 0001720 
237 S8 CC Frege CCO173C 
238 ECJSW CC  ‘€MKICOf END CF... JCB. SWITCH CCCLT46 
239 LTCRG CCO8888 
C4 te ce ECTS R 
241 | ENO 0c09g399 


Exhibit 1 (Continued) 


OS/360 - RELEASE 13 DISPLAY TAPES - NOT 


U/R_ CORRECTION 


The following has been supplied by the author 
as a correction to the article ''OS/360 Release 
13-Displaying Tape Units Instead of U/R De- 
vices'' which appeared on page 2 of Installation 
Newsletter issue 68-01. 


APAR P12993 affects the use of this modifi- 
cation. SUPERZAP to fix this apar in SYSLIB 
(DSNAME is SYS1.LINKLIB) follows: 


HAME LEFCNTRL XTTPOO 
VERIFY OOFC 95447709 
REP OOFC 95467709 
VERIFY O19E 95447709 
REP O19E 954E7709 
VERTFY O1CSE 95447709 
REP O1CE 95467709 
VERIFY 0224 92447709 
REP 0224 924F7709 


OS/DOS/360 COBOL D & E SUBPROGRAM 
CALL EFFICIENCY 


The following is a contribution from an IBM 
Field Systems Center. It has not been sub- 
mitted to any formal IBM test. Potential users 
should first evaluate its usefulness in their own 
environment. 


In order to speed up COBOL program execution 
and reduce core requirements, a calltoa 
subprogram should attempt to minimize the 
number of parameters passed. This may be 
accomplished by passing just one dummy "OL"! 
level parameter with the true arguments spec- 
ified as sub-levels. 


NOTE: CARE MUST BE EXERCISED IN ASSUR- 
ING THAT THE PARAMETERS ARE 
CONTIGUOUS AND THAT THEY ARE 
DEFINED IDENTICALLY IN BOTH THE 
CALLED AND CALLING SUBPROGRAMS 
SO AS TO TAKE INTO ACCOUNT 
ALIGNMENT, SLACK BYTES, ETC. 
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1. A Method 


Calling Program Called Program 


Working-Storage Section Linkage Section 
02 A Picture X 02 C Picutre X 
O2 B Picture X 02 D Picture X 


Procedure Divison 
Enter Linkage 
Entry 'SUB' 

using C, D 
Enter COBOL 


Procedure Divison 
Enter Linkage 
Call 'SUB' using 

A, B 
Enter COBOL 


2. Better Method 


Calling Program Called Program 
Working-Storage Section 
01 OVALLI 
O02 A Picture X 
O02 B Picture X 


Linkage Section 
01 OVALL2 
02 C Picture X 
02 D Picture X 


Procedure Divison 
Enter Linkage 
Entry 'SUB' 

using OVALL2 
Enter COBOL 


Procedure Divison 
Enter Linkage 
Call 'SUB' using 

OVALLI 
Enter COBOL 


DOS/360 QTAM 2260 LINE ADDRESSING FEA- 
TURE 


If the Line Addressing Feature of the 2260 
(remote) is used, it is necessary that the first 
byte is the user generated output message in 

a STX (Start of Text) character. The user must 
place this STX byte in the Message. 


The second byte must be the line addressing 
byte. 


Without the line addressing, the first byte of 


the user generated message should be a text 
byte. 


The I/O module for a normal write to the 2260 
inserts the needed STX byte; for a write to the 
2260 with line addressing the needed STX byte 
is not inserted. 
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DOS/360 UTILITIES AND JOB CONTROL-END _ 
OF CARD INPUT © 
One feature of the DOS utility programs is fre- 

quently overlooked. The utility programs rec- 

ognize /* as the end of a card input file only 

+f the rest of the card is blank. This ability 

+s essential to build job input streams on tape 

or disk. Placement of comments (positions 

4-80) in all /* statements as standard practice 

would permit loading of an input stream to tape 

or disk without modification of the /* state- 

ments. The following cards could be used to 

build a SYSIN tape: 


// JOB BUILD SYSIN ON TAPE 
// ASSGN SYS004,x'00C! 
// ASSGN SYS005,x'180! 
/{ UPSI 1010 
/f EXEC CDTP 
// UCT TC,FF,A=(80,80),B=(80,80),OR 
// END 
// JOB JOBI 
Remainder of JOBI 
/* SOME PUNCH 
/& SOME PUNCH 
// JOB JOB2 
Remainder of JOB2 
/* SOME PUNCH 
/& SOME PUNCH 


The /* without any punch in positions 3-80 sig- 
nals the end of card data for the utility pro- 


gram. The /& performs the usual end-of-job 
functions. 


DOS/360 COBOL ISFMS DATA ON 2321, 
INDICES ON 2311 CLARIFICATION 


An article on the above subject was published 
in Newsletter 68-02, page 10. Because of a 
inisinterpretation, a "correction' to the article 
was published in Newsletter 68-03, page 9. 

The following is a clarification supplied by the 
author. 


In issue 68-03, page 9, the paragraph that 
reads: 
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2.3 In Exhibit 2, A and B should be de- 
fined explicitly as datanames. 
Additionaly, an Ais X'Cl', not 
X'O1' and B is X'C2', not 'X02'."' 


should be deleted. 


In the origina] article in Installation Newsletter 
68-02, Exhibit 2, page 12, the non-numeric 
literal 'A' located in the COBOL sentences, 


MOVE 'A' to Byte (22). 
MOVE 'A' to Byte (201). 


is a X'01' or a binary 0000 0001. 


The character 'A' that was printedis the char- 
acter the 2203 printer with a 52 character set 

print bar interpreted from the punch card code 
of a 12, 9, 1 punch. 


The non-numeric literal 'B' located in the CO- 
BOL sentence, 


MOVE 'B' to Byte (66). 
is a X'02' or a binary 0000 0010. 


The character 'B' that was printed is the char- 
acter the 2203 printer with a 52 character set 
print bar interpreted from the punch card code 
ofa 12, 9, 2 punch. 


BOS/360 RPG CONSOLE TYPEWRITER ROU- 
TINE | 


The following is a field contribution which has 
not been submitted to any formal IBM test. 
Potential users should first evaluate its use- 
fulness in their own environment. 


The BOS-RPG Specifications Manual indicates 


no support for the Console Typewriter. 


The program (Exhibit 1) was written in RPG 
under BOS and it works. 
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BOS/360 RPG GETDAT FROM COMMUNICA- _ 
TIONS REGION ROUTINE 


The following is a field contribution which has 
not been submitted to any formal IBM test. 
Potential users should first evaluate its usefu]- 
ness in their own environment. 


Using BOS-RPG, a user wanted to retrieve the 
date from the Communications Region rather 
than have to define a card file just to read a 
date card. 


An Assembler routine was written, assembled 
(Exhibit 2), and cataloged in the relocatable 
library under the name GETDAT. It is exited 
to once at Calculation time as shown on the RPG 


specification sheet (Exhibit 1). 


The routine was assembled under BOS/360 
Assembler Version 1, Modification 10. 


OT 


BOS/360 RPG CONSOLE TYPEWRITER ROUTINE 


IBM 


IBM System/360 Assembler Coding Form 


pow atl Prag tary te Me BOS-RP rANCHING ae ee ee ee ee 


PROGRAMMER 


Operation 


x4 i 
THIts 


Operand 
2). 


ST EnSRaEanGUECR 
ed PT ida on 
Haus po yp pe 


Oo | 
on 


STATEMENT 


Comments 


Ses ublaiseareadinaiiaiece sos 


0 
BEBE! Pleizinitielisiyisijeal || || | | | +H HH 
ttt tele rrr letiegevsiis TEE TP 
Scare at EEE 


Dlama | |i tit ty 


SEEOLAAEULAEDAIGEALEAULIELE 
screitty 


t 


OF 


Identification- 
Sequence 


7 H ' 
i i \ 
} H 


896T “22 yoreyy 


INSTRUCTIONS aes ELECTRO N 


019, | 


Control Level (t 


LR) 


BOS/360 RPG GETD 


AT FROM COMMUNICATIONS REGION ROUTINE 


INTERNATIONAL BUSINESS MACHINES CORPORATION 
REPORT PROGRAM GENERATOR CALCULATION SPECIFICATIONS 
IBM System/360 


cm TT T1111 
Punch 


eee ~~ 


Factor 1 Operation | Factor 2 


75 75 77 7879 80 


Identification 


Comments 


nk oe Seen eG DERN P ARR SO RSE EREEE 


GO-89 “ON, OnSss] 


‘@? YoLeW 


896T 
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BOS/360 RPG GETDAT FROM COMMUNICATIONS REGION ROUTINE 


LOCATN OBJECT CODE ADDR1 ADDR? STMNT 
0001 GETDAT 
0002 GETDAT 
COOCOD O5FO 0003 RALR 
CO0002 0004 
COO0O2 9012 FO2ZE 00030 0005 
0006 
OO007** CHANGE 
COO0006 4810 0014 00014 0008* 
OOOO0A 5820 F026 00028 0009 
COOCOE D201 2000 1000 900090 90000 0010 
000014 D201 2003 1002 00003 90002 OO11 
OOOOLA D201 2006 1004 00006 00004 0012 
000020 9812 FO2ZE 00030 0013 
000024 OT7FE 0014 
0015 
000C28 00000000 0016 ADATE 
000030 O0CoocGocoon0gn00000 0017 D 
coo0000 0018 


Exhibit 2 


BPS/360 CATALOGING USER PROGRAMS ON 
SYSTEMS TAPE 


The following is a field contribution which has 
not been submitted to any formal IBM test. 


SOURCE STATEMENT 


AFILE 
START 


// ASSGN SYSOOI1 
// EXEC 
CATAL 


// 


360B AS 309 VIMA 


LIBRARY,RETAIN 


15,0 
*,15 
1,2,D 


10 

1,20 

27 ADATE 
0(2,2),011) 
3(292) 92711) 
6(292)941) 
Le2ef 

14 

DATE 

A( DATE) 
Otc? 

RALR 


in effect are to be 
made, 


PHASE NAME, A X'aaaa" NAME is 1-6 


character name 


Potential users should first evaluate its useful- 
ness in their own environment. 


BPS/360 users may want to take advantage of 
the stacked job capabilities of an operating sys- 
tem and eliminate the loading of programs via 
cards. A solution is to catalog problem pro- 
grams on the BPS systems tape. This offers 
two advantages over storing programs on sep- 
arate loadable tapes. First of all, fewer pro- 
gram tapes need be kept in the library. 
Second, problem programs to be executed and 
source programs to be compiled ¢an be inter- 
mixed without having to change program tapes. 


To catalog the user's object programs on the 
BPS sytems tape: 


1. Insert the following cards in the reader: 
// JOB SYSCMA 
// DATE 
// ASSGN SYSRDR 
// ASSGN SYSIPT only device assign- 


ASSGN SYSOOO- ments not currently 


12 


USER of program to 
PROBLEM be cataloged; 
% PROGRAM(s) 'aaaa' is hex- 
a adecimal start-~- 
ENTRY ing location of 
// END 


program. 


Any number of programs can be cataloged at 
one time by placing them (with their associated 
CATAL, PHASE and ENTRY cards) between 
the EXEC and END cards, but they must be in 
alphabetical order by program name. 


Lis Mount the BPS systems tape on a drive 
other than that used by SYS000 and SYSO001. 


= Ready the card reader and perform an IPL 
from the drive with the systems tape. 


panded systems tape. 


At end-of-job, SYS00O0 contains the ex- 
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To execute programs from this tape: 


1. 


Insert the job control cards for each pro- 
gram in the card reader and ready it. 
Job name is the same as that used to 
identify the program on the phase card. 


Mount the program tape on a drive and 
perform an IPL from it. 


Job-to job transition is automatic and 
continuous. To obtain a halt between 
jobs, place a // PAUSE card before the 
next JOB card. This places the system 
in the WAIT state, enabling the operator 
to mount new tapes, change paper, etc. 
To call in the next program, press ''55'"! 
on the 1052 and the interrupt key on the 
console. 


S/360-20 PURGING INVALIDLY PUNCHED 


CARDS 


The following is a field contribution which has 
not been submitted to any formal IBM test. 
Users should first evaluate its usefulness in 
their own environment. 


Exhibit 1 represents the flow chart and machine 
language coding to produce a one-card program 
for the S/360 Model 20 which will purge any 
file of cards containing invalid punches. It 
requires an MFCM, and will stacker select into 
pocket 3 all cards which contain any invalid 
punches. It is extremely helpful with files con- 
taining ''under-punching' such as those from a 
Unit-Record account. 
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1130 CSP-TYPE ROUTINES FOR THE 1403, 


The overlapped I/O routines of the Commercial 
Subroutine Package are being used by many 
1130 installations. Conversion to the 1403, 
2501 and/or 1442-5 may present problems in 
this area since CSP routines for these devices 
are not available. 


Exhibit 1 shows three subroutines (P1403, 
R2501 and P1442) which may be used in place 
of PRINT, READ and PUNCH, respectively. 
Basically, the routines are slightly modified 
versions of the CSP routines. 


P1403/S1403 will operate in the same way as 
PRINT /SKIP, except, of course, that the 1403 
will be used instead of the 1132. To avoid 
changing source programs, the user May wish 
to call the subroutine PRINT/SKIP; in this case, 
substitute PRINT for P1403 and SKIP for $1403 
everywhere these names appear in the Assem- 
bler listing. Carriage control, channel skip, 
and error codes will remain the same as they 
were for the 1132. 


R2501 will operate the same as READ. As 
mentioned above, the name of the routine may 
be changed from R2501 to READ-everywhere 
R2501 appears, change it to READ. 


P1442 will punch on the 1442-5. 
made above also apply to this routine. 


The comments 


If these routines are to be used with Version 
1 of the Monitor, several Version 2  Sub- 
routine Library routines must be loaded onto 
the Version 1 disk: 


P1403/81403 uses ZIPCO, EBPT3, PRNT3 


R2Z501 uses READI 


P1442 uses PNCHI1 


All use the ARGS subroutine of CSP (whose entry 
points are ARGS, RPACK and SWING). 
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DO 
47 
47 
79 
47 
9A 
9A 
9A 
47 
9B 
47 
99 
47 


Exhibit 1 


Ze 
80 
40 
00 
FO 
20 
21 

25 
FO 
20 

FO 
00 
FO 


O02 
00 
00 
O02 
00 
00 
00 
00 
00 
00 
00 
02 
00 


00 
B2 
9C 
00 
9C 
Bz 
C2 
CA 
9C 
03 
9C 
01 
9C 
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1130 CSP-TY PE ROUTINES FOR THE 1403, 2501, AND 1442-5 


ENT P1442 ENT P1403 “NT R2501 
JCARD DC emit ENT $1493 JCARD DC tod 
AREA BSS al ONE DC 1 AREA BSS 81 
FLAG ODOC Hot SPACE DC 42000 FLAG DC tm 
P1442 DC Homk JCARD DC Lalial R2501 0 %—% 
STX 1 SAVE161 JLAST DC Hae STX 1 SAVE161 
LOX I1 P1442 AREA BSS 61 LOX I1 R2501 
LIBF ARGS P1403 DC met LIBF ARGS 
DC JCARD STX 1 SAVE161 DC JCARD 
DC JLAS2 LDX I1 P1403 C JLAS1 
DC AREA LIBF ARGS pc AREA 
Oc 8C DC JITCARD DC 80 
LD AREA DC JLAST LD AREA 
STO CNT2 DC AREA STO CNT1l 
LD 1 3 DC 120 LD 1 3 
STO ERR] LD AREA STO ERRE1L 
SRA 16 A ONE SRA 16 
STO FLAG SRA 1 STO FLAG 
LIBF SWING STO AREA MDX 14 
DC JCARD SLA 1 STX 1 DONEG1 
DC JLAS2 STO CNT LD ONE 
LISF SPEED LD 1 3 LOX L1 80 
OC /0011 STO ERRE] MO STO L1 AREA 
JLAS2Z DC Hm % LIRF RPACK MO X 1-1 
OC AREAG1 DC JCARD MDX MO 
CNT2 OC Hm t DC JLAST LIBF READ I 
LIBF PNCH1 DC AREAG&1 DC 7ECOO 
DC 42000 LIBF ZIPCO DC AREA 
DC AREA DC /0000 DC ERROR 
OC ERROR DC AREA+1 CUNVT LIRF SPEED 
LIF SWING DC AREA+1 DC /0910 
DC JCARD CNT ove eal DC AREAG] 
XC JLAS2 CALL ERPT 3 JLAS1 DC hon 
TEST LIBF PNCH1 TEST LIBF PRNT3 CNTl Dc am ¥ 
DC /0900 DC 40000 Lo FLAG 
MDX TEST MDX TEST RSC . FINALsé= 
MDX 1 4 LIBF PRNT3 SRA 16 
STX 1 DONE+1 WRITE DC 72000 STO FLAG 
SAVE] LDX Ll *=* DC AREA viD X CONVT 
DUNE BSC LL #=* DC ERROR FINAL LIBF SWING 
ERROR DC Honk LO SPACE DC JCARD 
Eigse STO LL #=% STO WRITE OC JLASL 
MDX L FLAGs1 | MDX 1 4 TEST LIAF READI 
BSC I ERROR STX 1 DONELE1 DC PIES 
END SAVE1 LDX LI] *=-* MIX TEST 
DONE1 BSC LL *=* SAVE] LDX Ll *=—* 
ERROR DBC Hm Ht DUNE 8SC LL *—# 
ERR $T L =a * ERROR DC tome 
SRA 16 ERR STO L #=* 
BSC I ERROR MOX L FLAG] 
$1403 DC tm % BSC [ ERROR 
LD I $1403 ONE DC l 
STO ARG&1 END 


ARG LD —— 
BSC LL NOSUP»=Z 


LD NOSPC 
STO WRITE 
MDX DONE 
NOSUF STO CNTRL 
LIBF PRNT3 
CNTRL DC 43000 


DONE MDX LL $140391 
BSC I $1403 
NOSPC DC {2010 
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NEW TYPE UI PROGRAMS * 


The following are the abstracts of programs which have been recently made available frorr 


the Type III library. 


The program, along with its complete abstract, will be incorporated in subsequent issues 


of the Catalog of Programs. 


Programs may be obtained by submitting a properly completed ''General Program Request 
Card" (Form Number 120-1145-1) to the Program Information Department, 40 Saw Mill River 


Road, Hawthorne, New York, 10532. 


These programs and their related documentation are distributed by IBM in the author's 
original form and have not been subjected to any formal testing. 

Any discussion of Type III Programs must emphasize the following points: 

1, Type Il programs are not part of the IBM product line. This is a Type Iil 


program. 


2. Type Ill programs have not been subjected to any formal product test. 
3. Recipients of Type III programs are expected to make the final evaluation as 
to the usefulness of the programs in their own environment. 


4, There is no committed maintenance for Type III programs. 


However, any 


changes the author chooses to make will be announced in subsequent issues 


of the Catalog of Programs. 


* NOTE: THE CUSTOMER MUST BE INFORMED THAT THE ABOVE APPLIES TO 
ANY OF THE FOLLOWING TYPE II ABSTRACTS FURNISHED TO HIM. 


OSDEBE - S/360 OS CARD/PRINTER/ TAPE 
MULTIPLE UTILITY PROGRAM. This Sys - 
tem/360 program is an adaptation of the orig - 
inal BPS DEBE utilities program to operate 
under the Operating System. It requires an 
online card reader/punch and a SYSOUT wri- 
ter. This program performs all of the func- 
tions provided by the BPS DEBE without the 
necessity of OS Data Definition (DD) statements 
for the devices utilized. Only one DD card 

for the SYSOUT writer is required. 
program written in Assembler. 


Source 


Ordering Procedure: Order File Number 


360D-00. 1.015. 


The program material can be obtained in 
card form or on one 9 track or 7 track (Data 
Conversion feature required) Distribution 
Tape Reel (DTR). 


The requester must indicate whether a 9 track 
or 7 track DTR is required. If not specified, 
a 9 track DTR will be provided. 
No tape submittal is required. The DTR will 
be provided by the Library. 
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GENERALIZED OS/360 ASSEMBLER LANGU- 
AGE INPUT/OUTPUT SUBPROGRAM FOR USE 
WITH ASSEMBLER LANGUAGE AND/OR PL/I 
PROGRAMS. An OS/360 Assembler Language 
Input/Output Sub-program capable of perform - 
ing many commonly required I/O operations 
on sequential, Index-sequential and partition - 
ed data sets. The I/O package supports user 
modules written in Assembler Language, PL/I 
or a Bi-Lingual environment where both BAL 
and PL/I user modules are present. Any Num- 
ber of data sets can be managed ina single 
execution. User programs invoke the I/O Sub- 
system by means of call statements and para - 
meter lists. I/O Base Modules are combined 
with user programs through Linkage Editor 
processing. Advantages and features of the 
I/O package are summarized as follows: 

1. Simplifies and standardizes I/O program- 
ming for the application programmer. 

2. Provides a cornmon interface between all 
user programs and the user data base. 

3. Provides error editing and error report- 
4. Provides an ISAM Journal 
Performs utili- 


ing facilities. 
and unprocess capability. 5. 
ty functions such as record count accumula - 
tion and display, DCB Format Dumps, DSCB 
Format Dumps, CVT Format Dumps. 


_ ce SSS SS SSS 
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Ordering Procedure: Order File Number 
360D-04. 3. 003. 


The program material can be obtained on one 
9 track or 7 track (Data Conversion feature 
requied) Distribution Tape Reel (DTR). 


The requester must indicate whether a 9 track 
or 7 track DTR is required. The DTR will be 
provided by the Library. 


S/360 HIGH-WATER-MARK. This is a pro- 
gram designed to determine the largest size 
of a problem program running under the Op- 
erating System with or without Option 2. It 
becomes part of the control program nucleus 
in the form of a Type ISVC. Its function is 
to intercept each GETMAIN request, calcu- 
late the size of the partition, problem program, 
and largest free area; and when the problem 
program is at its largest, store the informa- 
tion in the nucleus. A service routine, such 
as the accounting routine, must be invoked 
in order to print the information. It will be 
approximately seven hundred bytes in size. 


Ordering Procedure: Order File Number 
360D-04. 4. 006. 


The program material can be obtained in card 
form or on one 9 track or 7 track (Data Con- 
version feature required) Distribution Tape 
Reel (DTR). 


The requester must indicate whether a 9 track 
or 7 track (Data Conversion feature required) 
Distribution Tape Reel (DTR). 


The requester must indicate whether a 9 track 
or 7 track DTR is required. If not specified, 
a 9 track DTR will be provided. 


No tape submittal is required. The DTR will 
be provided by the Library. 


S/360 BASIC AUTODIN ACCESS METHOD. 
This access method provides the AUTODIN 
user with macros and associated supervisor 
functions necessary to interface his message 
control and processing programs with the 
AUTODIN System. The program is used with 
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DOS/360 and is written in BAL. A simulator 
module is provided to allow user testing prior 
to installation of the 2701 AUTODIN Adapter 
hardware. 


Ordering Procedure: Order File Number 


360D-06. 3. 003. 


The program material can be obtained on one 
9 track or 7 track (Data Conversion feature 
required) Distribution Tape Reel (DTR). 


The requester must indicate whether a 9 track 
or 7 track DTR is required. If not specified, 
a 9 track DTR will be provided. 


No tape submittal is required. The DTR will 
be provided by the Library. 


BASIC AUTOMATIC NUMBERING TESTING 
AND MAINTENANCE (BANTAM). The BAN- 
TAM Update Program is a utility written in 
Assembler language to operate under DOS/ TOS 
Supervisors. The utility will maintain source 
libraries on disk (DOS only) or tape with fac- 
ilities to: 


1) add, delete, number and name mem- 
bers. 

2) add, delete, and change source state- 
ments. 

3) create input to compilers. 

4) generate job control statements to 


create input files for a catalog. 


Use of BANTAM options ina testing environ- 
ment enables the user to establish an effective 
testing procedure, eliminating inefficient source 
and object deck handling. BANTAM interfaces 
with DOS/TOS library and compiler facilities 

to give the user maximum system utilization. 


Use of this program ina testing environment 
will offer the user: 


1) an ordered file of his "in-test'' and 
production programs. 

2) the elimination Of unnecessary source 
and object deck manipulation. 

3) documentation of all changes made to 


his programs. 
4) the ability to keep job control state- 
ments for compilation, linkage ed- 
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iting and execution of a program in 
a private library with the source 
statements. 

5) The facility to compile, linkage edit 
and execute or to compile and cata - 
log without card handling. 


SYSTEM CONFIGURATION 


The BANTAM Update Program requires the 
basic machine requirements outlined in the 
System Control and System Service Programs 
manual for DOS and TOS respectively. 


In addition, to operate BANTAM ina TOS 
environment, the following requirements 
must be met: 


32K bytes of main storage 
three tapes for BANTAM Update Phase 


five tapes for operating in the BANTAM 


Test Environment. 


To operate BANTAM ina DOS environment, 
the following basic requirement must be met: 


32K bytes of main storage 


Ordering Procedure: Order File Number 
360D-06. 7. 008. 


To obtain program material, submit one 2400 
foot reel of magnetic tape. Specify whether 7 
or 9 track recording is required. If not spec- 


ified, 9 track recording will be used. 


The required tape may be ordered from IBM 


or supplied with your request for the program. 


MANUFACTURING RECORDS PROCESSOR 
FOR IBM OPERATING SYSTEM/360. Man- 
ufacturing Records Processor can speed up 
and help optimize Production and Inventory 
Planning in many manufacturing and service 
organizations. It does this by creating and 
reading up to four different files on DASD. 
These files are Parts Master, Product Struc- 
ture, Operations Routing, and Workcenter 
Master; they are arranged so that any change 
need be made to only one file, thus obviating 
the possibility of unwanted different change 
levels existing at one time. Full flexibility 
is available by allowing for code, easily- 
written by the user, to be incorporated. This 
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could permit several engineering change 

levels or alternate production facilities to exist 
at one time for any part or assembly. Man- 
ufacturing Records Processor is a set of gen- 
eralized programs and macros which enables 
the user to design, build, and execute his 

own programs under IBM/360 OS. 


The Manufacturing Records Processor is an 
adaptation of the Bill of Material Processor 
Version II operating under BOS/DOS (360A- 
ME -06X), 


M/C Configuration 
System/360 Model 30 and up with Decimal 
Arithmetic. 


65K or 128K core storage depending on 
features used. 


Minimum one disk drive in addition to 
one or two required for resident OS: 
Printer, Card Read/Punch. 


Operating System Requirements 


The Manufacturing Records Processor Pro- 
gram is designed to operate under any ver- 
sion of Operating System/360 with some 
special requirements which are discussed in 
the following sections. 


Required OS Features 


The OS configuration required for use of the 
MRP package is any OS system with the ad- 
ditional requirements: 1) the index se- 
quential access method must be included at 
SYSGEN time because of the method of organ- 
ization used for the master files, and 2) CO- 
BOL must be available if the user wishes to 
use it for his retrieval programs or if he runs 


the entire sample problem. 


Ordering Procedure: Order File Number 
360D-23. 3.005. 


The program material can be obtained on one 
9 track magnetic tape. Submit one reel of 
magnetic tape. The required tape may be 
ordered from IBM or supplied with your re- 
quest for the program. 
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1130 PRINTER CONTROL PROGRAM FOR THE 
1132 FOR OPERATION UNDER THE 1130 DISK 
MONITOR. The purpose of the Printer Con- 
trol Package (PCP) is more efficient usage of 
the 1132 Printer. It is a two part package of 
assembler written programs and can provide 

a maximum increase of 67 percent in print 
speed. 


The first part of the package is a modification 
of the IBM Type I PRNTI Printer Control Pro- 
gram. The modifications include a scan rou- 
tine which ends the print operation after the 
last character is printed. An alpha only list 
will aproach 110 lines per minute. 


The second part of the package represents a 
complete set of inter-related control programs. 
It offers the improvements of the modified 
PRNT1 in addition to a system of buffer and 
queue management. The routines are FOR - 
TRAN callable and are used in place of PRINT, 
SKIP, WRTS, WRTD and SKSP. 

Ordering Procedure: Order File Number 
1130-03. 4. 005. 


Distribution will be in card form only. 


1130 PACIN- PROGRAM FOR THE ANALYSIS OF 
CAPITAL INVESTMENT, This program is an 
adaptation of ''Capital Investment Program 
#1620-CS-01X"' to the IBM 1130 computer. It 
is designed to accept various input parameters 
and data, and from this compute tables of de- 
preciation and salvage values, earnings and 
interest payments. From these tables a stream 
of cash flow is generated and this in turn is 
used to compute a table of rates of return. It 
is written for an 8K 1130 system with an 1132 
printer. The language is FORTRAN. 


Ordering Procedure: 
1130-19.0.004. 


Order File Number 


Distribution will be in card form only. 
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1800 STORAGE CRT DISPLAY SYSTEM. The 
1800 Storage CRT Display System consists ofa 
set of subroutines to be used for generation of 
displays on storage oscilloscopes interfaced to 
an 1800 System through the digital-to -analog 
converters and electronic contact operate fea- 
tures. These subroutines enable generation 
of characters for text display, scaling and 
plotting of vectors for waveform or graph dis- 
play, conversion and display of floating point 
numbers, and plotting of axises for graphs. 


The user must assemble equate cards punched 
with values to specify his hardware configur- 
ation, common areas, masking requirements, 
display area size definition, and character 
and line size definition. 


The routines are written to support a variable 
number of displays up to sixteen, but can be 
easily modified to expand this maximum val- 
ue. The ECO points for each display must all 
be in the same ECO group. Only two DAC's 
with the buffer register feature are required. 


The subroutines are written in Assembler Lang- 
uage and are provided in source form only. 
Prdering Procedure: Order File Number 
1800-03. 4. 006. 


Distribution will be in card form only. 


1401 MATCH AND MODIFY FILES PROGRAM. 
The Match and Modify Files Program is a 
self-modifying program which will process any 
tape file against any other tape file (subject to 
size limitations ) comparing records from one 
file to records on the other, including the abil - 
ity to table-search one of the input files. 


' Based on the comparisons and/or table search 


the program can generate two output files in 

the same format as the input or reformatted as 
the user desires. The program requires a 

16K 1401 or 1460 with four 729 tape drives, 
1402 card reader, a 1403 printer with 132 print 
positions, Advanced Programming and High- 
Low-Equal Compare. It is written in 1401/1460 
Autocoder language and has been assembled on 
the 1460 Disk Autocoder Processor. 


Ordering Procedure: 
1401-01. 4. 231. 


Order File Number 
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The program material can be obtained in card 7094 CHAIN OPTIMIZATION FROM CHAR- 
form or on one 7 track (Data Conversion feature ACTER USAGE STATISTICS, This program 


required) Distribution Tape Reel (DTR), provides a general method of determing the 
printing speeds of chain (or train) printers 

No tape submittal is required. The DTR will for any chain- character configuration from 

be provided by the Library. character usage statistics. An optimization 


and chain layout feature may be used to deter- 
mine an optimum chain configuration for given 
types of printing jobs, often resulting in sig- 
nificant increases in printing speeds. In order 
1401 GENERAL PROCESSING UTILITY PRO - to be useful the printer must have a capability 


GRAM. The GENERAL PROCESSING UTILI- Similar to that provided by the Universal Char- 
TY PROGRAM performs many simple utility acter Set Feature. Input to the program con- 
jobs often called for in a computer installation sists of character usage statistics (from any 
and is intended to reduce the number of individ- number of different applications) printer hard- 
ual utility programs that have to be maintained ware information (number of characters on 
each of which performs only one or a few of chain number of characters per slug, speed 
these jobs. It does card to card, card to print- limitations) and, if desired, slug defintions 

er, card to tape, tape to tape, tape to printer, and/or chain layout. 


and tape to card operations ina total of twenty - 
six options each of which is called for by a 

combination of sense switch settings. The pro- 
gram is card or tape loadable and is self-initi- 


The output generally consists of the optimum 
arrangement (including a layout schematic) 


. nti d. 
alizing between jobs without re-loading. The and the corresponding printing spee 


program requires an 8K, 12K or 16K 1401 

or 1460 with at least one, and up to five, tape 
drives, a 1402 card reader and punch, a 1403 
printer with 132 print positions, and High- 
Equal-Low compare. It is written in 1401/ 
1460 Autocoder Language and has been assem - 
bled on the 1460 Disk Autocoder Processor. 


The program was primarily written in FOR - 
TRAN IV and operates under Version 13 of 
IBSYS, Running time on an IBM 7094 com- 
puter is usually 2 or 3 minutes. A standard 
7094 system configuration is required. 


Ordering Procedure: Order File Number 


7094-SDA#-3542. 
The program material can be obtained in card 
form or on one 7 track Distribution Tape Reel] Submit one 2400 foot reel of magnetic tape. 
(DTR). The required tape may be ordered from IBM 
No tape submittal is required. The DTR will or supplied with your request for the PEO- 
gram. 


be provided by the Library. 
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SELECTED SH 

PR REO TED SHORT SUBJECTS. 2. S/360-20 EC Affecting User Written Con- @ 


The purpose of Selected Short Subjects is to Sole Routines 


bring together and highlight concise, factual 
and timely information which will indicate 
that action is to be taken by the IBM repre- 
sentative whose accounts are affected. 


The fallowing information has been pre- 
viously released in RETAIN message 
2030/0311; also, 2030 ECA #323 describes 
EC 128064. It is published here as a re- 
minder that the change is being made. 


The System/360 architecture specifications 

i S/360-20 MFCM Effect of Improperl state that the Incorrect Length Bit will be 
; Scored Cards set in the channel status byte for any write 
CS operation to a device. If this status is not 


The following article is intended to im- desired, the Suppress sees went 
prove the customer's satisfaction with Indication bit must be set in the oO 


the 2560 MFCM through the use of ac- mask it off. 


tabl rd . ; 
ceptable card scores Until recently, the S/360 Model 30 has not 


complied with these rules if the console 


Field Engineering advises that they are . , 
typewriter was the device involved. The 


experiencing considerable difficulty in lo ve 
maintaining installed 2560's (MFCM) 2030 did not present an IL on write oper 
on the Model 20 due to the attempted pro- ation to the 1050 console. ome custom- 


: . m have written their own console 
cessing of improperly scored cards. ers ay . 
g properly score routines. Many of these routines do not 


use the SILI Bit, and due to 2030 operation, 


The only card scores acceptable for : 
there were no negative effects. 


processing on the 2560 are: 


However, EC 128064 with concurrent EC 


1. Internal Scor Before S - 
Internal Scores (Before Separ 126753 is now being retrofitted to all 


ti : 
M - 4 ation) 2030's to bring this machine into line and 
OM - 3 the 1050 console will then present an ILI 
S _ il on all write operations. 
M - 5(only 1000 cards 


Those customers who have written their 
own console physical IOCS routines should 
set the SILI on in all output CMDS. This 
will prevent the output chain from being 
broken by the ILI condition, causing part 
of the output message to be lost. 


permitted in 
stacker) 


2. External Scores (After Separ- 
ation) for Reading and Punching 


Column 80 End 
3 


M - 
M - 5 OS/360 RELEASE 15 PLANNING INFOR- 
MATION - GENERAL 
M_ - 7 Sih 2S ee 
CF - 4 
The following information is provided to you 
3. Column 1 End for planning purposes only. The actual avail- 
OO ability of all items will be announced in Pro- 
M - 7 gram Announcement Letters, the official IBM 


announcement media. 
4, For Reading Only Column 80 
End The announced schedule for OS/360 Release 
—— 15 items is July 31, 1968. An assessment of 
the present status of the Release 15 integra- 


M - 4 
M _ 6 tion and testing indicates a possibility that the 
OM - ) release may be available from PID as early 


as April, 1968. Release 15 is now projected 
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“te * 


to include the items listed below in addition 
to maintenance. The items marked with ast- 

@ erisks are subject to last minute withdrawal 
if unforeseen problems are encountered in 
final testing. 


1. MFT (Version II) as described in 
the planning SRL Planning for 
Multiprogramming with a Fixed 
Number of Tasks- Version II 


(C27-6939-0). 


*2. Data Set Integrity Features with 
MFT-II (Shared or Exclusive use 
parameters in DD statements) as 
now available under the MVT 
option, 


3. Rollout/Rollin support under MVT 
as described in the SRL Planning 
for Rollout/Rollin (C27-6935-0). 


* 4, Some Additional Improvements to 
MVT which are considered as in- 
cremental improvements. These 
include: 
a. An improvement to the 
PCI fetch which will per- 
© mit faster program loading 
when programs reside on 
the 2301 drum. 


b. The job class capability 
(similar to that described 
for MFT-II). 


c. Support for the 2250 Display 
Unit as a console device, in 
conjunction with the present 
1052 console. 


d. User exit at step initiation, 
Similar to that of MFT and 
PCP, 

e. Use of cataloged procedures 


for initiators provides more 
flexibility and reduces the 
possibility of error. 


% 


5. COBOL F support of the Asynchron- 
ous Processing feature, including 
the following: 

a. APPLY RECORD PROTEC - 
TION ON for files whose or- 
} - ganization is direct or ran- 
dom and whose access is 
random. 


*9, 


*10, 
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b. APPLY section-name TO 
saved-area-name file-name 
FOR integer CYCLES. 


c. The USE FOR RANDOM 
PROCESSING declarative.. 


d. The HOLD statement. 
e. The PROCESS statement. 


Linkage Editor F (Version II) as 
announced in Letter P68-11. 


Recovery Management support for 
the Model 65 as announced in 
Letter P68-2 (B). 


PL/I F (Version IV). The key fea- 
tures included are: Locate mode 
record I/O with the ability to read 
self-defining records and overlay 
defining; a major subset of the 
list processing facilities; a major 
subset of the tasking facilities (the 
user should carefully analyze the © 
supporting documentation when 
available); an option to read and 
write some COBOL data sets; PUT- 
DATA without a data list. A num- 
ber of other operational, function- 
al and performance improvements 
are also provided. 


A Checkpoint/Restart facility im- 
provement which permits the 


checkfile or SYS1. SYSJOBQE to be 
on the 2314 and permits the use 

of dual density tape drives for both 
program use and for the checkfile. 
In addition, input/output operations 
will be automatically quiesced at 
checkpoint time for the task re- 
questing a checkpoint (formerly 

it was the user's responsibility 

to assure that all I/O operations 
had been stopped). 


Support for the 2844 control unit on 
a single CPU which permits two 
access paths to each of the 2314's 
disk packs. 


IOS priority queueing facility. 
With this feature, designated I/O 
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devices will be given the priority 
of the task requesting the I/O op- 
eration. This is particularly de- 
signed to permit jobs such as 
remote inquiry to be given faster 
access I/O devices to improve 
response time. 


12. Improvements in teleprocessing 
support including the following: 
a. BSC support under BTAM 
for the 2780 operating in 
6 bit mode. 


*b. Dial support under QTAM 
is improved to permit two- 
Way communication for 
terminal initiated calls, 
eliminate the need for queue 
priming busy lines and to 
permit the ''converse mode'' 
to be used on any line ina 
multiple line communication 
group. 


*13,. An improvement to the system 
generation procedure which adds 
new parameters to the GENERATE 
macro instruction. These allow the 
user to control the disposition of 
utility data sets used during system 
generation and permit more flexi- 
bility in naming and space alloca- 
tion for the work area required by 


the IEHMOVE program in Stage II. 


An improvement in the initial pro- 
gram load procedure (NIP) which 
reduces the number of key strokes 
necessary by the operator. Per- 
mits the use of lower case char- 
acters and allows the use of com- 


mas as parameter delimiters. 


The Error Recovery transient area 
is expanded from 400 bytes to 1024 
bytes to permit both functional and 
performance improvemnts. The 
tape error recovery procedure’ 
routines are improved and support 
is provided for the Channel Check 
Handler (CCH) portion of Model 65 
Recovery Management support. 


* 15, 
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OS/360 - RELEASE 14 WITH THE 2870 


OS/360 Release 14 contains a change to IOS 

to eliminate the ''Partitions Monopoly" condi- 
tion. This change may cause a slight reduction 
in the amount of overlap between selector sub- 
channels and the multiplexor subchannels of 
the 2870. 


The IOS changes are included in the Test 
Channel Modules and consist of the issuance 
of a TCH command if the unit address to be 
started is Hex 80 or greater, i.e. GCG-OFF. 


This will result in any pending interrupts on 


channel zero being serviced by IOS before the 
new request is started. 


Reduction in overlap occurs only when the 
channel zero pending interrupt belongs to a 
selector sub-Channel not equal to the new re- 


pest Example, Pending D1, but new request 
C5, 


No data is available as to the reduction in=_ 
curred. It is entirely dependent upon the ‘num- 
ber of devices attached to the 2870 and the 
degree of multiple buffering used. 


DOS/360 BASIC PL/I-WAIT STATE WITHOUT 
DIAGNOSTIC OUTPUT 


A PL/I program which exceeds core capacity 
by somewhat less than the size of the last 
CSECT processed by LNKEDT may fail during 
execution when the last CSECT is executed. 

No diagnostics are printed at LNKEDT or dur- 
ing execution and the system goes into an unre- 
coverable Wait/System State apparently trying 
to access core beyond capacity. Recovery can 
be effected by reducing the PL/I program by 
about 200 Bytes, dependent on the size of the last 
CSECT. 


S/360-20 DISK RPG MULTIPLE CHAINING 
TO SAME FILE 


The following is a field contribution which has 
not been submitted to any formal IBM test. 
Potential users should first evaluate its use- 
fulness in their own environment. 


1. The S/360-20 SRL's indicate that 
you cannot chain to a file more than 
once from the same record, or 
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from a file to itself, in S/360-20 
Le Z10-003 Handbook for the Design 


Disk RPG. 
| of Small Communications -based 
2. The chaining described above can Systems, which contains detailed 
information on: 1050, 2740, 2260 


be accomplished by defining the 
chained file more than once in the 
RPG program, each time with a 
different file name. 


Display Terminals and S.T.R. 
Devices as terminals to a System/ 
360. 


Le Z10-0004 2780 Data Transmission 
Terminal World Trade Marketing 
Guide, which contains a detailed 
description of 2780 operation, as 
well as a comprehensive descrip-~ 
tion of all standard and special 
features. This guide also provides 
graphs for all possible transmit 
and receive devices at speeds of 
1200 to 2400 bits per second. 


oe Additional VOL, BLAB, and X- 
TENT control cards are required 
for successive definitions of the 
file. They are identical to those 
normaliy used for the file, with the 
exception of the file name in the 
VOL card. 


4, Updating a multiply-chained file as 


a result of each chaining can cause 
errors and should be avoided. 


SYSTEM/360 ISOLATION FEATURE 


Product Announcement Letter 267-41 details INFORMATION ABOUT THE NEWSLETTER 
this no charge feature whose purpose is to 
eliminate "spurious noise in the system". EVERY SALESMAN AND SYSTEMS ENGINEER 
SHOULD RECEIVE ONE COPY OF THE NEWS- | 
The isolation feature is now available for field LETTER, Each FE Branch Manager should 2 
or plant installation. Those accounts using receive five copies for distribution to Customer | 
direct control, channel to channel adapter, Engineers. 
control units equipped with two channel switch 
fentived:. 6H inten: coniected CPU's tirouch The IBM Installation Newsletter is distributed | 
channel switches should ensure that they have only to IBM locations and is not available to 
this no charge feature. customers. The Newsletter is separated into 2 
two parts. The first part contains information 
The isolation feature is a hardware modification which is intended only for IBM personnel and 
which does not require any programming the pages are labeled for IBM Internal Use 
changes. Only. THESE PAGES, OR REPRODUCTIONS 


OF THEM, ARE NOT TO BE GIVEN TO CUS- 


For further information, see Product Announce- TOMERS. However, using your own good 


ment Letter 267-41 and the Sales Manual, judgement, you may discuss pertinent infor- 
Machines section, under the processing unit mation from these pages with a customer. The 
ee ae second part contains information which may 


be REPRODUCED by the Branch Office at 

their discretion and given to customers. These 
pages are not labeled with any restrictive class- 
ification. Note that when any abstracts for 
Type III programs are given to the customer, 

he must be informed that the disclaimer for 
Type III programs, as contained in the News- 
letter, applies. YOUR COOPERATION IN 
PROPERLY HANDLING THE CONTENT OF 


Fpaer EEE REE MARS TEESE TIM Hace a RNa RT a RA EEN 


TELEPROCESSING DESIGN 


The IBM Distribution Center has available two 
manuals that will help in designing and imple- 


menting Teleprocessing systems. These are THE IBM INSTALLATION NEWSLETTER IS 
a ey ee es ee 


World Trade publications and are not new, but 
: NE 
can be used for guidance in understanding the SRT BOR TS CONTINUED PUBLIC 


subjects. They are not available to customers. 
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Changes to the quantity of the Newsletter ship- | 
ped are to be made by the Administration @ 
Manager. (NOTE THAT EXTRA COPIES OF 

THE NEWSLETTER ARE NOT TO BE ORDER - 

ED FOR DISTRIBUTION OF INFORMATION TO 

CUSTOMERS.) He should update and send the 

DP Administration Managers' Communication 

Control card (form number N44-780) to DP 

Communication Control, DPD HQ. 


Direct inquiries concerning the contents of 
this Newsletter to: 


W. P. Gaffigan, Editor 

IBM Installation Newsletter 

Installation Planning, Department #713 
DPD HQ 

112 East Post Road 

White Plains, New York 10601 
Telephone 914 WH9-1900 Extension 4781 


NEW PUBLICATIONS ANNOUNCED BY PRL'S 


The weekly PRL's (Publications Release Let- 
ters) are used to insure that all Salesmen and 
Systems Engineers are aware of new or revised 
Marketing Publications. Normally, each issue @ 
of the Newsletter will contain information from 
two PRL's, one following the other. The in- 
formation will be placed in the Newsletter in 

its original form with no rearrangement of 
form numbers or titles. It is not intended to 
replace existing information and distribution 
sources. You should be certain that you are 
aware of these sources. 
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FORM NO, TITLE DISPOSITION 
320-090-4-6 Obsolete Replace List Effective January 12, 1968 Scrap 320-0904-5 
C20-1601=7 Catalog of Programs for I3M 1240-1401-1420~1440 and 1400 DPS - December 1967 Scrap C20-1601-6 & N20-0013-12 
Z20-0100-18 IBM Publications and Programs Current Price List Scrap Z20-0100~17 
MARKETING PUBLICATIONS 
520-2036-0 IBM S/ 360 Model 20 and IMPACT for Wholesale Distributors NEW 
545—-0055~1 PBX Specification Shect Use 545-0055-0 
C24-9010=1 IBM S/360 Model 20 Tape Programming System Performance Estimates Use C24-9010-0, N33-8518 & 
N33~-9005S 
C24-5664~1 IBM S/ 360 TOS Programming Index Scrap C24-5064-0 
C26-3723-0 IBM 1800 Time~Sharing Executive System Subroutine Library NEW 
C26-5929—4 IBM 1130 Subroutine Library ; . Scrap C26-$929~3 
C27-6912-5 IBM S/ 360 Operating System Graphic Programming Services for IBM 2260 Display Station Local Scrap C27~6912-4 
Attachment. 
C28~2037=1 IBM S/ 360 Time Sharing System System Messages Scrap C28-2037-0 
C2865 39-5 IBM S/ 360 Operating System: Job Control Language Scrap C28-6539~4, N28-2214, N28= 
2226, N28-2242 & N28=2220 
C28-65 86~6 IBM S/ 360 Operating System: Utilities Scrap C28-6586-5 & N28-2264, 
N28-2225 
C28-6602-2 IBM S/ 360 Operating System: FORTRAN IV (H) Programmer's Guide Scrap C28-6602-0, -1, N28- 
2211, N28-2228 & N28-2247 
C28~-6603-2 IBM S/ 360 Operating System: FORTRAN IV (E) Programmer's Guide Scrap C28-6603-1, N28-0211, 
N28-0233 & N28-0235 
C28-6631~-3 IBM S/ 360 Operating System: Messages and Codes Scrap C28-6631-1, -2, N28-2235, 
N28-2256, N28=-2258 & N28=2277 
C2866 39—1 IBM S/ 360 Operating System FORTRAN IV (G) Programmer's Guide Scrap C28-6639-0, N28-2212, N28 
0212, N2&-0234 & N28-0236 
C286656—1 IBM S/ 360 Operating System: Checkpoint/ Restart Siap C28-6656-0 
C28—-6670-0 IBM S/ 360 Operating System: Programmer's Guide to Debugging NEW 
C28~-667 1-0 IBM S/ 360 Operating System Model 65: Shared Main Storage Multiprocessing NEW 
C30~2008-0 IBM S/ 360 OS; Planning for Reinote Entry (MFT Version II) NEW 
E20~-0188=3 Retail IMPACT ~ Inventory Management Program and Control Techniques Application Description Use E20-0188-2 
J20-0003~1 QUIKTRAN Statistical Programs Scrap J20-0003-0 
K 20-0248=0 System/ 360 at Rockland State Hospital NEW 
N20-1071 TNL for Optimum Bond Bidding (360A-FI-06X) User's Manual Re: E20-0228-0 NEW 
N24=-5299 TNL to DOS Operating Guide BTAM 1287 Support Re: C24=-5022=3 NEW 
N24=5 344 TNL to IBM S/360 DOS Supervisor and Input/Output Macros Re: C24-5037=2 & <3 with -2 NEW 
N24=5 306, N24-5285 and N24-5329 
N24=5 346 TNL to DOS Performance Estimates Re: C24-5032=3 NEW 
N24=5 347 TNL to IBM S/ 360 DOS System Gencration and Maintenance Re: C24-5033-3 with N24-5309, NW 
N24—=5 324, N24=5320 & N24-5266 
N24-5 351 TNL to DOS System Control and System Service Programs Re: C24-503681 & -2 with -1, N24d- NEW 
5218, N24-5279, N24-5289 & N24-5 330 
N26-0209 TNL to 1800 Physical Planning Re: A26-5922=4 with N26-0194 NEW 
N26-0211 IBM 1971/1980 TNL Re: A26=3699-0 NEW 
N26-0567 IBM S/ 360 Operating System Assembler (F) Programmer's Guide Re: C26=3756<2 NEW 
\ N27-1287 IBM S/ 360 Operating System Multiprogramming with a Fixed Number of Tasks (MFT) Concepts & NEW 
Considerations Re: C27-6926-0 
N28-0229 System/ 360 Operating System COBOL (E) Programmer's Guide Re: C24-5029=2 NEW 
N28-0578 IBM S/360 Operating System: FORTRAN IV (E) Programmer's Guide Re: C28~6603=2 NEW 
N28-0579 IBM S/ 360 Operating System: FORTRAN IV G Programmer's Guide Re: C28-6639-=1 NEW 
N28=2273 IBM S/ 360 Operating System: Opcrator's Guide Re: C28-6540-5 NEW 
N28-2281 IBM S/ 360 Operating System: Storage Estimates Re: C28-6551-4 with N28-2265 & N28=2280 NEW 
N28-2282 IBM S/360 Operating System: System Generation Re: C28-6554=3 with N28-2269 NEW 
N28~2283 TNL IBM S/ 360 OS, System Programmers Guide Re: C28-6550~3 NEW 
N28=2286 IBM S/360 Operating System: System Control Blocks Re: C28-6628=1 with N28-2262 NEW 
N28=2294 IBM S/ 360 Operating System: Job Control Language Charts Re: C28=6632~=1 NEW 
N28=2296. IDM S/ 360 Operating System: Supervisor & Data Management Macro-lInstructions Re: C28-6647-0, NEW 
with N28-2217, N28=2223, N28~2248 & N28=2251 
N23~2297 IBM S/ 360 Operating System: Supervisor & Data Management Services Re: C28-6646-0 with N28= NEW 
2202, N28-2246, N28-2263 & N28-2279 
N28=2298 IBM S/ 360 Operating System: Utilities Re: C28-65 86-6 NEW 
N28=2506 IBM S/ 360 Operating System: Operator's Guide Re: C28-6540-5 NEW 
N28-2307 IBM S/ 360 Operating System: FORTRAN IV (H) Programmer's Guide Re: C28-6602~2 NEW 
N28-3010 IBM S/360 Time Sharing System Terminal User's Guide Re: C28-2017=1 NEW 
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IBM S/360 Time Sharing System FORTRAN Programmer's Guide Re: C28=2025=0 


IBM S/ 360 Operating System Telecommunications Access Method Re: C30-2004-1 with N30-5010 


IBM S/ 360 Operating System Planning for Remote Job Entry (MFT Version II) Re: C30-2008-0 


TNL to DOS QOTAM MCP Re: C30-5004=1 


TNL IBM S/ 360 Disk Operating System Basic Telecommunications Access Method Re: C30~5001~4 


IBM Communications Systems Design & Analysis Education Guide 

IBM 1620 Monitor I Prog. System Education Guide 

IBM Communications Systems Design and Analysis Course Description 
IBM Branch Office Library Course Description 

IM S/ 360 PL/I Coding P.I. Text 


Issue No. 68-03 


NEW 

NEW 

NEW 

Use R20~8005-0 
NEW 

NEW 

Scrap R29-0111-0 


Use R29~0138.0 


R29~0138=1 IBM PCDPP P.I, 82 Sorter Exam 
R29-0210-2 IBM S/360 COBOL = Writ. Prog. in COBOL P.I, Text Use R29-0210~1 
R29-0211-3 IBM S/ 360 COBOL - Writ, Prog. in COBOL P.1I. Reference Handbook Use R29-0211~2 
R29-0232-3 IBM S/360 ALC Standard & Decimal Instructions Text Use R29-0232=2 
R29~0233-2 IBM S/ 360 ALC P.I, Appendix Ree 
_ X20-1760~0 Examples of Control Cards for $/360 Reference Card 
Y24-5018=2 IBM S/ 360 Tape Operating System Logical IOCS Scrap Y24-S018=1 
Y24-5056-0 IBM S/ 360 Disk & Tape Operating Systems On Line Test Executive Program NEW 
Y24-S071-0 TNL to IBM S/360 DOS Logical IOCS PLM Re: ¥24-5020-2 NEW 
Y27=-7153 TNL Re: Y27~7113-2 IBM S/ 360 Operating System Graphics Access Method NEW 
* 2727157 IBM S/360 Operating System Control Program with Y27-7128 new 
Y23=2278 IBM S/ 360 Operating System/ 360: Input/Output Supervisor, PLM Re: Y28-6616-2 NEW 
Y28=2289 IBM System/ 360 Operating System: Utilities, PLM Re: Y28-6614-2 NEW 
Y28-3051 IBM S/ 360 Time Sharing System - System Logic Summary PLM Re: Y28=2009-0 NEW 
Y 28-3055 IBM S/ 360 Time Sharing System Access Method PLM Re: Y28-2016-0 NEW 
Y28-6613-2 IBM S/ 360 Operating System: Job Management, PLM Scrap Y28=6613-1 & voe --- 
Y28-6642=1 IBM S/ 360 Operating System: FORTRAN H Compiler, PLM Scrap Y28~664200 & Y28=2234 
Y28~6659-1 IBM S/360 Operating System: MVT Supervisor, PLM Scrap Y28~6659-0 & Y28q225¢ 
Y28-6660+1 IBM S/ 360 Operating System: MVT Job Management PLM Scrap ¥28=6660-0 & Y28=222; 
Y28-6665-0 IBM S/ 360 Operating System: Guide to Model 91 Support, PLM NEW 
¥28-6672-0 IBM S/360 Operating System: Checkpoint/ Restart, PLM NEW 
Y28-6819-0 IBM S/ 360 FORTRAN IV (E) Compiler PLM Re: ¥28=6601-2 with Y28-6383 NEW 
Y28-6820 IBM S/ 360 Operating System: FORTRAN IV (G) Compiler PLM Re: Y28-6638-0 with Y28~6384, NEW 
Y28-6386 GY 28-6388 
Y 30-2001-0 IBM S/ 360 Operating System: Basic Telecommunication Access Method, PLM Scrap Y30=2001-1 & ¥ 30-2004 
Y 30-5004 IBM S/ 360 Disk Operating System Basic Telecommunications Access Method Re: Y30-5001-2 NEW 
'Z20~1869-0 Laboratory Automation Based (LAB) System NEW 
. Z28-6635~3 IBM S/360: CLEAR Operating and Control Procedures Scrap 228-6635=2 
Z77=7291-0 A Consolidated Group Insurance System NEW 
PRL #5 February 2, 1968 
DISPOSITION 
FORM NO, TITLE 
Scrap 320-1621-16 
320=1621-17 KWIC Index to Marketing Publications/January 12, 1968 Scrap N20-1001. 37 
x N20-1001, 38 SRL Newsletter Teleprocessing Re: A24-3089-5 Scrap N20-1002, 20 
N20-1002, 21 DPT Newsletter Re: F20-8172-5 
sks Scrap Y20-0073~=2 
~ Y¥20-007 3-3 FE Systems Sequence Listing Effective January 12, 1968 Scrap Z20-1720, 20 


SL. 220-1720. 24 Sales & Systems Guide Re: 220-1708-1 


MARKETING PUBLICATIONS 


€ 221-0476—0 IBM 2420 Magnetic Tape Unit, Model 7 Proposal Insert ae 
221-0477~0 IBM S/ 360 Model 85 Proposal Insert S 270 
270~-0011-4 9949 Illustrated Parts Catalog es 27 Pee 
270-0066—=1 9955 Physical Planning Manual ae eee 
320-1906-12 In Brief, December 1967 a aaa 
| 520=2022=0 LeGendre Polyynomial Promotional Brochure a 
E -» §20-2023-0 -Gamma Function Promotional Brochure ae 
~ 520-2024.0 Fourier Evaluation Promotional Brochure 
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5 20-2025-0 Polynomial Evaluation Promotional Brochure 

5 20-2026-0 Polynomial Roots Promotional Brochure 

5 20-2027-0 Polynomial Fitting Promotional Brochure 


‘£5 20-2028-0 
~_520-2029.0 


_ 520-2030-0 
‘= 520-2031-0 
5 20-2032-0 
520-2033-0 
\, 520-2034-0 
5 20-2035-0 


520~2036-0 
5 20-205 4-0 
5 20-2059-0 


5 20-2066-0 
$45~-0045~-3 
545-005 3=1 
549~0056~0 


549~0057-0 
549-005 8-0 
549-005 9-0 
549-0060-0 
549-0704-0 
549-0705-0 
549-0707-0 
549-0710-0 


S 549=0711-0 
549=0712=0 
549-0713-0 
A22-6823=4 
A22~6916-0 
A22-6918=0 


A22~6920-0 
A24~1034-3 
A33-1500-0 
C24-1404=9 

~£ C24-3392-7 
C24—3413~3 


C24-5024=3 


C24-5060-=2 
C24~9004—1 
C28~666 8-0 


E20-0301-0 
H20-0149=2 


J20-0030-0 

K20-0225-0 

 _K20-0246-0 
“i N20=1069 


N20-1072 
N20-1073 


X N22-0282 


¥ 22-0285 
N23-0614 
N24-0413 
N24=5321 
N24-5328 


Simultaneous Equations Promotional Brochure 
Eigenvectors and Eigenvalues Promotional Brochure 


Matrix Operations Promotional Brochure 

Solution of Nonlinear Simultaneous Equations Promotional Brochure 
Forward Difference Method Promotional Brochure 

Polynomial Calculation Promotional Brochure 

Digital Analog Simulation Promotional Brochure 

Zero Wear Analysis Promotional Brochure 


IBM S/360 Model 20 and IMPACT for Wholesale Distributors Promotional Brochure 
IBM S/ 360 Model 85 
IBM 2420 Magnetic Tape Unit, Model 7 Promotional Brochure 


IBM Sorters (82/83 Series 50 Folder) Promotional Brochure 
IBM Executary 224 Operating Manual 

SRN Specification Sheet 

Selectyic Composer Practice Form 


Selectric Composer Practice Form 

Selectric Composer Practice Form 

Selectric Composer Practice Form 

Selectric Composer Practice Form 

IBM Mag. Tape Sel. Comp.- Guide - Copy Prep. 

IBM Mag. Tape Sel. Comp. - Record Unit Training Guide 
IBM Mag, Tape Sel Comp - Output Unit Training Guide 
Guide to Copy Prep. - Sample Projects 


Layout Information Sheets 

Prenumbered Paper 8 1/2 x 14 

Prenumbered Paper 14 x 14 

IBM S/ 360 Input/Output Configurator 

IBM S/ 360 Model 85 Functional Characteristics 

IBM 2420 Model 7 Magnetic Tape Unit Component Description Bulletin 


IBM S/ 360 Model 85 Configurator 

82, 83 & 84 Sorters 

IBM S/ 360 Model 20 Serial I/O Channel OEMI 
1401 Installation Manual -- Physical Planning 


IBM S/ 360 Basic Programming Support: DASD Utility Programs Operating Guide 
IBM S/ 360 Basic Programming Support, Sort/ Merge Programs Operating Guide 


IBM S/ 360 BOS Operator Messages 


BOS System Generation & Maintenance 
IBM S/ 360 Model 20 I/O Control System for the Communications Adapter Operator Procedures 


IBM S/ 360 Operating System: Sort/ Merge Timing Estimates for IBM 2420 Model 7 Magnetic Tape Unit 
Planning Guide 

Plant Management System (PMS) for Electric Utilities 

IBM S/ 360 Online Teller Program and Mortgage Loan Background Capability (360A-FB-16X) 
Application Description 

QUIKTRAN TELETYPEWRITER Terminals Manual 

School Information Center in Iowa's Tri-County Area 9 

Control Center at Hough Division International Harvester Co, 

TNL to a Programmer's Introduction to the IBM S/ 360 Architecture, Instructions, .and Assembler 
Language Re: C20-1646-4 

TNL for 1130 Type Composition Program (1130-DP-04X) Operator's Manual Re: H20-0288-i 

TNL for 1130 Type Composition Program (1130-DP-04X) Programmer's Manual Re: H20-0287~1 

with N20-1056-0 ; 

Changes to IBM S/ 360 Principles of Operation Re: A22=-6821-2, -3, -4, -5, -6 with N22-0231 to -2& 
<3, N22-0232 to -2 & -3, N22-0236 to «2, -3 & ~4, N22-0250 to -2, -3 & =4, N22=0244 to -2, «3, ~4 
& «5, N22-0278 to -2, -3, =-4, -5 and -6 

Changes to IBM S/ 360 System Summary Re: A22-6810-8 with N22-0276 & N22=-0286 

ENL to IBM S/ 360 OTAM Learners Guide I Re: R20-1061-0 

IBM 1418 Optical Character Reader IBM 1428 Alphameric Optical Reader Re: A24=1473=2 

TNL to BOS CNT Prog. & Assem,. Oper, Guide Re: C24-3450-2 

TNL te S/ 360 BOS Programmer's Guide Re: C24-3372-6 with N24-5 336 
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Abstract only 
NEW 

NEW 

NEW 

Scrap 545-0045-2 
Use 545-005 3-0 
NEW 


NEW 
Scrap A22-6823-2, <3 
NEW 
NEW 


NEW 

Use A24~1034~2 

NEW 

Use C24=1404~8, N24~0377 & 
N24-0407 

Use C24-3392-6, N21-5057 & 
N21-5062 

Use C24=3413-2, N21-5046 & 
N28-2244 

Scrap C24-5024—2, -1, N24=5116, 
N24-5155, N24-5168, N24-5187, 
N24-5269, N24-5326 & N24-5325 
Scrap C24-5060-0, N24-5261, 
N24-5315, N24=-5332 & N24-5338 
Use C24-9004—=0, N24-9025 & | 
N33=8510 

NEW 


NEW 
Scrap H20-0149-1 


NEW 


NEW 
NEW 
NEW - Scrap N24-0383 
NEW 
NEW 
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N24-5 341 
N27#1293 


‘ N30~-2506 
N 33-1506 


R20-1004=2 
R29-0071-+S 


R29-0072-5 
“K R29-0205=3 
V20-6061+0 
Y20-0155-0 
Y20-0158-0 


\ Y20-0162-0 
{ ¥24-5012-1 


Y24-5076 
Y24-9094~1 


Y28-3052-0 
¥ 28-3053 
277-8002 
\ 277=8007-0 
Z77~-8008-0 
Z77~8009-0 


10 


PRL #5 (Continued) 


TNL to S/ 360 BOS Assembler with I/O Macros Re: C24—3361-5 with N24-5314 & N24-5335 

IBM S/ 360 Transitions Aids: FORTRAN II Language Conversion Program for the IBM 1401 Re: 
C28-6560-1 with N27-1241 

TNL IBM S/ 360 Operating System Remote Job Entry Re: C30-2006-0 

TNL to IBM S/ 360 Model 20 Functional Characteristics Re: A26-5847-2, -3 with N26-0174, N26- 
0179, N331504, N26-0176, N33=1501 & N33-1507 

IBM 519 Doc. Orig. Mach. Education Guide 

IBM Basic Computer System P.I. Volume 1 


IBM Basic Computer Systems P.I. Volume 2 
IBM S/ 360 COBOL = COBOL Fund. P.I. Text 


Model 85 Desk Flipcharts 

Medical Information System Programs (MISP) (360A-UH-O8L) Programmer's Manual 

TNL for 1130 Type Composition Program (1130-DP-04X) System Manual - Volume'I Re: Y20-0040-1 
with Y20-01 38-0 

COBOL/ Assembler Tape Read Error Recovery Routine Sales & Systems Guide 

IBM S/ 360 BPS Tape Assembler PLM 


TNL to S/ 360 BOS System Control PLM BSC & 1287 Support Re: Y24-5002-0 with Y24-5031, Y24- 


5044 & Y24-5061 
IBM S/ 360 Model 20 Punched-Card Utility Programs, PLM 


IBM S/ 360 Time Sharing System Supervisor PLM Re: Y28-2012-0 

IBM S/ 360 Time Sharing System Command Language PLM Re: Y28-2013-0 
Generating a Disk Operating System ~- Version 2 

New Methods of Cost Accounting in Banking 

Analysis of Balance Sheets 

Computation of Tooth Profiles for Gear Milling Cutters for Plot 


For IBM Internal Use Only 
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NEW 
NEW 


NEW 
NEW 


Use R20-1004-1 
Use R29-007 1-4 


Use R29-0072-4 
Use R29-0205-2 
NEW 
NEW 
NEW 


NEW 
Scrap C24~3443-0, 224-5012-0, 
Y 24-5046 & Y24e5012-0 

NEW 


Use Y24-9004-0, Y24-9008 ¢ 
Y 33-8500 

NEW 

NEW 

NEW 

NEW 


NEW 
NEW 
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OS/360 DEBUGGING AIDS 


The OS/360 Programmer's Guide to Debugging 
(C28-6670-0) will be expanded in the future to 
include techniques to be used when debugging 
high level language programs. The following 
explanations are preliminary to that expansion 
for the use with COBOL programs!’ ABEND 
Dump. They are futher explanations to aid in 
determining the exact reasons for the abnormal 
termination of the program. 


Comuletion-Coded Explanation or Problem 

Ot Oe j 

and Possible Solutions _ 

F13 Check register 2 of registers at the 
entry to ABEND. This address points 
to the DCB in conflict. 


OCcl Interrupt at 000050. Look at register 
l of the registers at entry to ABEND. 
Add hex 30 to the reg 1 address. This 


should point to the DDname of a missing 


DDecard. 


OCl When the interrupt is at 00004A, look 
for no //SYSOUT DD SYSOUT=A card, 
any missing JCL card, or the wrong 
name of a JCL card. Add hex 30 to 
register 1 of the registers at entry to 

ABEND. This should point to the DD- 
name of the error DDname. 


OC] When the interrupt is at 000484, look 
for writing an unopened output in CO- 
BOL program. 


OC] Interrupt at 00004F. Look for incon- 
sistent JCL and external name in the 
COBOL program. 


OC4 Check for the block size and record 
size being equal for variable record 
input or output. 


OC4 Check for moving data to an unopened 
output. 


OC4 Tf error occurs during COBOL compil- 
ation, check for missing select state- 
ment. 


OC4 Interrupt at 004814, look for reading 
an unopened input in a COBOL program 
or a missing DDcard. 
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OCs Check for duplicate close of an input 
or output file if DS formatting discon- 


tinued. 


OC5 If a sort is being attempted, the SCRT 
is being attempted with an incorrect 
catalog procedure. Use catalog pro- 
cedure 'COBFSORT' or 'COBTSORT'. 


001 Register 1 of the SVRB points to the 
DCB which caused the I/O problem. 
Look for input record and blocking 
errors. Thatis, the input does not 
agree with the record and blocking 
descriptions in the DCB or COBOL 
file description. 


002 Register 2 of registers at the entry 
to ABEND contains the address of the 
DCB for the file causing the I/O prob- 
lem. Check the DCB list for the spec- 
ific file. 


oS Check register 14 of the registers at 
entry to ABEND. This address points 
to the file which has no DSCB. 


400 If this ABEND code occurs during a © 
compile step, the member to be com-~ 
piled has not been extracted from the 
source library for compilation. 


OS/360 RELEASE 14 USE OF 1600 BPI TAPE 


When a data set is cataloged by DISP=CATLG, 
the device type code in the UCB is stored as 
the catalog entry. This code is used during 
allocation to match the SYSGEN'ed device name 
and device mask table entries. 


With Release 14, the SYSGEN'ed generic names 
for magnetic tape have been broadened to in- 


clude 2400 Model #4, 5, 6 with and without the 
dual density 800 BPI feature. 


Data sets can be retrieved from the catalog 
according to: 


1. Data sets cataloged with Release 13 


or before as being on 2400 Model 
4, 5, 6 with dual density can only 
be retrieved on dual density tapes 
unless the user re-catalogs using 
Release 14 to reflect the density 

of the data set. 
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2. Data sets cataloged with Release 
14 as being on 2400 Model 4, 5, 6 
with dual density will be cataloged 
according to their density. 


Therefore, an 800 BPI data set can 
be retrieved on 2,409 Model 1; 2, 
3, or Model 4, 5, 6 with dual den- 
sity, while a 1600 BPI data set can 
be retrieved on 2400 Model 4, 5, 
6 with or without dual denisty. 


3. Data sets cataloged with Release 13 
or before as being on 2409 Model 
1, 2, 3 can be retrieved on 24g 
Model 1, 2, 3 or Model 4, 5, 6 
with dual denisty. 


4, Data sets cataloged with Release 13 
or before as being on 2400 Model 
4, 5, 6 without dual density can be 
retrieved on 2400 Model 4, 5, 6 
with or without dudl density. 


In summary, data sets cataloged on dual den- 
sity tapes before Release 14 can create an al- 


location problem and should be recataloged 
using Release 14 if an installation has mixed 
device types. 


OS/360 SYSOUT LINE LIMIT CAPABILITY 


Job steps which direct output to SYSOUT can 
have control over the number of lines put out 
through the space parameter. 
bolic parameters with the space subparameters 


Combining sym- 


creates an extremely flexibile and effective DD 
card line limit capability. 


I.xample 


// Step 1 EXEC 
//OUTPUT DD 


PGM=NONE, TRK=20 
SYSOUT=A, DCB= 
(Recfm=FB, LRECL= 
132, BLKSIZE=3625) 
SPA CE=(3625, (&TRK), 
RLSE, , ROUND) 


OS/360 COMBINED BISAM/QISAM FOR PER- 
FORMANCE IMPROVEMENTS 


The following is a contribution from an IBM 
Field Systems Center. Potential users should 
first evaluate its usefulness in their own envir- 


Issue No. 68-03 


onment. 


OS/360 ISAM Applications requiring sequential 
reading and updating of a file can use QISAM 
for reading and do the updating of the file using 
BISAM. Two DCB's are required+-one for 
BISAM and one for QISAM. Whenever a BI- 
SAM update is performed, it is necessary to 
post the following fields from the BISAM DCB 
to the QISAM DCB: 


DCBLEMIZ, DCBLEM13 DCBNOREC, 
DCBRORGI, DCBRORG2, DCBNREC, 
DCBLPDA, DCBLECI, DCBLEMI1, DCBLIOV, 
DCBNBOV 


When reorganizing, the following QISAM DCB 
fields must be posted to the BISAM DCB: 


DCBTDC 
DCBRORG3+t1 (3 bytes) 

The primary advantage of this method of file 
management is the possible increase in through- 
put. 


OS/360 DATA CHAINING 


A knowledge of OS/360 Data Chaining and its 
use is necessary when computing Channel 
Utilization and / or CPU interference. 


Data Chaining is implemented by a number of 
OS/360 Program Components. However, most 
programs actually Data Chain using a count that 
is the physical record length. That is, the 
next CCW is selected by the channel during 
physical record length. 
Iikxamples of this are: (Not a complete list) 
be Scatter Fetch where each CSECT is 
at least one physical record. 


2. Record overflow where the physical 
track boundaries cause a delay gap. 


3. Dump-Restore where each physical 
record is a new CCW. 


There are, however, two Program Components 
which do implement "Scatter Read/Gather 
Write", Thatis, data chaining logical seg- 
ments within a physical record. The only 
cases known to be in OS/360 are: 
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1. Exchange Buffering where each logi- 
cal segment of the physical record is 
anew CCW, Ref. SRL C28-6646. 


2. Teleprocessing BTAM/QTAM when 
variable length messages require 
dynamic data chaining of storage 
buffers. 


OS/360 ISAM RECORD COUNTING WITH 
IEBISAM 


This article is an IBM field contribution and 
the method was tested by the contributor under 
OS/360 Release 13 on a S/360 Model 40 with 
Index Sequential files on a 2314 direct access 
storage device. Potential users should be 
aware that it has not been submitted to any for- 
mal IBM test, that no maintenance can be ex- 
pected and should first evaluate its usefulness 
in their own environment. 


The following method can be used to provide 
a count of logical records for ISAM files when 
the IEBISAM utility is used to: 


1, Create backup tapes for Index Se- 
quential files. 


2. Reorganize Index Sequential files. 


Exhibit 1 shows the necessary code to be ap- 
plied to the source language of IEBISAM utility 
modules. This will provide logical record 
counting in both the 'LOAD" and "UNLOAD" 
facilities of the utility. Logical record counts 
are written to SYSOUT and to the console type- 
writer at the end of each run. 


It should be noted that a SYSPRINT DD state- 
ment must be provided when record counting 

is required. All other requirements and facil- 
ities of the IEBISAM Utility remain the same. 
(See SRL C28-6586- 6), 
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* * * * * * # i 
* 
% THE FOLLOWING ADDITIONS AND REVISIONS TO TEBISAM SOURCE. LANGUAGE WILE 
* PROVINE RECORN COUNTS FOR BOTH LOAD AND UNLOAN FUNCTIONS. GF THRE | | 
* UTILITY — RECORD COUNT MESSAGES ARF WRITTEN TC SYSQUT AND. THF CONSCLE 
* TYPEWRITER, SOURCE LANGUAGE AS OF AS/REL 13. 
4 —_ | ; es 
Ce i Se Se 2 ee 
* | , : | | x 
**kTO TEBISR = FOLJAN67 ADD THE FOLLOWING CARD IN SEQUFNCE 
* -_ a 
ISCOUNT 0S F RECORD CCUNT “ 
. ae ne vie OO 
i Se Se er eg 
ak : - | om 
-**TO TFBISF - FOLJUNGT REVISE THE FOLLCWING CARD FROM = TE = 
te | te 
| BE PRTCOUNT NEW CARN ENSERT. 
BE CONTROL OLN CARN REMOVE 
Ro 7 — ae 2 oe 
Cr ee a 
t* | | ae: 
*x  TEBISF ADD THE FOLLOWING CARDS TN SEQUENCE | 
x co. Xe 
RELEV FQU) EL RECORD COUNT WORK REGISTER 
~GOGNX MVC 6NG60+40(8) .MESS84#32 MOVE COUNT: TO CONS CLE. MESS 
‘GOGO === WTO = NUMBFR OF RECORDS TRANSMITTED — | | 
PRTCOUNT: L RELEV» 36(WORKREG) GET COUNT FROM Commun AREA 
CVO = RELFV,DWCOUNT © 
UNPK MESS8432( 9), DWCOUNT(B) oa a 
OT MESS£439,KCF NE ELIMINATE SIGN 
MVE = 31(WORKREG), X# ane 
RB Gnenx 
DC xtone | 
_ OC AL. 3(MESSA9) 
MESSB. OC CL32*NUMBER. OF RECORDS. TRANSMITTED. =) # 
nC CL208 . 
ale cLare ' 
men CL 34e ' 
te a : abe 
* i ee oe Se Se Se Se 2 
#470 TEBISL: AC? THE FOLLOWING CARDS IN SFQUENCES LEVEL FOLJUN6T 
x | xe: 
WKT7 FOU FO | oe CCUNT — LOAD 
| ST WK 7s 36(WK4G) PASS COUNT TO COMMONS AREA, 
SR WK 7TyWKT CLEAR RECORD COUNT: 
ACT = WK7 9 #4 DFCREMENT COUNT AGAINST INTT=FALSF > COUNT. 
LA WK7e LOWKTY INCREMENT RECORD COUNT. 
* at, . | * 
a a a ee ee 
: = | | | tech , _ * 
**T0 TEBISU ADC THE FOLLOWING CARDS IN SEQUENCE. LEVEL FOLJANGT 7 
WKT FOU OT RECNRD COUNT - UNLOAD 
SR WK 79 WK7 CLEAR RFCORD COUNT. 
ST WK7 9 36CWK4) PASS COUNT TO COMMON: ARFA 
| LA WK 7e L(WKT) INCREMENT RECORD COUNT. 
* | OS 
i ee ee 
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DOS/360 REDUCING SIZE OF CORE IMAGE 


LIBRARY 


The following contribution has not been sub- 
mitted to any formal IBM test. It has been 
tested by the author. Potential users should 
first evaluate its usefulness in their own en- 
vironment. 


The following write-up describes a procedure 
for reducing the size of the C. I, L. (Core 
Image Library). It involves independently 
assembling and cataloging each of the logic 
modules used in an installation into the C, I. L. 
rather than into the R. L. By using this method, 
a logic module will appear in the CGC, I. L. only 
once, rather than repeatedly inthe C. I. L. 
with every program using that particular type 
of file. When a processing program requires 
the logic module, the programmer will code 
(into his program) the few statements needed 
to 'LOAD" the module into core at execution 


time. 


The trade-off for saving space in the library 
is that after the first phase of a processing 
program has been loaded into core by Job 
Control, one additional access will have to be 
made to the C, I, L. for every logic module 
needed in the program. Considering the total 
running time of any given program, however, 
these accesses wil] usually be negligible, es- 
pecially since the reduced size of the library 
should also reduce the average seek time. 


One other consideration is that the Autolink 
feature will no longer be applicable; and there- 
fore the systems programmer will have to give 
more thought to the assembling of the modules 
in regard to subsets and supersets, and will 
also have to provide exact documentation 

for other programmers on the modules and their 
loading procedure. 


(Although the author has not tested it, she be- 
lieves that the I/O areas could be reserved in 
the common area in the same way). 


lL, Job "ONE" (Below) shows how to assem- 
ble and catalog a logic module into the 
C. I. L. This procedure would be re- 
peated for each logic module commonly 
used in the installation, assigning a dif- 
ferent name to installation, assigning a 
different name to each in the PHASE card, 
and making each self-relocating. 
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// JOB ONE 

// OPTION CATAL 
PHASE MOD1,+0 
// EXEC ASSEMBLY 


START 0 
PRMOD 
/* 
// EXEC LNKEDT 
/ & 


Job "TWO" (Exhibit 1) shows (encircled) 
the statements needed to define an area 
in the problem program into which the 
PRMOD will be loaded, the DTF entry 
required, and the additional statements 
needed to LOAD the module and to im- 
prove linkage to the module from the DTF., 


The statements on the line following the 
encircled statements show how to LOAD 
in asecond Module. The procedure 
would be the same for a third, etc. 


To determine the size of the DS area for 
each module in the Com area, use the 
listing from the assembly of each mod - 
ule. Be certain to define the modules on 
double word areas or a specification 
error will occur. 
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DOS/360 PROGRAMMING DISK WORK FILES GP Register 0 in the form 
TN OOLL. The programmer & 
The following is a field contribution which has Shodld sOve. Ais TatoTinalron 
not been submitted to any formal IBM test. (address and length) to a save 
Potential users should first evaluate its use- area. 
fulness in their own invoronment. 
d. Before writing the last block, 
The purpose in using work files is that itis the programmer should fill 
possible to add records to sequential files with- the femaining portion of the 
out reading through the existing records on the block with some special 
file. Defining the file as a work file (rather characters. This will be 
than input or output) makes it possible to ac- needed when re-using the 
cess any record onthe file. Saving the ad- file to dtermine where in the 
dress of the last record written on a file makes block processing is to resume. 
it possible to start the next run at that point. The choice was to fill out 
the last block with High- Value 
The programmer needs to perform several (HE XIDECIMAL FF), 
manipulations upon opening and closing a work 
file. DTFSD work files does not support block- Now, the last block should 
ed records. For these two reasons, a detailed be written, and then another 
description might be helpful to others program- NOTE (filename) should be 
ming this type of file. Exhibit 1 shows the issued. The disk address of 
coding and logic. the last block will be returned 
in GP Register 1 in the form 
1, Storing Transitory Information OCHR. The length remaining 
. An area at the beginning of on the track will be returned 


in Register 0 in the form 
0OOLL. The programmer should @ 
also move this information 


the file should be reserved 
for storing information, such 
as the address of the last 
record written, etc. The 
choice was made to leave 


to a save area. Now, a 
CLOSE (filename) should be 
issued, This puts an EOF 


the entire first track vacant, eae 
at the beginning of the next 


so that when sorting the disk, 


One could start at the second block. 
track. . 
Next, the information saved 
ioe The file should be opened as from the two previous notes 


should be moved to the OUT- 
PUT area, so that it may be 
written on the disk. The first 
six bytes of OUTPUT area 
was chosen to store informa- 


OUTPUT. A method is need- 
ed to dtermine if loading is 

to start at the beginning of 
the file, or is to continue at 


the location where the pre- 
oo tion from the second note; 
The choice 


and the second six bytes to 
store information from the 
first note. 


vious run ended. 
was to use the UPSI Byte to 
determine this. 


c. When the last record has been 
processed, (but the last block 
has not been written), a NOTE 
(filename) should be issued. 
The disk address of the pre- 
vious write is returned in GP 


Next, an OPEN (filename) 
should be issued, followed 

by a POINTS (filename), then 
a WRITE (filename) UPDATE 
(area), and a CLOSE to the 


Register 1 in the form OCHR. a 
The length remaining on the ae Starting At a Point Where } 
current track is returned in The Previous Run Ended 


Adding Records 


7 


February 23, 1968 


After opening, the program- 
mer must determine at what 
(CHR) Location the writing 
of records is to begin. The 
information stored from the 
previous run should be ob- 
tained from the first 12 bytes 
on the disk file. This was 
accomplished byissuing a 
Point S to the file, thena 
READ (filename) SQ (area). 
The information from the 
first and second notes should 
be moved to separate storage 
areas (six bytes each), 

Next, a POINT R to the last 
record written on previous 
run (using second note in- 
formation) is issued. This 
is followed by READ (file- 
name) SQ (area). 

Then, the next available logi- 
cal record in this particular 
block is located, followed by 
a return to normal processing, 
except that a POINT W (using 
first name information) prior 
to the first write should be 
provided for. 


3: Starting At the Beginning - 
New File 


After opening, merely write 
enough dummy blocks to fill 
the first track before acutal 
processing is begun. 


DOS/360 COBOL ISFMS DATA ON 2321 INDICES 


ON 2311 CORRECTION 


An article on the above subject was published 
in Newsletter 68-02, page 10. The following 
is a clarification and correction to that article. 


1. <A change was made with the latest 
Release (15) of DOS/360 to add the 
Master Index on the 2321 by moving 
X'02' into byte 21 of the skeleton DTF 
and X'F2' for the 2311. It is not nec- 
essary to make the move into byte 


200 or byte 65 as stated in the article. 


See page 109 of the DOS/360 Pro- 
grammers Guide. 
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In Exhibit 2, A and B should be de- 
fined explicitly as datanames. Ad- 
ditionally , an Ais X'Cl', not x'O1'! 
and Bis X'C2', not 'X02'. 
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DOS/360 PROGRAMMING DISK WORK FILES 


eo a ecesrany Ae x EONS S cones rea, aa eee ace i athe se = we Sort rane im = forename 
C NUE lg: Shing: wel wen iete | eterene De. ees ee Oe ere oe Oo 6 were). Seale es eee) 28 ie. Die, 65-6 oe 0150 ee wl Dare oe.) Soak wee OC Se 
eee : | : feat ee rst ee Pat _ _ 
2 MOP] NOP MAINLINE OPEN SWITCH 
2 OREN FPILENARE _ 
L. KV I NOPLT+1—-eX'"FO! ALTER OPEN SWITCH TQ PROCEED TO MAINLINE. 
De 2 ee eee sae oes 
6 *%* DETERMINE IF ADDITION TO EXISTING FILE ARID “BRANCH 4 ACCORDINGLY. | 
fe Bee ; : a! ee ne a eres Somerton ee 
Boxe TF STARTING AT BEGINNING OF FILE ESSiie- errs 0: Pre. IRS TE TRACK « 
Da ee eee a ame ye a ar ee a Sa eae a eee he er, 
10 * IF ADDING RECORDS TO AN EXISTING FILE .. . 
12 POINTS FILENAME 
13 READ PILENAMEs SOs 1/0. AREA .READS FIRST RECORD: ON FILE. 
14 GHECK FILENAME | 
15 rKMVC SAVEL(6) I/O AREA SAVE HOTE 1 
16 MVC SAVE2(6),1/0 AREA+6 SAVE NOTE 2 
17 LA Ze SAVE? = 
1& POINTR FILENAME, (2) 
19 READ FILENAR |E 4 SGs1/0 AREA READS LAST BLOCK WRITTEN PREVIQUSLY 
20 CHECK FILENAME 
2] MV I MOP2Z+tLsX!tFO! ALTER 1ST SWATCH TO BRANCH TO SEWRITE ROUTIME. 
22 . 
232 c98 FIND NEXT AVAILABLE LOGICAL RECORD WITHIN SLOCK AND GO TO MAINLIPE. 
Pa 
25 MAINLINE ADD LOGICAL RECORDS UNTIL BLOCK IS FILLED,THEN GO TO WRITE ROUTIME. 
26 kd 
7 WRITE K FILENAME 


28 NOP2 NOP REWRITE IST WRITE StiITCH 

29 WRITE FILENAME,SO,T/O AREA 

30 ** GO BACK TQ MAINLINE 8 
3 1 ox 

anew TG WRITE BACK THE FIRST BLOCK WHEN ADDING TO EXISTING FILE « « « 

34 REWRITE LA 2Px+SAVEL 

35 POINTW FILENAME, (2) 

36 WRITE FILENAME ,SQ@,1I/0 AREA THIS REWRITES BLOCK 

af hi I NOP2+1l<6¢X "007 CLOSES: FIRST WRITE SWI [CH 

38 la J QOUIT+1—,xX'O0O! TEC ES LE A. IBLOCK Has sBEET ee 

39 MV I NMOP3+1,X!'0O0! LNOTOAPES.. ti A BEOCK- FAS. Dp EeEH WRITTEN. | 
40 *%* THE 2 ABOVE INSTRUCTIONS ALTERS QUIT ROUTINE TO BYPASS SAVING NEW ADDRESS 
4) %%* BECAUSE THE PREVIOUSLY SAVED ADDRESSES ARE STILL VALID. 

42 %%* GO TO MAINLINE. 

2 3o0 ee FO END “nds. JOB sw ee — 

44 QUIT B SPLPNTW BRANCH IF NO BLOCKS WERE WRITTEN DURING THIS RU. 

45 3K 

46 %% OTHERWISE SAVE NEW ADDRESS FOR FUTURE RUNS ¢« « -« 

i CHECK FILENAME a Sem 

48 NOTE FILENAME 

49 ST ba SAVE ne ey et ee __ : _ - 
50 ; STH OysSAVEL+4 

5). «*« FILL OUT REMAINING PORTION OF BLOCK WITH SPECIAL CHARACTERS.’ 

52 WRITE FILENAME,SQ,I/0 AREA 

53 CHECK FILENAME ; Pe 

54 One B CLOSEGUT BYPASSES 2ND NOTE IF THE ABOVE WRITE 

55 TS THE ONLY WRITE ISSUED DURING THIS RUN. 


RC SiGe ee ee 
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DOS/360 PROGRAMMING DISK WORK FILES 


RC Terese) eiecaie: te 5 10 ee SS eye whe wre ee SO wee] ee Ow Wa SR aN eh SO ee ea ea FO SEE 
Fenner 10 essa Oh ad A) ESS te a es he Mero PLN settee ll © aie ol 2 2s roe) AVE er ey GO sn 
57 MOTE FILENAME | 
POR 5\ Saree eS COI OS 9 ee 
59 STH  OySAVE2+4 
Se a a te i 
61 > ROVE SAVEL & SAVE2 TG 1/0 AREA. | 
62. CLOSE FILENAME PUTS EGF AT BEGINNING OF NEXT. BLOCK. 
63% 


ale slp 
a 


0 INEQRHATION FROM MOTEL 
OPEN 


hd {i L = Z SO Lie oie ee nets 


65 FILENAME 
66.000... PUIRTS. FILENAME a te ted 
6f CHECK FILENAME 
68 WRITE FILENAME pSUPDATEs I/O AREA- pe 
69 CHECK FILENAME 

i RAM 
71 STOP 
Boe CR S822 228 el Sy |) A ce ne eae ae ee aes eee ee ees 
73 POINTH FILENAME, (2) 
ga a aE CS ig oe os esses ae oe She one e, on Gigs a ea eeeeece, 2 
75 GO TO ** FILL GUT REMAIMING PORTION GF BLOCK. 


———— 2 TN A I a TLR REALE SLE EEIURROA Meare rene en reer 
SEM — SR a AL NAT ene + 


B 


NO eee ede ccclecses Dee ceZeos 


A Se Ae 9 RCE UN AR nue enema MarE Sta pepe rare 
N 5 


De eeede e. 2:8 2) 2.0.9.2 freeee D lieth dtd 05 ote D eee Oe eee 2) 2. ¢:0.¢ te 2¢8 5 eee ek 
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DOS/360 PROTECTION OF COBOL ISFMS 
FILES 


The following field contributionhas not been 
submitted to any formal IBM test. Potential 
users should first evaluate its usefulness in 
their own environment. 


When a program check interruption occurs ina 
DOS COBOL program, the normal action is for 
the job to be immediately cancelled. If the job 
is one that has been adding records to an in- 
dex sequential master file, then this immedi- 
ate cancellation would make the file unusable 
because the file would not have been closed 
and, therefore, data pertinent to the file organ- 
ization would not have been posted in the file 
labels. 


A solution to this problem is to call an Assem- 
bler subroutine from the COBOL program that 
will execute the STXIT macro instruction. 

The STXIT macro provides the facility to es- 
tablish linkage from the Supervisor to a user's 
routine for Program Check Interrupt Handling. 
The user can utilize this routine to close his 
index sequential file and take any other action 
he desires when a program check occurs. 


Being able to close the file saves the user from 
having to recreate his ISFMS master file. 


Exhibit 1 shows a sample COBOL program 
which calls an Assembler subroutine (Exhibit 
2) to issue the STXIT macro. Notice that in 
Statement 13 of Exhibit 2 Register 14 (the re- 
turn register) has been incremented by a value 
of 8. This is to allow for bypassing the first 
8 bytes of the COBOL return coding. The 
reason for this is that COBOL clears all user 
program check routines on normal returns 
from a-call (only when you have arithmetic 
statements; otherwise, it does not). 
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DOS/360 PROTECTION OF COBOL ISFMS FILES 


LINE NO. SEQ. NO. SCURCE STATEMENT — 
1 _ _IDENTIFICATIGN DIVISICN. ; 7 
2 PROGRAM-ID. @BLDEMPe. 
3 DATE-$ WRITTEN CCTCBER 17,1967. 
— 4& © ENVIRGNMENT DIVISIGN. 
5 CGNFIGLRATICN SECTICN. — 
6 “SOURCE-COMPUTER. IS8¥—-360 F30. 
7 OBJECT-COMPUTER. IBY-360 F30. 
— — 8 ~ JNPUT—GUTPUT SECTION. 
| 9 FILE-CCNTRCL. 
_ 10 “SELECT EMP-CTL ASSIGN TO aSYSO10e DIRECT-ACCESS 22! 
ll ACCESS IS RANDOM 
12 ORGANIZATICN 18 INDEXED 
13 SYMBOLIC KEY IS SYM—KEY | — 
—_ 14 ~ RECORD KEY IS REC-KEY. 
15 SELECT INPUT-FLE ASSIGN TQ &SYSOQL1G@ UNIT-RECORD 2541 
16 DATA DIVISION. aaa | 
17 FILE SECTION. 
"yg. ©)6FD.. UmEMP-CTL, Oo 
19 BLGCK CONTAINS 20 RECGRDS, 
20 RECORDING MODE IS Fy 
21 LASEL RECCROS ARE STANDARD; 
22 BATA RECCRO IS EMP-CTL—-R. | so — 
23 Ol EMP-CTL-R. 
24 O02 EMP-NME PICTURE X5228. —* 
en ee O2 REC-KEY. 
26 O03 EMP-NC PICTURE XZ5n. aa 
27 C3 P-EMP-NC PICTURE xX@2q. 
28 C3 SUPM-CD PICTURE X%ln. 
— 29 C3 YR PICTURE X32a. 
30 C3 MC PICTURE X¥%2u0. a =—— 
31 O02 IND-NG PICTURE X#30. 
32 O02 BATCH-NC PICTURE X%4qa. 
_ oe O2 TAX-hAG PICTURE X210c, JUSTIFIED RIGHT. 
— B4& O02 EMP-CT PICTURE X%5n. a : 
a 35 FD INPUT-FLE, RECORDING MODE IS Fy LABEL RECORDS. 
36 ARE OMITTED, DATA RECGRD IS INPUT-REC. | 
3 01 INPUT-REC. 
38 ~ Q2 IBATCH-NC PICTURE X%40. 
39 O2 FILLER PICTURE X%1a0. 
40 O02 ISUPM-CD PICTURE X#ino. 
7 41 O2 FILLER PICTURE X30. 
42 O02 IMO } °£PICTURE X32n 77 a 
43 02 IYR PICTURE X%2a. 
44 O02 FILLER PICTURE X%30. : 
45 O02 IP-EMP-NO PICTURE X%2a. 
46 — “02 FILLER PICTURE Xo Se 
47 O92 1EMP-NO PICTURE X#5n. 
48 O2 ITEMP-NME PICTURE X2#22n0. i 
49 O02 FILLER PICTURE X%120, 
_ 50 “02 ITAX-kAG PICTURE 9290, —_— 
51 C2 FILLER PICTURE xZ5a. 
Qe eee 2 LIND=NG PICTURE x238. _ —~ 
53 O02 FILLER PICTURE X25a. 
54 “WORKING-STCRAGE SECTICN. ” 
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@ ‘DOS/ 360 PROTECTION OF COBOL ISFMS FILES 
LINE NO. SEQ. NO. SOURCE STATEMENT Se 7 
55 77 SYM-KEY PICTLRE X¢¥1l2a0. 
56... 4? THKAG PICTURE TS 9959 VALUE IS ZEROES. | 
57 PROCEDURE CIVISICN. 
58 “ENTER LINKAGE. i 
59. CALL @STXITPCa. - 
60 “ENTER CUBCL.- 
61 FST. OPEN CUTPUT f£MP-CTL INPUT INPUT-FLE. 
_- ~ 62 “BEGIN. READ INPUT-FLE AT END GO TO END-RTN. 
63 MOVE IEMP-NME TC EMP-NME. 
BGT meee "MOVE TP-EMP-NG TOC P-EMP-NOL 
65. MOVE ITEMP-NO TC EMP-NQ. 
66 MOVE TYR TO YR. 
67 MOVE IMO TC MO. 
- 68 MOVE LTINO-NC TO IND-NO. 
69 MOVE IBATCH-AG TC BATCH-NO. 
10 MOVE ITAX-sAG TO TAX-WAG. 
71 MOVE SPACES TO EMP-CT. 
“TF2 —. MOVE REC-KEY TC SYM—-KEY. 
73 MOVE ISUPM-CD TO SuUPM-CD. 
74 EDD OTTAX=WAG TOC THAGS 
05 WIE. WRITE EMP-CTL-R. 
76 | GO 1C BEGIN. eee 
77 END-RIN. CLOSE INPUT-FLE, EMP-CTL. 
78 STGP RUN. — 
79 ENTER LINKAGE. 
80 ~ ENTRY eCLCSEa. 
81 ENTER COBOL. 
82 CLOSE EMP-CTL INPUT-FLE. 
83 | DISPLAY @FILES ARE CLGSED@ UPCN CCNSOLE. 
84 ~ STOP RUN. an 
Exhibit 1 
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DOS/360 PROTECTION OF COBOL ISFMS FILES 


STMT SGURCE STATEMENT _ DOS CL2-4 12/22. 
1 STXITPC START O 
2 - USING *,15 COBOL LOADS REG 15 
3 — SAVE %14,120 ~ SAVE REGISTERS —_ 
4+* 360N-CL-453 SAVE CHANGE LEVEL . 2-0 
5+ STM | 14512,1244%21442-314420/16*160231 30 _ 
6 LA ae SAVEAREA AREA FOR SUPVR TO STORE PSW & REGISTERS 
7 LA = -OyPRGCHK ADDR OF USERS PROGRAM CHECK RIN a 
8 STXIT PC» 30H, Zio 
“G+* 36C0N-CL-453 STXIT ~ CHANGE LEVEL 2-0 
10+ DC OH209 
11+ SVC 16 | | | 
12 LM 1471251244*31442-214420/15*160%139 RESTORE REGISTERS 
13, A 14,K8 BYPASS COBGLS CLEARING OF PROG CHK RTN 
—14— _BR 14 RETURN TO COBOL PROGRAM 
@ | 15 SAVEAREA DC SDa0a SUPVR WILL STORE PSW & REG 0-15 HERE 
16 DS _ OF ; 
- Exhibit 2 
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DOS/360 PROTECTION OF COBOL ISFMS FILES 


17 K&S °»&«O Fa8a 
18 PRGCHK BALR. 2,0 
1S USING ¥,2 
20 L #VZPCCLOS J} 
~~ 2] LA 13;CBLSAVE 
22 BR 1D... 
23 CBLSAVE DC SDa0a 
24 END | 
25 #VEPCCLGSEQ 


ornare tS aN = 


USERS PROGRAM 


GO TO COBOL RTN TO CLOSE FILES 
AREA FOR COBOL PROG TO SAVE REGS 


CHECK RIN 


15,#VZPCCLOSEG ADOR OF CCBOL PROGRAM RIN TO CLOSE FILES © 


eee 


ADDR OF AREA FCR COBOL TO SAVE REGS 


Exhibit 2 (Continued) 


DOS/360 COBOL USE OF DISPLAY TO SYSLST 
CLARIFICATION 


The use of a DISPLAY to SYSLST in a label 
handling declarative may force an OPEN on 
SYSLST. 


When the user is handling his own labels ina 
declarative section, the system will transfer 
control from the transient OPEN routine to the 
user's label routine. IF SYSLST is not OPEN 
and a display to SYSLST is issued in the label 
routine, an OPEN will be attempted. As an 
OPEN routine is already locked into the trans- 
ient area, the OPEN for SYSLST will be inval- 
id. A dummy display to SYSLST will have 

to be issued prior to the OPEN statement, 
using the declarative section. This subject 
will be clarified by a TNL to the Specification 
Manual. 


DOS/360 PL/I- CARRIAGE CONTROL FOR 
RECORD I/O 


The following technique, from an IBM Field 
Systems Center, has not been submitted to any 
formal IBM test. Potential users should first 
evaluate its usefulness in their own environ - 


ment. 


The attached listings give a reasonably conven- 
1ent method for first character forms control. 
The theory behind this technique is to replace 
the DT F-A and DTF-T that were generated by 
PL/I. This is easily accomplished by assem- 
bling those tables separately and placing them 
on SYSLNK in front of the PL/I program to be 
link-edited. Also, there is a listing of anAs- 
sembler subroutine for testing for the occur- 
rence of print overflow. 
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Exhibit 1 shows the assembly of DTF-A, DTF- 
T, and buffers for the print file. Because op- 
tion LINK was set, the output of the assembly 
will be placed on SYSLNK and will be the first 
control section input to the linkage editor. 
Exhibit 2 illustrates the Assembler subroutine 
for print overflow. This program uses the 
standard linkage set-up discussed in DOS PL/I 
Programmer's Guide, page 37, Exhibit 3 
shows the PL/I program. The file name in the 
PL/I program must agree with the control sec- 
tion name of the DTF-A assembly. 


1130 FORTRAN ERROR CODE CORRECTION 


The following is a correction to one of the 
FORTRAN Error Codes of the 1130 Disk Mon- 
itor, as listed in Table 9 of C26-3717. 


Error Number C00. Program length exceeds 
capacity. The source program and the sym- 
bol table will not fit into core; thus, the source 
program must be shortened or the number of 
statement numbers decreased or both. 


@ DOS/360 PL/I-CARRIAGE CONTROL FOR RECORD I/O 


SET DATE=91/03/68,CLODK=990/09/09 
ASSGN SYSIN,X*COC! 
_ASSGN SYSLST,X#COEt 

ASSGN SYSPCH,X!GQD! 
OT WOE I I ac Sn Dass tstes ond Nn sti pele teres aan ahah cance 
// GPTIGN LINK sNODECK,SYM%,50C, LISTX | 
_f/ EXEC ASSEMBLY 
FILEX START 


cor ee ete ee ee er ee 


DC XPO9' 
DC AL3(0) 
DC X45! 
DC X*O08 
DC AL2(132) 
‘DC AL4(0) 
_ OC  AL4(AREAL) OO 
DC AL2(132) | 
DC AL2(0)} 
aye AL2(132) 
_FICEY  DTFPR IQAREAL=AREALs LOAREA2=AREAZy CTLOHR=ASA ys DEVAIDR=ESYSLSTy  X 


ent eee  E Sees 4 par em we ae +. et oe ee te ee ee 


A SE te EEA Se 


a 


a rs cr nn tn = tr oa 


BLKSIZE=132,D0EVICE=1403, IGREG=(2),PRINTOV=YES. 


a a a a A A NN A IN wa 


AREA2 OS  CL132 | 
__ENTRY FILEY 


END 


ee cee cee ere TS ee A RE a NAR TNE cine i 
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DOS/360 PL/I- CARRIAGE CONTROL FOR RECORD I/O 


__ s/ EXEC ASSEMBLY 
OvVRFLO START 
Ee 1G Gi | 2 eee ee 
SAVE (14,12) 
eee eee Le eo ee 
Lb 7,001) 
LA 1,PBL 
-EXTRN FILEY,IJKSZCN 
een TOnN TPES ©: (6 SERN 05) 2 | 
PRTOV FILEY,12,SKIP 
_ _-MVI Ol7),C*Ot 
B RETURN | 
_ SKIP MVI O(7),C'1* 
RETURN  L (13,4(13) 
_ RETURN (14,12) 


ee. rr 


2 EN RR A a ee 


me eee ee a a ee ae a en ee +2 2 ee 


Ae NS oS 


re ree ec 


DS OF 
ge a OO. 
DC AL3CINDIC) 

2 iis SOG A(8C) 

INDI DC 4X*C! 


1* 
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| {[/_ EXEC PL Sane SA a Oo 2S aN ene as eee 


ASA: ROCEDURE UPTIONS (MAIN); 
nC Se eee en eet 
~FILEA FILE INPUT RECORD a 
ENVIRONMENT (F(80) MEDIUM (SYSTPT,2540) BUFFERS(2))3 
DECLARE 
_FILEX FILE OUTPUT RECORD _ ed as ste a a eat fae, ee 
“ENVIRONMENT (=(132) MEOIU4 (SYSLST,1403) BUFFERS(2)); 
DECLARE 
INPUT CHARACTER(89)) 
ieee eC ee tcape pesca te 
2 OUT2 CHARACTER (B80), 
2 FILLER CHARACTER (52)3 


DECLARE B CHARACTER (1) EXTERNAL3 /* PARAMETER FOR OVERFLOW */ 
OPEN FILE (FILEA), FILE (FILEX)$ ee eee 


~~ eae = ein eemcnameraemigte 
ene verenemn: 


en re A A A TN siete ont emer 


ON ENDFILE (FILEA) GO TO END; 


B='0!' et wi Sede ep eR oR ee ele chet es ee 


“READS READ FILE (FILEA) INTQ CINPUT)3_ 
x FIRST COLUMN JF INPUT CARD USED FIR ASA CARRAGE CONTRIL #/ 


OUT2=INPUT ; 
WRITE FILE (FILEX) FROM (OUTPUT) S 


nc a ES RR AR 
ee cn ne TN A t/t lh eat ee em ee ene nee ne ee 


CALL OVRFLOG (8); “7% TEST FOR OVERFLOW */ 
__IF B='1' THEN GO T3 HEAD; | 


fee eel ee eke eg a A I A TR NR A RR 


~ GO TU READ; 
SA RD 3h D2 I I IN i 

WRITE FILE (FILEX) FROM (3UTPUT); 

____ GO _ TO READ; 


END: END; 


ee a ch NR AN | RNR I = NE A 


fT EXEC. TNKEDT 


SPACE 1 

QSPACE 2 

-~SPACE 3 

Pe a a a ee ee ee RE ee eee ener oe wal epee eee 
| Exhibit 3 


a rere te 
oe te ne A a ey Se em 
re a 


NEW TYPE II PROGRAMS * 


The following are the abstracts of programs which have been recently made available from 
the Type II] library. 

The program, along with its complete abstract, will be incorporated in subsequent issues 
of the Catalog of Programs. 

Programs may be obtained by submitting a properly completed ''General Program Request 
Card" (Form Number 120-1145-1) to the Program Information Department, 40 Saw Mill River 
Road, Hawthorne, New York, 10532. 

These programs and their related documentation are distributed by IBM in the author's 
original form and have not been subjected to any formal testing. | 

Any discussion of Type Il Programs must emphasize the following points: 

1. Type UI programs are not part of the IBM product line, as are Programming 

Systems (Type I) or Application Programs (Type II). 

2. Type III programs have not been subjected to any formal product test. 

3. Recipients of Type II programs are expected to make the final evaluation as 

to the usefulness of the programs in their own environment. 

4. There is no committed maintenance for Type III programs. However, any 

changes the author chooses to make will be announced in subsequent issues 
of the Catalog of Programs. 


* NOTE: THE CUSTOMER MUST BE INFORMED THAT THE ABOVE APPLIES TO 
ANY OF THE FOLLOWING TYPE II ABSTRACTS FURNISHED TO HIM. 
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S/360 A SIMULATION, EVALUATION AND 
ANALYSIS LANGUAGE, The Simulation, Eval- 
uation and Analysis Language (SEAL) program 
consists of a compiler and an execution time 
package which runs under OS/360 with one pri- 
vate disk pack and 215 K bytes of core storage 
exclusive of OS requirements. SEAL is a high 
level discrete digital simulation language which 
includes the analytical capability of FORTRAN 
IV-G and a report generator to facilitate evalu- 
ation of results. 


SEAL features are: automatic simulated time 
accounting, dynamic memory allocation, list 
manipulation, structured and dimensioned list 
members, dimension free structured arrays, 
and operations on character strings, bit strings, 
integer, real, complex and logical variables. 
SEAL also includes compile and object execu- 
tion time source language diagnostics, ad hoc 
communication with the model, dump, trace 

and model maintenance facilities. No knowledge 
of JCL is required to run standard jobs or to 
use any of the above facilities. 


SEAL is implemented in SEAL, assembly lang- 
uage and a few FORTRAN routines. 

Ordering Procedure: Order File Number 360D- 
15, 1.005. 


The program material is available on a 9 track 
DTR only. 


No tape submittal is required. The DTR will 
be provided by the Library. 

S/360 SPEARMAN RANK-CORRELATION 
COEFFICIENT COMPUTATION S/360. The 
program computes the correlation between the 
rankings on two attributes within a sample 
comprising N observations. The attributes 
being ranked might be test (or course) grades 
in two subjects, or aptitude and achievement 
scores, etc. (In these examples, each student 
comprises an observation.) Ranks for each 
attribute as well as the correlation are com- 
puted by the program, according to the Spear- 
man convention. The program was written in 
BPS FORTRAN and will execute on a minimum 
Model 30 or larger System/360. The source 
program is compatible with DOS FORTRAN 
and 1130 FORTRAN with appropriate changes 
of I/O unit logical addresses. As dimensioned 
in the source program, up to 99 observations 
are accepted, with up to three-digit raw scores 
for each of the attributes. In this form, the 


Issue No. 68-03 


object program occupies 4034 bytes including 
data storage. Input is incard form, with a 
control card stating the value of N, followed by 
the raw scores for both attributes at one obser- 
vation per card. Multiple samples may be 
stacked. Output is printed on-line. The pro- 
gram provides the practicing statistician the 
computational convenience of applying one of 
the standard non-parametric test of his disci- 


pline. 


Ordering Procedure: Order File Number - 
360D-13. 3.001. 


The program material can be obtained in card 
form or on one 9 track or 7 track (Data Con- 
version feature required) Distribution Tape 
Reel (DTR). 


The requester must indicate whether a 9 track 
or 7 track DTR is required. If not specified, 
a 9 track DTR will be provided. 
No tape submittal is required. The DTR will 
be provided by the Library. 


S/360 INTERSECTION DETECTION IN THREE 
DIMENSIONS: A TOOL FOR COMPUTER AIDED 
ENGINEERING DESIGN AND GRAPHIC DIS- 
PLAY. The intersection Detection Program 
(ID/3D) is a system of FORTRAN subroutines 
that enables the user to: 1) define 3-dimen- 
Sional convex objects bounded by planes and 
quadric surfaces; 2) define line segments in 
3-space; 3) test for intersections between 
pairs of objects; 4) test for intersections be- 
tween segments and objects. The program is 
primarily a tool for the solution of pipe routing 
and component placement problems. The seg- 
ment-object intersection test can also be used 
to solve the hidden line problem in computing 
graphic displays of 3-dimensional objects. 


The program can be run under BPS or OS, and 
requires 128K core storage. The amount of 
core needed for compilation and linkage editing 
depends on the version of the compiler and link- 
age editor being used. The program has been 


4 compiled and tested under BPS with 128K stor- 


| age, and under OS FORTRAN G and FORTRAN 
; H with 512K storage. 


Ordering Procedure: 
08. 7.004. 


Order File Number 360D- 
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The program material can be sbtained on one 
9 track or 7 track (Data Conversion feature 
required) Distribution Tape Reel (DTR). 


The requester must indicate whether a 9 track 


lord 


or ¢ track DTR will be provided. 


No tape submittal is required. 
4 ® % ° 
pe provided by the Library. 


The DTR will] 


5/360 A CLUSTER ANALYSIS AND TAXONOMY 
SYSTEM FOR GROUPING AND CLASSIFYING 
DATA. Attempts to find the optimal way of 
organizing a set of objects into groups, accord- 


Each object is 
Each 
criterion is a function of a partition of the set, 
and is intended to be a measure of the struc- 
ture of that partition. 


ing to one of several criteria. 
represented by a set of observations. 


Two measures are based 
on similarity coefficients computed between 
each pair of objects, and depend on a param- 
eter running from 0 tol. A tree structure can 
be created by running at several levels of this 
parameter. Other measures use variance- 
covariance criteria. The program searches 
for the optimal partition via a hill-climbing 
routine, which sifts through the partitions of 
the set, and which is designed to be effective 
not only for the encoded criteria, but for any 
criterion which can be formulated as a func- 
tion of the partions of a set. For similarity 
based measures, the program will accept 
mixed discrete, rank-ordered and continuous 
data (decimal or integer) in a general input 
format and scales all input. Written G level 
FORTRAN and 360 assembly language and 
designed to run on the IBM/ 360 under OS. 
Three versions exist, for 128k ,256K and 


512K machines. 


Ordering Procedure: Order File Number 
360D-06. 7.005 (128K Version) 
360D-06, 7, 006 (256K Version) 
360D#06, 7, 007 (512K Version) 


Tne program material can be obtained on one 
9 track or 7 track (Data Conversion feature 
required) Distribution Tape Reel (DTR). 


The requester must indicate whether a 9 track 
or 7track DI Ris required. If not specified, 
a “ track DTR will be provided. 


No tape submittal is required. Tne DTR will 


be provided by the Library. 


a xt macomre 
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S/360 SYSTEMS CARD ABSOLUTE LOADER 
PROGRAM (SCALP SYSTEM/360 MODEL 20 
TAPE PROGRAMMING SYSTEM, SCALP is 
the system loader routine extracted from the 
Model 20 TPS Card Basic Monitor (360U-CL- 
137) which has been modified to run as a user 
program under the TPS tape resident system. 
SCALP permits the user to load RPG and BAL 
object decks from SYSRDR (2501) without dis- 
rupting a tape resident job stream. 


When called into core from core image library, 
SCALP will perform loader functions for TXT, 
XRF, END, and REP cards and, unless over- 
layed, will remain core resident to execute 
FETGH for next phase deck. ELOJ will over- 
lay SCALP with SYSEOJ-job control. Written 
in BAL, SCALP loads at hex 680 and extends 
to 7D3. 


Minimum machine configuration is that of TPS 
but present version of SCALP restricts SYSRDR 
to a 2501, Models AL or Ad. Interrupts are 

cleared to allow double 1/O areas for 2501-A2. 
Ordering Procedure: Order File Number 360D- 
O1.1.003. 


Distribution will be in card form only. 


JOB REWIND FOR S/360 MODEL 20 TO RE- 
WIND AND OPTIONALLY UNLOAD SPECIFIED 
LOGICAL TAPES, This program will greatly 
enhance the stacked job environment of the 
Tape/Disk Model 20. Job Rewind will rewind 
specified logical tape drives and optionally un- 
load them. Device end is not significant. Thus, 
the next job is begun as the tapes start spinning. 
The source language is BAL and is designed to 
work with the tape or disk monitor. 


Ordering Procedure: 
00. 3.013. 


Order File Number 360D- 


Distribution will be in card form only. 


1130 ERGO: ELEVEN-THIRTY REPORT GEN- 
ERATING OPERATION, Report Generator for 
IBM 1130. Single input file, either card or disk. 
Print and / or punch output. Execution - time 
I/O overlapped. Specification language rem- 
iniscent of 1401 FARGO, but not so limited. 
Provides alphanumeric manipulation, full arith- 
metic facility with decimal scaling, user indi- 
cators, condition testing with branching, five 
levels of total, page numbering, etc. Highly 
diagnostic compiler gives optional program 
listing. Compile and go operation. 


’ 
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Requires single disk, 8K, 1442, 1132. Written 
in Assembly language. Runs under Disk Moni- 
tor. Occupies five cylinders on disk. 


Ordering Procedure: Order File Number - 
1130-03. 5.001. 


Distribution will be in card form only. 


IBM-1130 FORTRAN STUDENT SCHEDULING 
PROGRAMS, This set of 1130 FORTRAN coded 
programs can schedule 6,000 students based 
upon 1,000 available course sections of which 
270 are different master class courses. Writ- 
ten in three disk-oriented programs, the first 
creates the disk master schedule file, the sec- 
ond creates the disk student request file, and 
the third schedules the student requests against 
the master schedule. A listing is produced for 
each scheduled student containing information 


about his shceduled classes and his seat number. 


The programs are easily modified to meet in- 
dividual scheduling requirements. This in- 
cludes 1) increasing the number of students, 
class courses and sections, and 2) changing 
the priority inwhich the students are scheduled 
into their requested courses. An optional pro- 
gram to print the master schedule showing 
room and final seat allocations is also included. 
The programs are run under 1130 Monitor 
(Version 1) supervision. Minimum configur- 
ation -CPU 1131-2A/4096 words with disk; 
1442-6 card I/O and 1132 printer. 


Ordering Procedure: Order File Number 
1130-15. 4. 004. 


istribution will be in card form only. 


INTERRUPT SERVICE SUBROUTINE PCCA \ 
FOR INCLUSION IN THE IBM 1130 DISK MON- 
ITOR SYSTEM FOR HANDLING DATA TRANS- 
MISSION BETWEEN IBM 1130 AND IBM 1070/ 
1050 SYSTEMS. This Interrupt Service Sub- 
routine is to be included in the IBM 1130 Disk 
Monitor System and handles the communication 
of the IBM 1130 with Teleprocessing Systems 
IBM 1070, Model lor 2, IBM 1050 on one line. 


Minimum Machine Configuration: IBM 1130, 
4,096 words, one disk drive. IBM 1442 for 
program input. Communications Channel 
Adapter CCA (RPQ 835 463, 134 baud, or RPQ 
835 464, 6000 baud). External Interrupt (RPQ 
Y 47 784) is optional. 
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Core storage required: ISS PCCA 1,784 words 
plus 40 words in COMMON area plus ca. 10 
words for extension of ILS 04. 


Ordering Procedure: Order File Number 1130- 
03.4. 004. 


Distribution will be in card form only. 


1130 NO SPACEBAND, The No Spaceband Pro- 
gram is a modification to the Type Composition 
Program for the 1130 (1130-DP-04X) Version 

1 Mod Level 1, that eliminates Spacebands in 
justified text. This is accomplished by re- 
placing the spaceband with combinations of 

five fixed width mats. The advantage of this 
program is increased line caster through put 
ey reducing down time caused by spaceband 
jams and the elimination of spaceband produc- 
ed text errors. The program minimizes the use 
of CN and thin spacequads. The core require- 
ments are 82 positions. No compilation of the 
Type Composition Program is required. The 
NOBAND Program is written in assembler 
language. The 1130 Type Composition program 
(1130-DP-04X) and the minimum machine con- 
figuration for the Type Composition Program 


are prerequisites for installation of the NOBAND 
Program. 


Ordering Procedure: Order File Number 1130- 
06. 6.008. 


Distribution will be in card form only. 
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SELECTED SHORT SUBJECTS 


The purpose of Selected Short Subjects is to 
bring together and highlight concise, factual 
and timely information which will indicate 
that action is to be taken by the IBM repre- 
sentative whose accounts are affected. 


1. DOS/360 COBOL Version 2 Performance 


Apparently, some users are not aware 
that the performance of DOS/360 COBOL 
D Version 2 was below that experienced 
with Version 1. This has been corrected 


in DOS Release 15, and Field Engineering 


has PTF's for releases prior to 15. Cus- 
tomers using DOS/360 COBOL should im- 
plement Release 15 and take advantage of 

better performance. 


2. S/360 Model 30 24K Incremental Mem- 
ory 


You should be aware of potential pro- 
gramming systems problems on 24K 
machines. Those which are currently 
identified are noted below for your 
guidance. 


1. BOS/360, or BPS/360, must be 
Release 13 or later to be used 
(See Program Announcement P68- 


6). 


2. The 2030 must be at EC level 
126752 or above, and the Micro 


EC level must be 128063 or above. 


(P68~6) 


3. DOS/360 should be Release 14 or 
later (Preferably Release 15). 
Earlier releases will not IPL on 
a 24K system if they have an 8K 
or larger supervisor. | 


3, S/360-20 Submodels 3 and 4 Throughput 


There appears to be some confusion re- 
garding internal performance of the new 
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models of the S/360-20. The Product 
Announcement letter (268-21) indicated 
that throughput would average 70 per- 
cent of that of Submodels 1 and 2. This 
reduced throughput is not just a reflection 
of I/O speed but also of CPU instruction 
execution time. 


All models of the S/360-20 have a 3.6 us 
memory cycle for lbyte. However, the 
Submodels' 3 and 4 execution time has 


been increased. A TNL will be released 


(and announced in a PRL) shortly that will 
enable the field to desk time internal 
execution speeds of the new Submodels. 


IBM 1800, 1070 and 1080 Assistance 


An article on the above subject was pub- 
lished in issue 68-02 under ''Selected 
Short Subjects", page 2. The author has 
provided the following clarification which 
obsoletesand replaces the article in 
issue 68-02. 


The SDD C/DA resident support repre- 
sentative in the 1800 DACS Centers 
should continue to be the first point of 
contact for assistance with system de- 
sign problems, details relative to pre- 
viously quoted RPQs and sales calls, 
as outlined in DPD Blue Letter 266-67. 


To supplement this service a telephone 
system has been established with SDD 
Special Systems Design (Department 
590) in San Jose. This system was 
designed to provide to the field, when 
directed by the Resident SDD Represen- 
tative, a rapid response to customer's 
requests for special equipment and 
assistance unique to C/DA applications. 


Your request, realistically defined and 
properly channeled, will assure you of 
receiving the proper assistance. 


Telephone: San Jose Tie Line 622, or 
Area Code 408, 227-7100, Ext. 3714. 
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OS/360 COBOL F PLANNING INFORMATION. 


The following is provided for planning purposes 
only. The actual availability will be as announ- 
ced through the official IBM procedures --the 

Program Announcement letter. The availability 


may possibly be late 1968. 


The following improvements are planned for 
COBOL F: 


1. The ability to override DCB parameters 
at execute time is now available in a lim- 
ited form for COBOL F (see Page G3 
Installation Newsletter 68-02). This will 
be expanded to include variable length 
records. 


Ze A message will be provided for a missing 


DD card indicating the file, at object time, 


that did not have a DD card. 


3. A condensed listing including only the 
first instruction for each COBOL verb 
will be available as a compile time option. 


4. Map suppression will provide a compile 
time option to suppress generating a 
Procedure Map if an E level diagnostic 
occurs during compilation. 


De A compile time option will be provided to 
separate the Procedure and Data Division 


Maps. You will be able to specify a Pro- 


cedure Map or a Data Map or both. 


OS/360 MVT 2250 SUPPORT PLANNING 
INFORMATION 


The following information is provided for 


planning purposes only. The actual availability, 
if any, will be as announced through the official 


IBM Announcement procedure; the Program 
Announcement letter. . 


It is presently planned that the IBM 2250 Dis- 
play Unit, Model 1 will be supported as the 

System Operator's Console as an optional fea- 
ture on Models 50, 65, and 75 of the IBM Sys- 


_ tem/360 Operating System and may be available, 


for MVT users only, 2nd half of 1968. This 
support is identical to that provided for MVT 
with S/360 Model 91 in OS/360 Release 14. 
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Experience has shown that throughput and oper- 
ational control are materially improved through 
the use of this feature. 


The 2250 Display Unit can be specified as a 
primary console at system generation time. 
It enables the operator to perform the follow- 
ing functions: 


1. Observe displayed messages from the 
system and from the problem program. 


2. Reply to messages which require replies. 
3. Issue commands to the system. 


4. Request optional displays of Unit Status 
information and Command formats. 


If either an IBM 1052 Printer-Keyboard, ora 
composite console, is specified as an alternate 
console, a hard copy of commands and mes- 
sages is provided on the 1052 or the composite 
console printer. 


Use of the 2250 as an operator's console pro- 
vides the following featues: 


1. Faster communications between the oper- 
ator and the system. 


2. A display of more information than is 
feasible with a typewriter. 


Minimum System Requirements: 


1. IBM System/360 Computing System, Mod- 
el 50, 65, or 75 operating under MVT. 


2. IBM 2250 Display Unit, Model 1 equipped 
with the following features: 


A 4096 Byte Buffer 
Light Pen 
Alphameric Keyboard 
Character Generator 


Performance 


The 2250 Model 1 operator's console support 
requires 4K bytes storage in the resident nuc- 
leus and an additional 4K bytes in fixed main 
storage for unit status and command format 
options. 
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The 2250 Operator's Console support will be 
documented, until Release 16, with temporary 
SRL and PLM documentation. 


At Release 16, TNL's to the System/360 Oper- 
ating System SRL and PLM manuals will be 
available. 


S/360-20 DPS MODIFICATION 1 APAR 


Modification 1 (P68-26) of S/360-20 DPS con- 
tains a character in the label field of the last 
phase name in the Core-Image Directory that 
prevents execution of programs whose names 
are temporarily cataloged. The message 

OB 22 (phase not found) occurs and the job 
cannot continue. An APAR has been submitted 
and a PTF should be forthcoming. 


S/360-20 SUBMODELS 3 AND 4 DPS SORT/ 
MERGE ESTIMATES 


The Preliminary information in Exhibit 1 is 
an estimate of the time required to execute 
the Disk Sort/Merge of the newly announced 
S/360-20 Submodels 3 and 4. 


i 
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1130 SYSTEM IMPROVEMENT CONSIDER- 
ATIONS 


The following article discusses some systems 
considerations for the 1130. 


1. Productive Time Which Cannot Be Improved 
By Hardware Changes 


Some 1130 system components are avail- 
able only in one model. The typewriter, 
the console keyboard, the paper tape rea- 
der and the paper tape punch are four such 
devices (RPQs excluded). The reading/ 
writing speed of the disk is constant. 
However, because more disk drives may 
be added, certain other times relative to 
the disk (seeks, reading of overlays) may 
be reduced. They are covered ina later 
section. 


Zz Productive Time Which Can Be Improved 
By Hardware Changes 


There are five elements of productive time 
which may be improved by changing the 
model or speed of an 1130 component. 

They are a reduction in PLOTTING time by 
changing to a faster plotter, or a 2250-4 
display tube, and a reduction in CARD 
READING time, CARD PUNCHING time, 
and COMPUTING time by changing to fas- 
ter units. 


S/360-20 SUBMODELS 3 and 4 DPS SORT/MERGE ESTIMATES 


Time in Minutes 


Record File 12 K Core 16 K Core 

Length Size 1 Drive 2 Drives 1 Drive 2 Drives 

5000 7 5 6 5 

80 10000 9 9 

100 5000 7 6 6 5 

10000 12 9 

200 5000 9 8 

270 4200 15 13 

Exhibit | 
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a. Plotting 


There are two plotting speeds avail- 
able, tied to carriage sizes. The 
1627 Model 1 with an 11 inch car- 
riage is twice as fast as the Model 
2 which has a 29 1/2 inch carriage. 
However, most users have chosen 
one model or the other on the basis 
of carriage size rather than speed. 
A switch to the 2250-4 display tube 
may be a possibility. 


i 


b. Card Reading 


There are four different card rea- 
ders which may be attached to the 
1130 system, each with a different 
card-read time: 


Device Milliseconds per Card 
IBM 1442 Model 6 200 
IBM 1442 Model 7 150 
IBM 2501 Model Al 100 
IBM 2501 Model A2 60 


If user programs are in IBM-sup- 
©} 7 plied FORTRAN, none of the spec- 

ified card read time will be over- 

lapped with any other activity. 


With a 1442 Model 6 on the 1130, 
for example, and reading 10 cards, 
10 X 200 or 2000 milliseconds will 
be consumed. This is in addition to 
whatever manipulation must be per- 
formed on the data in those cards. 
In a FORTRAN program, the sys- 
tem must convert the Hollerith 
card codes to EBCDIC, break that 
down according to the specified 
FORMAT statement, and place 

the resulting data in the proper 
core location. 


The rated speed of the 1442 Model 
6 is 300 cards per minute, but this 
assumes that the 1130 reads a card 
every 200 milliseconds. Every 
card will take 200 milliseconds 
to read, but the system may not 
read a card every 200 milliseconds. 
| If intervening operations take 100 
milliseconds, it will read one card 
@ every 300 milliseconds, yielding a 
speed of 200 cards per minute. 


IBM 1442 Model 6 1 
IBM 1442 Model 7 
IBM 1442 Model 5 
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Rated I/O device speeds are difficult 
to use when evaluating potential 
system improvements. One must 
compare alternatives on the basis 

of the time per card that the CPU 

is unable to perform some other 
operation. 


Suppose the user has a 1442-6, and 
times one of his representative jobs. 
It reads 2000 cards, and runs for 
1200 seconds. The 1130 must have 
spent 400 seconds reading cards 


and 800 seconds in computation and 
other I/O. 


If he changed to a 1442-7, the card 
read time would drop to 300 sec- 
onds and the total run time would 
drop from 20 minutes to 18.3 min- 
utes. The use of a 2501-Al would 
cut the time to 16.7 minutes; a 
2501-A2 would cut it to 15.3 minutes. 


Card Punchin 


There are three different card punches 
available for use on the 1130 system. 
All three operate in the same mode, 
punching one column atatime. The 
models 6 and 7 both read and punch; 
the model 5 punches onlv 


Milliseconds per Card 
Column Punched or 


Spaced 


2.9 plus 12.5 per column 
6.5 plus 6.9 per column 
6.5 


plus 6.5 per column 


The overall speed is determined by the 


last column punched, rather than the 


number of columns punched. If the 
user skips the first twenty columns 
and punches into the 2lst, he has 

punched or spaced 21 columns, and 
the time for that number will apply. 


To continue the previous example, 
suppose that out of the 2000 cards 
read, the program punched into the 
first 20 columns of 500 of them. 
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For the 1442-6, the breakdown now 
becomes 


Read 2000 cards 400,000 milliseconds 
Punch 20 Col.,500 cards 131,250 "' " 
Compute & other 1/O __ 669,750 " " 


TOTAL 1,200,000 milliseconds 


With a 1442-7, it would become 


Read 2000 cards 300.000 milliseconds 
Punch 20 Col., 500 cards 68,250 " " 
Compute and other I/O 669,750" " 


TOTAL 1,937,000 milliseconds 


or 17.3 minutes 


With a 1442 Model 5 or 7 punching, 
and a 2501 Al reader, the time would 
be 15.6 minutes. The 2501-A2 would 
reduce the time to 14. 3 minutes. 


d. Printing 


Three different line printers may be 
attached to the 1130 system, each 
having different print and skip times: 


Device Time in Milliseconds 
Print 1 Line Skip 1 Line 
IBM 1132 
750 16. 
IBM 1403 Model 6 174.6 : 
IBM 1403 Model 7 100 5 


To illustrate the improvement possible 
in this area, consider another example. 
Suppose that a program which is essen- 
tially a card listing job, in a half hour, 
reads 1000 cards, prints 1040 lines, 
and skips 160 lines. This can be 
broken down as follows: 
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milliseconds 
Card Read Time (1442-6) 200. 000 
Print Time (1132) 1040 @750 789 ggo 
Skip Time 160@ 16. 2 2. 590 
Everything else 817, 410 
TOTAL 1, 800, 000 
milliseconds 
(30 min. ) 


If one replaces the 1132 with a 1403 
Model 6, the Print and Skip times 


drop to 

Print (1040 @174.6) 181,600 

Skip 160 @5 800 milli- 
seconds 


and, added to the card read time and 
the "everything else'' time, results in 
a total of 1, 199, 810° milliseconds, 
about 20 minutes, as opposed to the 
previous 30 minute figure. 


Note that despite this dramatic increase 
in throughput, the 1403 is printing at 
only 52 (1040/20) lines per minute, 

far below its rated speed of 340 lines 
per minute. The 1132 was also below 
its rated speed of 80 lpm, since it 
printed 1040 lines in 30 minutes, or 
34.6 lpm. 


This shows again that rated speeds of 
cards per minute, lines per minute, 
etc. , should not be used when inves- 
tigating alternate approaches to im- 
proving throughput. A usable figure 
is the lenght of time the CPU is busy. 


e. Computing 


The 1131 Central Processing Unit 

is available with two basic cycle times- 
3.6 microseconds (Models 1| and 2) 

or 2.2 microseconds (Model 3). In 
this area it is not quite as easy to cal- 
culate the improvement to be expected 
from the faster CPU. The problem is 
that one often does not know how much 
time was spent in computing before, 
(with a 3.6 microsecond CPU), in 
which case one cannot accurately de- 
termine the effect the 2. 2 microsecond 
CPU will have. 
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Let's review the previous example: 
1442-6 and 1132; 30 minutes run time, 
read 1000 cards, print 1040 lines, 
skip 160 lines. The times were: 


200,000 milliseconds 


Card Read as 
Print and Skip ee ae % F 
Everything else Penida Mal ses 


1, 800, 000 milliseconds 
(30 Min. ) 


TOTAL 


The only way one could determine the 
817,410 value was by subtracting one 
known value (I/O times) from another 
known value (total run time). 

If one knows that all 817, 410 milli- 
seconds were spent in computing, he 
can calculate that the 2. 2 microsecond 
CPU will do the same amount of work 
in 61% of that time, or 498,000 milli- 
seconds, a reduction of 5.3 minutes. 


If those 817, 410 milliseconds had 


included any disk operations, one could 


not have made the above estimates, 
since he would have had no way to 
determine the split between disk ac- 
tivity and computing. Aside from a 
good estimate, the only way to eval- 
uate the effect of a new CPU in this 
case would be to take the program to 
such an 1130, run it, and time it. 


3. Non- Productive Time Which Can Be Re- 


duced By Hardware Changes 


By definition, three items fall into this 
category: 


a) DISK seek, to get from one data record 


to the next. 


b) DISK seek, to get from data area to 
overlay area, and vice versa. 


c) DISK read to read overlay. 
Note that: 


a) will be required whenever data files 
are used. 


b) will be required whenever overlays 


are used. (SOCALS, LOCALS, AND/ 


OR LINKS); 


Issue No. 68-06 


Cc) will be required whenever both 


overlays and data files are used. 


The time requirements of all three are 
difficult to determine, so an exact an- 
alysis will not be attempted. 


There are two hardware changes which 
will reduce these times: 


l. more core storage, which will 
eliminate overlays and, therefore, 
Items b and c. 


2. more disk drives, which will allow 
a redistribution of files and over- 
lays, and reduce items a and b. 


a. Additional Core Storage 


Aside from programmer convenience, 
the main advantage in adding more 
core storage is its probable effect 

on performance, or runtimes. If 

the user can execute programs with- 
out any overlays, they can be expected 
to run at some ''top" speed. 


b. Additional Disk Drives 


Unlike core storage, which will prob- 
ably be augmented to improve per- 
formance, additional disk drives are 
likely to be considered primarily to 
increase capability-the capability to 
copy disks, the additional storage 
gained, etc. However, in many cases, 
the move from a single disk 1130 
system to a multiple disk 1130 may 
also be accompanied by a gain in the 
throughput or performance. Plan 

the system so that the LOCAL/ SOCAL 
overlays are on a cartridge other than 
the one on which the data files reside. 


1282 EC'S FOR IMPROVED PERFORMANCE 


Since the first customer shipment in 1965, a 
number of Engineering Changes have been re- 
leased which will significantly improve the 
reliability, service-ability and performance 
of 1282's. Records indicate that many of the 
1282's installed are not up to the latest EC 
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Level. These EC's require a substantial num- Exhibit 2 lists all the changes and the estimated 

ber of hours to install and not every change FE man hours required. Check your customer's @ 
will significantly affect the performance of all machines and establish a plan with FE--to im- 
machines. Special effort is needed to coordi- prove performance and customer satisfaction. 

nate the time with the customer and the IBM 

Customer Engineer and to install the signifi- NOTE: The ''Man Hours Required" shown in 

cant EC's. Exhibit 2 should be checked with local Field 


Engineering for accuracy. 
Exhibit 1 gives the benefits of the significant 


changes. 


1282 Imp roved Performance 


Significant Changes & Improvements Obtained 


Thru E.C. 


124391 Provides for the safety against erroneous reading 

of Farrington Font. Especially important where 
the customer is reading “unchecked" imprinted 
amounts. 


126011 improves throughput _ by allowing the C.E,. to set the S 
1282 for only one rescan, but that scan to be at 
the proper scanning level. 


126952 Improves the capability of distinguishing valid 
scannable data by "bianking" out invalid data, 
both above and below the scannable characters 
(available with 7B Font only). 


126967 Allows the 1282 to retain successfully read fields 
of wide density ranges via rescan. Mandatory 


all fonts. This has to be ordered as it is a 
"no cost" feature. 


132300 Improves the ability of the 1282 to read degraded 
1428E font imprinting. 


Customers reading only 
Farrington 7B Acct. No. should be at least up through B.C. 126952, 


Farrington 7B Acct. & Amt. should be at least up through BeC. 1260967 % 


1428 Normal Front should be at least up through EwCe. L26020. 
1428E Amt. and/or Acct. should be up through E.C. 132300. 
Exhibit | 
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Changes and FE Man Hours 


Eng. Change 


124759 
124769 
124391 

124770 
124774 
125313 

125315 
126011 
126018 
125322 
126020 
126019 
126959 
126952 


126953 


126972 
126974 
130026 
126002 
130003 
130029 
130032 
126967 


130039 
130028 
130036 
130045 
132300 


Field Bill 


487631 
487644 
487643 
487699 
487729 
487837 
487847 
488112 
488232 
488054 
488274 
488389 

5870000 

5870018 

5870019 

5870020 

5870031 

5870032 

5870049 

5870062 

5870065 
488094 

5870095 

5870081 

5870110 

5870119 


5870159 
5870079 
5870192 
5870223 
5870200 
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1282 Improved Performance 


Estimated CE 
Man Hours* 


Description of 
Improvement 


Diagnostic 

Farrington Font Substitution 
Farrington Font Substitution 
Non-Process run out 
Maximum punch suppression 
Recognition 

Rescan 

Rescan 

Special Symbol Recognition 
Meter 

1428 Normal Font Recognitio: 
Baseline 

Hi-voltage 


e 


» 


es 


Blanking 
Clipping Level Control 


Recognition 
Scanner Clutch 
9) Brush 
scan Card Lever 
Power Supply 
1428 E Font Recognition Part 
safety 
Extended Memory-.Amount 
Imprinting 
Feed 
Lamp 
Magnetic Drum 
Feed 
1428 E Font Recognition Part 
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Exhibit 2 


* Check with local Field Engineering for Accuracy 


this policy. 


You should be aware of 
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Automatic Calling Units (ACU) 801 type are 
provided by the telephone companies to oper- 
ate in conjunction with various Auto Call Fea- 
tures on the IBM 2701, 2702, 2703, and S/360- 
20. On each of these machines, the purpose 

is to automatically accept "dialing" digits from 
the computer and convert them to "dialing" 
information for the central office equipment 


without human assistance in order to establish 
a call. 
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Many customers would like to use the above 
arrangements to place calls over WATS or 
"tieelines' through their PABX or Centrex 
equipment which provides conventional tele- 
phone service for the computer site. This 
has advantages, in that the WATS lines and 
tie-lines can be accessed by telephones for 
normal voice use and by the computer for data 
use. However, if such usage involves dialing 
a few digits and then waiting for a second dial 
tone, the ACU801 can not be used. The ACU- 
801 recognizes a dial tone by actually sensing 
a grounded lead which occurs simultaneously 
on the telephone line. Once dialing has started, 
the ground remains, and the second dial tone 
is strictly audible. Thus, the ACU will ask 
for the next digit from the computer immed- 
iately after ''dialing'' the previous digit. 


If keeping the flexibility of multiple use is 
important, there are several possible solutions 
to this problem: 


1. Many Centrex CO installation (not CU) can 
make toll and tie-line calls without a separate 
second dial tone. Although this is nota 
direct answer to the above problem, it is a 
possible alternative. 


2. An (IBM) RPQ has been approved which 
alters the #1303 Auto Call Adapter (which 
provides Automatic Calling for the SDAI 
on the 2701). This RPQ{M36749-Auto Call 
Unit Digit Delay) delays the presentation of 
any digit to the ACU if the byte containing 
the digit also has a 1 in the high order bit 
position. The delay is adjustable, bv the 


Customer Engineer, from 3 to 6 seconds. 

A minor problem in using this seems to be 
that STRAM puts ones in the high order 
positions of all the digits, but this is easily 
corrected. Of course, for use on any other 
Adapter or machine, a new RPQ would have 
to be engineered. 


3. Operator intervention, at the PABX or at 
Centrex attendant positions could be used to 
temporarily assign such second dial tone 
circuits to the computer for direct use. This 
would probably requires some equipment 
arrangements with the telephone company. 

In this way, on a scheduled or demand basis, 
the stored number to be dialed would omit 
any "first dial tone digits’ normally re- 
quired to access the second dial tone. 
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4. The telephone companies have, on occasion, 
provided a special assembly switching ar- 
rangement to permit retermination of the 
desired line from PABX levels directly to 
the computer (automatic version of item 3 
above). 


In considering any of the above solutions, 
keep in mind that the telephone companies 

do not recommend data transmission on, or 
through, PABX's. In addition, any set time 
delay {if item 2 is used) will not be long 
enough all the time, and special recovery 
routines will be needed to avoid constantly 
redialing into a temporary extra long delay. 
The only protection, when dialing resumes 
before dial tone is present, is the ACR timer 
on the ACU. That time (7-40 seconds) has 
to completely run, starting after the last digit 
is presented. 


Finally, you should also be alert for the 
amount of line time actually required on the 
WATS or tie-lines. A traffic study may show 
that the computer needs such lines essentially 
full time. In such a situation, there is no 
advantage to shared useand direct connection 
removes the above problems. 


For information on obtaining RPO's, see the 
Sales Manual, page GI 3, item 5 under 
''Planning a Teleprocessing System". 


SECOM-TYPE It'S IN DEVELOPMENT 


Programs that are under development as Type 
III are no longer included in the TIE index. 


Beginning March 20, the former TIE abstract 
will go into SECOM. As before, submission 
of the abstract is no guarantee that the pro- 
gram will be completed. A program title, or 
a brief description of its intent, will be broad- 
casted and printed along with the normal SECOM 
abstracts. A more complete description of 
the program, and the person developing it , 
may be obtained through a normal SECOM re- 
quest using’a dial-up 1050 or an ITPS request 
(use ITPS RETAIN/SECOM Inquiry Form 120- 
1687). ITPS requests may not use the ALL 
function but must request one text item in each 
message. 


For IBM Internal Use Only 


March 5, 1968 


To separate this category from the normal 
SECOM entry, PROG will be used where the 
system is normally indicated in the abstract 
number. 


The next position will indicate the Operating 
System, i.e., Nis DOS, S is OS (360N is 
DOS, 3608S is OS). 


The final four positions of the abstract ID 
will be the classification code from the 
Catalog of Programs in the form XX. Y (XX is 
major; Y is minor category). For example 
the request: 


SEC PROG N 06. 7/001 means SECOM file- 
Program-DOS-DATA handling-Information 
Classification and Retrieval-item number l. 


See your SECOMITPS broadcast and the 
weekly listings that are mailed to all SE 
Managers for a list of these programs. 
Questions or comments may be referred to 
SECOM Coordinator, DPD HQ, Department 
713. 


INFORMATION ABOUT THE NEWSLETTER 


EVERY SALESMAN AND SYSTEMS ENGINEER 
SHOULD RECEIVE ONE COPY OF THE NEWS- 
LETTER. Each FE Branch Manager should 
receive five copies for distribution to Customer 
Engineers, 


The IBM Installation Newsletter is distributed 
only to IBM locations and is not available to 
customers. The Newsletter is separated into 
two parts. The first part contains information 
which is intended only for IBM personnel and 
the pages are labeled For IBM Internal Use 
Only. THESE PAGES, OR REPRODUCTIONS 
OF THEM, ARE NOT TO BE GIVEN TO 
CUSTOMERS, However, using your own good 
judgement, you may discuss pertinent informa- 
tion from these pages with a customer. The 
second part contains information which may 

be REPRODUCED by the Branch Office at their 
discretion and given to customers. 
are not labeled with any restrictive classifica- 
tion. Note that when any abstracts for Type III 
programs are given to the customer, he must 
be informed that the disclaimer for Type III 
programs as contained in the Newsletter, ap- 


For IBM Internal Use Only 


These pages 


Issue No. 68-06 


plies. YOUR COOPERATION IN PROPERLY 


HANDLING THE CONTENT OF THE IBM IN- 
STALLATION NEWSLETTER IS NECESSARY 
FOR ITS CONTINUED PUBLICATION. 


Changes to the quantity of the Newsletter ship- 
ped are to be made by the Administration 
Manager. (NOTE THAT EXTRA COPIES OF 
THE NEWSLETTER ARE NOT TO BE ORDERED 
FOR DISTRIBUTION OF INFORMATION TO 
CUSTOMERS.) He should update and send the 
DP Administration Managers! Communication 
Control card (form number N44-780) to DP 
Communication Control, DPD HQ. 


Direct inquiries concerning the contents of this 
Newsletter to: 


W. P. Gaffigan, Editor 

IBM Installation Newsletter 
Installation Planning -#713 

DPD HQ 

112 East Post Road 

White Plains, New York 10601 
Telephone 914 WH9-1900 Extension 4781 


NEW_ PUBLICATIONS ANNOUNCED BY PRL'S 


The weekly PRL's (Publications Release Let- 
ters) are used to insure that all Salesmen and 
Systems Engineers are aware of new or revised 
Marketing Publications. Normally, each issue 
of the Newsletter will contain information from 
two PRL's, one following the other. The in- 
formation will be placed in the Newsletter in 
its original form with no rearrangement of 
form numbers or titles. It is not intended to 
replace existing information and distribution 
sources. You should be certain that you are 
aware of these sources. 
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FORM NO, 


A26=3565-4 


N20-0030 -17 
N20-0031 ~13 


N20-0361.28 
N20-7080, 26 
N20~1 500, 22 


221~0489-0 
221-0490-0 
502-3000-0 
520-1916~0 
520-205 3-0 
520~2067-0 


5 20-2068-0 
520-2069-0 
520-2070-0 
5 20~2071-0 
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C26-3715-2 
C28~-2043—1 
C28-6812=2 
C28-6814~-1 
C28-6515~2 


C33-6001-2 


H20-0479-0 
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J20-0011-1 
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N20-1051 
N20-1076 
N20-1849 


N21-0038 
N23-0615 

N24-5228 
N27-3023 
N28-~0570 
N33=8527 
N33-9016 
N33-9017 


N33~-9019 
N33-9620 


R20-0066-0 


R20-1062-0 
R20-4091-0 
R20-9196-0 
R20-9197-0 
R20-9214-0 


R29-0070~2 
Y20-0126-0 
Y28-6814—1 
Y28-6822-0 


Y28-6823~0 
Y28-6824-0 
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Catalog of Programs for IBM 1130 Computer System & IBM 1800 Data Acquisition ~ January 1968 
Supplement to C20~-1630~-3 

System/ 360 Mod 20 SRL Newsletter Re: A26-3565-4 

7080 SRL Newsletter Re: A22-6774-2 

1800 SRL Newsletter Re: A26-5921~2 


REFERENCE SOURCES 


Issue No. 68-06 


DISPOSITION 


Scrap A26-3565-3 & N20-0361. 27 
Scrap N20-0030<16 
Scrap N20-0031-12 


Scrap N20-0361.27 
Scrap N20-7080, 25 
Serap N20-1800, 21 


MARKETING PUBLICATIONS 


IBM Systems Maintenance Management 

The IBM 2182 Printer-K eyboard 

The IBM Annual Report ~ 1967 

The 1130 Statistical System Promotional Brochure 
IBM System/ 360 Model 85... growing on a large scale 
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IBM 1130/1800 Basic FORTRAN IV Language 

IBM System/ 360 Time Sharing System Addendum 

IBM System/ 360 Model 44 Programming System: Guide to System Use 

IBM System/ 360 Model 44 Programming System: Systems Programmer's Guide 
IBM S/ 360 Model 44 Programming System Operator's Guide 


18M S/360 Model 20 Disk and Tape Programming Systems I/O Control System for the IBM 1419 and 


1259 Magnetic Character Readers 
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Scrap C33~6001-1 


NEW 
NEW | 
NEW - Abstract only | 


Scrap L22-6871-2 : 
NEW 


Use R29-0070-1 
NEW 

Scrap Y28-6814-0 
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H20-0491-0 
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IBM System/ 360 Model 20 Introduction and System Summary 

IBM System/ 360 Special Feature Description 709/7040/7044/7090/7094II Compatibility 
Feature for System/ 360 Model 65 

Number Systems Student Text 

IBM System/ 360 Basic Programming Support Basic Tape System System Generation and 
Maintenance 

IBM 1800 Multiprogramming Executive Operating System Programmer's Guide 

IBM 1130 Disk Monitor System Reference Manual 

IBM S/ 360 Operating System: Maintenance 

IBM System/ 360 Time Sharing System Master Index 

IBM System/ 360 Operating System: Master Index 


AUTOSPOT II (1620-CN-05X) Version 2 Part Programming Manual 
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TNL to S/360 BPS Basic Tape System Programmer's Guide Re: C24-3354-6 with N24-5339 
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TNL to S/360 Mod. 20 DPS Disk Sort/Merge Re: C26-3806~2, =1 

TNL to Mod 20 DPS/ TPS Assembler Language Re: C24~9002=3 


IBM S/ 360 OS QTAM Coding Learner's Guide 
IBM System/ 360 Reference Card 
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OS/360 MVT CPU TIMING ALTERATION 


The following has not been submitted to any 
formal IBM test. Future releases of OS/360 
may obviate the need for this alteration. Po- 
tential users should evaluate its usefulness in 
their own environment prior to implementation. 


1. The module that is affected by this alteration 
is the MVT Dispatcher, which is assembled 
as part of the Nucleus. The name of the 
Nucleus macro in SYS1. GENLIB is IEAQNU. 


2. The user should follow this procedure to 
assure that he is dealing with a current 
level of the system and not introducing 
down level code" into his system. 


3. INSTRUCTIONS: 


a. Punch out the IEAQNU macro from 
SYS1.GENLIB. This is approxi- 
mately 2500 cards. 


b. CONSULT THE SYSGEN LISTING OF 
YOUR SYSTEM! There, you will 


find where the nucleus is assembled. 


The IFQANU macro will be there 
with several parameters dealing 
with the timing option selected dur- 
ing SYSGEN, probably JSTIME, the 
CPU model of the machine, which 
SER option was selected etc. The 
user must punch another card 


OS/360 MVT CPU TIMING ALTERATION 


* TIMER DEQUEVE FOR TASK INTERVALS.» 


eexBEGINNING OF CPU TIMING PATCH 
‘L XDSTQE»TCBUSTCB(O,XDSOLD) .GET_ JOB. "STEP TASK 


TE EE TRE ELE: ARPS RON TER SN Ree ena sma en ea 


LTR XDSTQE +XDSTOE 
BZ PATCHI1 
~ LE XDSTQE,TCBOTC(0,XDSTOE) 
LTR XDSTQE » XDSTQE. 
BZ ~~ PATCH1 


__L_XDSTOQEyTCBTME(0,XDSTOE) «GET INIT TQE 
“LTR XDSTQE,XDSTOE «DOES INIT HAVE A TOE 


ae EPCS aeer ES ie ae: 


BZ PATCH1 


TM TQEFLGS(XDSTQE),X'8B! «IS THIS FOR TASK TIME. 
_BC 5SyPATCH! ».GO IF NO |. 


L R15,ATDO 


Oe er nar SCONE Daath ndentantea thd a Den hatha 


“USING *»XDSLNK eREESTARBLISH 


 ssiemnmamamadaaeemet sadhetatioeion! 


L 14,ADSBASE e«ADDRESSABILITY 


DROP XDSLNK . 
USING DSBASEs14 2 0 
~EQU * 


~ PATCH] | 
* wEREEEND OF CPU TIME PATCH %*** 


~IS THIS THE WAIT TASK 


eGET INIT TCB 
oe TS THIS THE MASTER SCHEDULER 


BALR XDSLNKyR15 GO TO TIMER DEQUEVE ROUTINE | 


EXACTLY like the one produced by 
his SYSGEN with the exception of the 
first (or timing option) field. This 
must be punched with TIMEOB. Then. 
the cards shown in Exhibit 1 are 
inserted in the dispatcher part of the 
IEAQNU macro at approximately 
statement number 0942000 ''TIMER 
DEQUEUE FOR TASK INTERVALS" 
(#1), and at statement number 
10140000 "TIMER QUEUEING FOR 
TASK INTERVALS" (#2). Then 
assemble this macro using the 
IEAQNU TIME 6B...statement that 
the user has prepared. Linkedit 
the resultant object module into the 
Operating System SYS1. NUCLEUS 
data set, again using the Linkedit 
from the SYSGEN as a pattern. BE 
SURE TO INSERT IEAANIPO as the 
first load module and JEAQFX00 as 
the second. 


4. The system is now ready to be re-IPL'ed 
with the new timing algorithm. 


5. The user should be aware that this alteration 


will produce shorter times than his pre- 
vious ones. However, these times will be 
more consistent since they represent only 
the CPU active time and none of the WAIT 
time. The ability to "time-out" the job that 


goes into an endless WAIT has been lost. 


09420000 


e 


April 5, 


“eLeStR 
& TAG 


&TAG 


L  xXDSTOE,TCBTME(0,XDSOLD) «GET TOE OF "OLD" TASK. “09440000 | 
LTR XDSTOE »XDSTOE @DOES. TOE: EXIST. 09460000 
BZ DSTEST ~BR IF.NO TQE. | "09480000 | 
TM TOEFLGS(XDSTQE),X'8B! -IS TOE ON QUEUE AND TASK TYPE. 09500000 
BC 5,DSTEST |  .BR IF NOT. | — “09520000 — 
L R15,ATDO GET TIMER DEQUEUE ADDR. 09540000 
BALR XDSLAK,R1I5 TO TIMER DEQUEUE RTN OT OTB G5 60000 | 
USING *,XDSLNK 09580000 
L 14,ADSBASE eREESTABLISH ADDRESSABILITY ~~ 09600000 > 
DRUP XDSLNK 09620000 
USING DSBASE,14 — ““69640000" 
TEST FOR READY TASK. 09660000 
Ate VON rena a no cnet RT 
LTR XDSNEW »XDSNEW ~I1S NEW READY TASK FOUND. 09700000 
BZ DSEARCH BR IF NOT. - “09720000 
SETC 'DSREADY! 09740000 
AIF (&MAINLNE EQ 1)-SETOLD “609760060 
AIF (E6USTIME NE 1).SETOLD 09780000 


* JOB STEP TIMING CODE 


LR XSEARCHy, XDSNEW eSET START TCB ADDR FOR CONTROL 09820000. 
OK GOING TO HIGHER PRIORITY TASK. 09840000 
LR XLIMIT,XDSOLD eSET END TCB 09860000 
L R15,ATDO GET TIMER DEQUEUE ADDR. ~~" 09880000 
BAL XSBRyDJSEARCH e1TO JST SUBROUTINE. 09900000 
L XSEARCH,ALSTCB SET START TCB ADDR FUR 77" U0GIZ0000- 
* SEARCHING TCB LIST FROM TOP. 09940000 
ETAG LR XLIMIT »XDSNEW meee OFIEDON | 
ETAG SErG: 7 09980000 
oD R15,ATNO GET TIMER ENQUEUE ADDR. © ~ 10000000 — 
BAL XSBRyDIJSEARCH «TO JST SUBROUTINE. 10020000 
* SET 'oLp! INEWt. A oar cnn an TTT EEE 
eSETOLD AWNOP 10060000 
&TAG LR XDSOLD,XDSNEW -_— ee T0080000 — 
STM XDSNEWsXDSOLD,ITEATCBP 10100000 
AIF (EMAINLNE EQ 1)-DSO2A | ESE LOL COUOU 
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OS/360 MVT CPU TIMING ALTERATION (Continued) 


me reenter ca Ae. 


* TIMER QUEUING FOR TASK INTERVALS. 


PATCH2 


*BEGINNING OF CPU TIMING PATCH: os eS ome Ve 
Lo “XDSTQE yTCBJSTCB(0, XDSNEW) GET JOB “STEP TASK 
EL XDSTQEsTCBOTC(0O,XDSTOE) .GET INIT TCB- re 


LTR  XDSTQE,XDSTOE . MASTER SCHEDULER 
= see . SCHEDULER 
L XDSTOEsTCBTME(0,XDSTOE) 


LTR. XDSTQEs XDSTOE 


IS THIS THE. 


3 SCET INIT TQE 
«DOES INIT HAVE A TQE 


SE ce ee ee 


BZ PATCH2 

“RIBS ATNO 7 ee ree , 
BALR XDSLNKyR15 «GO TO TIMER ENQUEUE ROUTINE | 
USING *,XDSLNK »REESTABLISH ae eee 
L 14 ,ADSBASE sADDRESSABILITY 


DROP XDSLNK . 
USING DSBASE;14 . 
£OU * 

*KEND OF CPU TIME PATCH 2x2 


_ Exhibit 1 _ 


Issue No. 68-06 


ee ""99800000 


10140000 
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ASD 
OS/360 DATA RETRIEVAL FROM DAS® a fixed-blocked data set on a 2321 Data Cell 


Drive, specifying full-track blocking. The 


The following article is from an IBM Field time required to retrieve this data set was 

Systems Center and was authored by an IBM approximately three times that required to 

Field Engineering Specialist. create it. A satisfactory retrieval rate was 
-obtained by specifying the record format as 

It discusses data retrieval from direct access 'fixed-standard'! when retrieving the data set. 

storage devices and the importance of data set Note that any "fixed" or 'fixed-blocked" data 

specifications in obtaining efficiency. set may be retrieved as a 'standard"” data set 


even though it was not created as a "standard'! 
Se ee oe ee eee data set, as long as the data set contains no 


storage device often occurs when proper atten- embedded short blocks or empty tracks. 
tion is not given to data set specifications. 

This article addresses in particular, the record 
format specification as selected by the RECFM 
parameter inthe DCB macro. See the SRL 
publication, ''Operating System/360 Supervisor l. 
and Data Management Macro-Instructions", 

Form C28-6647. 


Other procedures that may improve perfor- 
mance are: 


Creating data sets on cylinder boundaries, 
particularly partitioned data sets. 


2. Obtaining contiguous tracks for a data set. 
To obtain efficient data retrieval rates, usea 


"fixed" or ''fixed-blocked'"' format wherever 2. 
practical. Whenever ‘''fixed'' or ''fixed- 

blocked"! is practical, always use ''fixed-stan- 

dard" or ''fixed-blocked standard'' unless un- 4. 
acceptable for the reasons given below. A 
'standard'' format data set contains no embed- 


Avoiding secondary extents (secondary 
allocation). 


Assuring that no high-usage data sets have 
extents encompassing tracks with alternate 


assignments. 
ded short blocks or embedded "empty" tracks. 
Therefore, ''head-switching" (switching to the 5. Using full-track blocking where practical. 
next track) requirements can be predicted, 
based on the block size of the data set and the 6. Using the chained- scheduling option. 


track capacity of the particular I/O device. 
"Standard'' access module coding provides 
"automatic' head-switching, In contrast, the 


access module coding for ''nonestandard" data 
sets cannot predict head-switching requirements; OS/360 AIDS IN USING COBOL F SO SORT FEA- 


hence, the next record to be read is assumed TURE 

to be on the same track as the record previously 

read. If the next record is not on the same The following contribution has been tested by 
track as the previously read record, an I/O the author. It has not been submitted to any 
interrupt occurs, and a "unit-check' status formal IBM test. Potential users should eval- 
is presented. This results in a ''sense' com- uate its usefulness in their own environment 
mand being issued to the interrupting device, prior to implementation. 

and the device-dependent error routines to be 

entered. The error routines analyze the con- 1. How to CALL A Subprogram From an In- 
ditions, perform a head-switch, and restart put or Output Procedure 

the operation, attempting to read a record from 

the next track. Obviously, use of a ''non- A CALL to a subprogram from an input or 
standard" specification may needlessly de- output procedure is not allowed in the 
grade performance. Degradation becomes COBOL F language. However, there is 
severe when the device-dependent error rou- a simple technique that will enable CALLs 


tines are non-resident, i.e., they must be to be made successfully. 


fetched into main storage each time they are 


required. A CALLed subprogram would normally 


have initialization coding of the form shown 


A striking example of anunnecessarily poor in Exhibit 1. 


data retrieval rate involved the creation of 
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OS/360 AIDS IN USING COBOL F SORT FEATURE 


STM 14, 12, 12(13) 


ST 13, SUBSAVE+4 
LR 12, 13 
LA 13, SUBSAVE 
«ST 13, 8(12) 
SUBSAVE DS 18F 


When an input or output procedure receives 


control, the COBOL Save area trace - 
forward cell points to the save area of the 
COBOL library subroutine, IHDFSORT, 
which interfaces with the SORT program. 
This pointer must remain intact for prop- 
er return linkage. However, the STORE 
instruction shown above with the asterisk 
destroys this pointer. 


The solution is to omit this instruction if 
the subprogram is written in Assembly 
language, or to NO-OP the generated in- 
structionif the subprogram is written in 
a higher level language. In the case of 


COBOL F, it appears as the first instruc- 


tion in the initialization section called 
INIT 2. 


How to Locate, ina Core Dump, the Last 
Record Released to SORT By an Input 


Procedure 


a. From the Data Division map, deter- 
mine the BLL number of the SORT- 
file being processed at the time of 


program termination. Assume itis 
BLL no. 


b. From the Task Global Table map, 


determine the location of the BLL cells 


in the COBOL object program. 


c. The nth BLL in the core dump will 
point to the last record released to 
SORT. 


Note that this BLL is initialized when 
control is first transferred to the input 
procedure. Thus, if the program term- 
inates before control ever goes to the 
input procedure, the BLL will not be init- 
ialized. 


Save COBOL regs 

Save pointer to COBOL save area 
Transfer the pointer to a work reg 
Load Addr of subprogram save area 
Store subprogram save area pointer in 
COBOL's trace forward cell 
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OS/DOS/360 QTAM SELF-STUDY TEXT 


If you are planning to install QTAM, or are 
considering QTAM for the installation of a T/P 
System, you and your customer should review 
a new self-study text. The title is ''System/360 
OS/DOS Communications Coding QTAM Coding 
Flowchart". The publication number is R20- 
1062-0 and is available from the IBM Distri- 
bution Center, Mechanicsburg. 


The QTAM FLOWCHART is a means of learn- 
ing how to construct a QTAM message control 
program. Each macro is discussed, in the 
sequence which might be used to construct an 
actual program. In fact, as you go through 
the macros, you are constructing an actual 
program. 


Decisions 4S to how to select certain macros, 
or parameters to use in the macros, are put in 
flowchart format so that you can skip informa- 
tion not pertinent to your particular message 
control application. Choices of parameters, or 
macros, are discussed in an introductory man- 
ner. 


Examples of each new concept are embedded 

in the flow. These are for the most part DOS 
examples, actually assembled to show the pro- 
gram generated code so that the student can go 
into more detail on his own if this is his option. 
The entire flow was in fact a program assembly. 
Thus, a decision had to be made whether to 


make the examples DOS, or OS. Wherever OS 
and DOS QTAM differ in macro selection or 
parameter selection, the flow is split down the 
middle with OS on the left, DOS on the right. 
Where they are the same, the flow goes down 
the middle of the page. OS examples are usu- 
ally given as comments cards (as far as the 
assembly is concerned). 
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DOS/360 QTAM-INTERVAL TIMER ASSIGN - 
MENT 


Current DOS/360 SRL's specify that the Inter- 
val Timer must be assigned to F1 if a polling 
interval is specified in the DTFQT for any line 
group. Users should be aware that it is also 
required that the Interval Timer be assigned 

to Fl if either, CPINTVL = integer is specified 
in the TERMTBL macro, or the INTREL 
function is to be used in operator control. 


DOS/360 IGNORE OPTION CORRECTION 


An article 'DOS/360 Ignore Option in Assign 
Statement" appeared in Installation News- 
letter issue 68-04, page 5. 


The statement was made that "if you are re- 
running to recreate a report, you can ignore 
any tapes that are not required". This is not 
true if you are using LIOCS, 


The S/360 DOS Users Guide; Control Statement 
Techniques (C20-1685-0) states, on page 13; 
"IGN cannot be used if information from the 
device is required for proper operation. 
Therefore, use of IGN results in JOB can- 
cellation at OPEN time if tape or DASD files 
are processed by LIOCS". 


Also, the statement regarding the DOS/360 
MERGE under "Sequence Checking" is true 
only in the case of unlabeled files because 
LIOCS OPEN is used. 
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DOS/TOS/360 COBOL AL ROUTINE FOR 
OVERLAYS 


The following is a suggested technique (but not 
the only one possible) for using an Assembler 
Language routine to effect overlays with DOS/ 
TOS/360 COBOL. Potential users should eval- 
uate its usefulness in their own environment 
prior to implementation. 


This article contains: 


1. An example of a printout of an Assembler 
Language effecting overlays specified by 
a COBOL Disk and Tape Operating Systems 
program. 


2. Explanations of the functions performed by 
the Assembler overlay subroutine instruc- 
tions. The explanations are keyed to the 
instructions in the listing. 


3. Information needed to prepare and use sub- 
programs written in Assembler language 
with a main program written in COBOL. 


Exhibit 1 contains an overlay subroutine which 
is an example and is governed by the following 
restrictions: 


1. The example is a suggested technique, and 
not the only technique. 


2. It can be used for Assembler overlays if 
the user has a desired entry point in his end 
card, and the first statement at that entry 
point is 'STM 14, 12, 12(13)'(90ECDOOC). 


3. The subroutine cannot be used for entry 
points other than at the first instruction 
of the procedure division. A suggested 
technique for diverse entry points is a 
table lookup employing V-type constants. 


DOS/TOS/360 COBOL AL ROUTINE FOR OVERLAYS 


STMNT SOURCE STATEMENT 
0001 OVRLAY START 0 
0002 ENTRY OVRLAY 
0003 * AT ENTRY TIME 
0004 x Rl = POINTER TO ADCON LIST OF USING ARGUMENTS 
0005 x FIRST ARGUMENT | 
0006 * IS PHASE OR SUBROUTINE NAME, MUST BE 8 BYTES 
0007 x R13= ADDRESS OF SAVE AREA 
0008 * R14= RETURN POINT OF CALLING PROGRAM 
0009 * R15=ENTRY POINT OF OVERLAY PROGRAM 

: 0010 * AT EXIT 


Exhibit 1 
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DOS/TOS/360 COBOL AL ROUTINE FOR OVERLAYS (Continued) 


STMNT SOURCE STATEMENT 
0011 * Rl= POINTER TO SECOND ARGUMENT OF ADCON LIST 
0012 * OF USING ARGUMENTS 
0013 * R14=RETURN POINT OF CALLING PROGRAM--NOT THIS PROG 
0014 * R15=ENTRY POINT OF PHASE OR SUBPROGRAM 
0015 # 
0016 USING *, 15 
STMNT SOURCE STATEMENT 
0017 STM 0,1, 20(13) SAVE REG 0 AND 1 
0018 1 1, 0(1) Rl = ADDRESS OF PHASE NAME 
0019 CLC 0(8,1), CORSUB IS IT IN CORE 
0020 BE SUBIN YES 
0021 MVC CORSUB(8), 0(1) NO, CORSUB = PHASE NAME 
0622 SR 0,0 RO =0 
0023 * LOAD REQUIRES RO = 0 IF LOAD 
0024 * ADDRESS 
0025 * ISN'T SPECIFIED, RI=ADDRESS OF 
0026 * PHASE NAME. R1=PHASE ENTRY 
0027 * UPON RETURN. 
0028 SVC 4 LOAD PHASE 
0029 SH Lehi 2! 
0030 ENTRY LA 1, 2(1) STEP SEARCH POINTER 
0031 CLC 0(4,1), STMINS IS THIS THE ENTRY POINT 
0032 BNE ENTRY NO, LOOP BACK 
0033 ST 1,ASUB YEO, SAVE FL 
0034 SUBIN LM 0,1, 20(13) RESTORE REG 0 AND 1 
0035 LA 1, 4(1) STEP PAST PHASE NAME ADCON 
0036 L 15, ASUB LOAD ENTRY POINT ADDRESS 
0037 BR 15 
0038 ASUB DS IF 
0039 CORSUB DC 8SX' FF! 
0040 STMINS DC X'9OECDOOC'! 
0041 END 
Exhibit 1 


S/360-20 DPS-BAL AND USE OF DTFEN 
OVLAY 


The following is a field contribution which has 
not been submitted to any formal IBM test. 
Potential users should evaluate its usefulness 
prior to implementation. The article concerns 
a correction to the S/360-20 DITFEN Overlay 
routine and some tips for using S/360-20 BAL 
OPEN routines. 


When certain file characteristics are met, the 
DTFEN with OVLAY function may be used to 
conserve core. The use of this technique 
simply allows the Assembler to generate 


OPEN and CLOSE coding at the point where 
these macros are issued --instead of in the 
IOCS DTF coding. 


The following hints are offered to those using 
this function: 


1. An error in the SRL 360/20 DPS I/O Con- 
trol System, C24-9007-2 will not allow the 
programmer's second (main logic) phase 
to be called in during program execution. 
In figure 20, page 79, each of the two 
fetches should have blank operands (the 
blank operand indicates that the fetch cod- 
ing relates to sequential retrival of sub- 
phases). See Exhibit 1. 
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If card files are used, the 1/0 AREA must 
be available to IOCS at the time of OPEN. 
At OPEN time the first card is read into 
the I/O AREA (unless no overlap is spec- 
ified). The I/O AREA must, of course, 
also be available to any other phase that 
uses the card I/O AREA. Therefore this 
I/O AREA should normally be specified 
at the beginning of the program before 
the OPEN routine. In this way the OPEN 
and the remainder of the first sub-phase 
will be overlayed, but the I/O AREA will 
not be overlayed. See Exhibit 1. 


A second option allows the programmer to 
issue the CARD file OPEN in the main 
logic phase. Though this method would 
use main logic core for the OPEN, the 
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card OPEN routine generates substantially 
less core than the disk or tape OPEN rou- 
tines. 


Base register usage above 4K (a second 
base register) in the first (OPEN) phase 
has resulted in a programming error stop 
due to improper handling of the base reg- 
ister by IOCS. The exact extent of the 
problem has not been determined as yet. 


However, the first phase has been success- 


fully executed by keeping the first phase 
to one base register and using register 9 
(with limitations as indicated on p. 80, 

C24-9007-2, TNL N33-9014 as the base 


register of the first phase. 


S/360-20 DPS - BAL AND USE OF DTFEN OVLAY 


FIGURE 1 
START 
p08 Gael ae 
DT FEN OV LAY 
BEGIN BASR 9, 0 
USING BRANCH, 9 
BRANCH B OPENIT 
eee DS FOR CARD FILES 
OPENIT OPEN CARDLE... 
FETCH BEGIN 
—— ORG — OPENIT ~ 
ROUTIN BASR 10, 0 
USING *, 10 
USING BRANCH, 9 
FETCH 
XFR ROUTIN 
ORG XXXX (ROUTINiIS | 
SUGGESTED AS OPERAND} 
FINIS BASR 
USING... 
CLOSE... 
EO 
END FINIS 
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S/360-20 DPS RPG MULTIPLE CHAINING FILE 
SEARCH 


The following is a field contribution which has 
not been submitted to any formal IBM test. 
Potential users should evaluate its usefulness 
prior to implementation. Addresses, tables, 
files, indicators, etc. produced in the program 
generation have been deleted to conserve space. 


This technique makes it possible for an RPG 
user to generate his own chaining field and use 
it to search an indexed sequential file for a 
match. The RPG user generates the key and 
places it ina field called "BOX", (Exhibit 2) 
then an exit to an Assembler routine (GET, 
Exhibit 1) takes place where ''BOX" is placed 
in the input work area, overlaying the Cl field 
data of the last card read. The program then 
branches to the total processing routine (and 
total output) after which it extracts the "Cl" 
field from the card input area, uses it tosearch 
for the matching disk record, and returns to 
detail calculations. Note that the core loca- 
tions for card columns of the input card are 
located beginning at the input work area plusl. 


S/360-20 TPS RPG IMPROPER FIELD NAMING 


Field names used as result fields on Calcula- 
tions Specifications cannot begin with TAB, ex- 
cept LOKUP operations. 


Page 164 of C24-9001-3 states that ''None of 
the Field names used on the Input Specifications 
form should begin with the character combi- 
nation TAB". The manual should also state 
that such field names cannot be used for the 
result field on the Calculations Specifications. 


When a TABXXX is used as a result field, 
there is no diagnostic and the field named 
TABXXX is ignored and not compiled by RPG. 
When the program is executed, a specification 
error occurs. 


OT 


LOCATN OBJECT CODE ADDL ADN2 STMT 


S/360-20 DPS RPG MULTIPLE CHAINING FILE SEARCH , 


0000 QOOOL GET START 
0000 ONDFO COO02 BEGN BASR 
0002 0003 USING 
a | QO004 EXTRIN 
QONN2 4090 FUL6 OOS NOO5 STH 
QN06 4891) FOLS NOOL4A O006 LH 


OOO Y wx 
OO08 2 


* MOVE FROM, 


INPUT 


000A H207 303C 9N00 OD3BC 0000 0010 MYC 
QOO10 4890 FUlL6 OOS OO1LL LH 
QOL4 O7FEF 0012 BCR 
OO1LA OODD 00713 ADB DC 
0018 | 0014 RY DS 
0000 ; 0015 END 
Exhibit l 
// 1.06 - MULTIPLE CHAINING TEST 
J// JOB RPG,-GU 
// OATFEF 67013 
J// COMER OO4 
// A&SSGM SYSTRT se XP 1008 A RS 
// ASSGN SYSUPT eX? 200' RT 
// ASSGN SYSOQ0U04—X'RBO2' 4,03 
J// VOW SYSO0OU0,WORKI 
J// OLAR  tittikK FILE FOR RPG 
N090901,68013 468913 
J/ X¥TENT LeOQULSOOTOONND SDOTLOOGs F202021' eSYSO00 
// &SSGN SYSUUG_xXBOZT SS 
//f VOL SYSOOD6,TSFILE 
// MLAS hTNVYENTORY FILE 
QO01L¢«67001 ,467001 
// XTENT 149001 69082000 DORZ0094 12020218 4SYSO006 
Jf XTEMT 4,002 e0080N001 IOBOOOL se 202021 eSYSO006 
// EXEC | 


Exhibit 2 


() 

15, 
9] 
ROX 
eR 
9A 


BOX TO Cl FIELD 
WORK AREA PLUS 1. 

QOOO9 %** 3N3C HEX TRANSLATES TO 3388 PLUS REG 
3388(853),0(9) 


YR 
15, 
Y(B 
H 

GET 


i 


SOURCE STATEMENT 


() 
5 


9 
DB 


9 
14 
OX) 


L202021'5 


1202021", 


(COLS 1-8) 


36 


01/01/68 PAGE 001° 


DPS ASSEMB 01/00 


003 


003 
003 


WHICH BEGINS AT 


003 
003 
003 
003 


8961 ‘g¢ [tady 


“ON Onssy 


90-89 


SS 


. April 5, 1968 


SYSTEM /360 MODEL 20 DPS 


(ASSIGNED AREAS, etc. 
not shown in-this article. ) 


Then print out 


Exhibit 2 (Continued) 
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” 


DATE 01/13/67 


JS 1 H M016 120 
Ss Seno = MULTIPLE CHAINING TEST | -. 1-16-68 
S 2 FEARDS IP F 80 80 EMEC] 
S 3 FISFILF IC F 540 60OROBKI 0002 DISKLIFSYSO0SS 102 
S 4 EPRINT ‘a F 120 120 PRINTER 
S 5 FAACICARDS ISFILE 
S 6. IC ARDS AA O1 80 CC 
a a ak ak ska ak ak 2 THE "GET® SUBROUTINE WILL OVERLAY THIS Cl FIELD FROM 
S ne Hs afc 2 aK akc aK aK aK aK THE CONTENTS OF ft ROX'S 
S 7 I l B KEY Cl 
5. Bo LISFILE BR 05 
S09 | 1 60 DATA 
® S 10 C NB MOVE KEY BAG 8 
§ 11 C N&R MOVE KEY NUM 80 
S 12 C SETON © 88 
S 13 C O1 MOVE ROX BAG 
S 14 C O1 SETOF 55 
S 15 C O1 COUNT ADD 1 COUNT 50 
S 16 C O1 05 SETON 55 
7% 04 C€ NUM ADD 1 NUM 

18 05 ¢ MLLZOO NUM 

19 O6€ MOVE AM BOX B 

20 ~O7 € EXIT GET 
ae | C OL GOTO Lone 
S- 22 CLU LOOP TAG 
S 23 C RLABL BOX 
S 24 OPRINT H ? 1P 
S25 C0 17 "KEY FIELD! 
S 26 (1 25 "DATA® 
S 27 (1 8B § COUNT 
S 2B ti T W LO 
S 29g Q BAG 17 
S 30 C1 COUNT Z BR 
S 31. G 55 DATA B 81 
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NEW TYPE II PROGRAMS * 


The following are the abstracts of programs which have been recently made available from 


the Type III library. 


The program, along with its complete abstract, will be incorporated in subsequent issues 


of the Catalog of Programs. 


Programs may be obtained by submitting a properly completed ''General Program Request 
Card" (Form Number 120-1145-1) to the Program Information Department, 40 Saw Mill River 


Road, Hawthorne, New York, 10532. 


These programs and their related documentation are distributed by IBM in the author's 
original form and have not been subjected to any formal testing. 
Any discussion of Type III Programs must emphasize the following points: 


1. This is a Type II program. 


2. Type III programs have not been subjected to any formal product test. 
3. Recipients of Type III programs are expected to make the final evaluation as 
to the usefulness of the programs <n their own environment. 


4. There is no committed maintenance for Type Ill programs. 


However, any 


changes the author chooses to make will be announced in subsequent issues 


of the Catalog of Programs. 


* NOTE: THE CUSTOMER MUST BE INFORMED THAT THE ABOVE APPLIES TO 
ANY OF THE FOLLOWING TYPE III ABSTRACTS FURNISHED TO HIM. 


SYSTEM/360 MULTIPLE LIST PROGRAM. 
This program permits multiple 80/80 listing 
of a card deck which is read into the computer 
only once. The first listing is produced con- 
currently as the card deck is being read in. 
Subsequent listings are obtained simply by 
pressing the interrupt key after the system 
enters the wait state. It no longer becomes 
necessary to reload the card deck each time, 
thus, card-handling, card-read-time, and 
reader-ready-time are eliminated for extra 
lists. 


The program consists of four cards and is 
written in machine language for any model S/ 
360 with a 2540 Card Reader and a 1403 Printer 
on line. 


The card images are stacked into core, so 32K 
will accommodate a card deck of about 400 


cards, 64K-800 cards, etc. 


Ordering Procedure: Order File Number 


360D-06. 8. 001. 


Distribution will be in card form only. 
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SYSTEM/360 REPRODUCE AND SEQUENCE- 
NUMBER UTILITY PROGRAMS, This isa 
package of three 2-card programs. One will 
reproduce cc 1-74 of a master deck and se- 
quence-punch numbers in cc 76=80 starting with 
00010 and increasing by increments of 10. The 
second program will reproduce cc 7-80 and 
sequence-punch numbers incc 1-6. The third 
program will reproduce cc 7-72 of the master 
deck, gang-punch constant identifying informa- 
tion into cc 73-80, and sequence-punch numbers 
into cc 1-6, starting with 000010 and increasing 
by increments of 10. The first program is good 
for sequencing or resequencing assembler 
language source programs. The latter two will 
do the same for COBOL or similar language 
source programs. The incrementing factor 

as well as the starting point of selected col- 
ums can easily be changed by the user. Pro- 
grams are in machine language for any System/ 
360 with a reader and punch physically addressed 
as 00C and 00D respecitvely. 

Ordering Procedure: Order File Number 
360D-00. 0.009. 


Distribution will be in card form only. 
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| 7 aes 10. Includes an improved simulation technique 
© $/360 COS-VERSION 5, LEVEL 0 OM a for the simulation of 1400 carriage control 
IBILITY OPERATION SYSTEM (REPLACES operations: 
VERSION 4). This release of the Compatibil- 
ity Operating Sy eter EC OE PORGLES oe Sora 11, Includes performance enhancements for 
rections to the existing version as well as the simulation of 1402 card reader stacker 
additional support and performance enhance- select operations, 
ments in certain areas. Users of earlier ver- 
sions of the Compatibility Systems should Bey 12. Includes support for the simulation of 1401/ 
particular attention to the following items which 1460 Read Column Binary operations with 
are implemented under this release in a dif- optional translation of the binary data in 
ferent manner. the normal card input area. 
1. Include support for the simulation of the 13. Includes support for the simulation of 1401 / 
1400 card reader, card punch, and printer 1460 Column Binary punch operations. 
on 2314 disk extents. 
14, Includes performance enhancements for 
Includes support for the simulation of up the simulation of 1402/1442 punch operations 
to five (5) 1311's on pera PLOnAE when the System/360 punch unit is a serial 
As many ae 200% (4) 1311's may be simu- punch. This enhancement requires no 1400 
lated on a single 2314module. program modification and improves per- 
formance by a factor of up to 2 1/2 depend- 
Includes support for the simulation of a ing upon the actual number of columns be- 
1301 module on two and one-half (21/2) ing punched. 
modules of 2314 disk storage. 
15. Includes performance enhancements when 
Includes supportfor the simulation of one the System/360 card reader is a 2501. 
or two modules of 1405 disk storage on Performance improvements of up to 60% 
2314 disk storage. Each 1405 module on wan he. Cealiced: 
separate 2314 modules. 
16. Includes DOS Supervisor alterations to 
Includes support for the paruletiGn of allow DASDFP to be specified when gener- 
disk file scan operations utilizing the ating a DOS Supervisor. 
File Scan Feature (#4385). When the num- 
ber of sectors #0 be scanned exceeds 20, 17. Includes support for four user specified 
a poTson ance provement will be real- exits, automatically generating necessary 
ized over previous versions. linkage from the error routine, punch rou- 
tine, printer routine, and end-of-job routine. 
Includes support for selective 1405 disk 
verification on a drive for drive basis 18. Includes ten additional parameters. 
consistent with 1311 support. 
_ 19. Includes support for Model DE (24K) sys- 
Includes support for an additional (option- cama, 
al) 1400 control card parameter enabling 
the user to specify at execution time the 20. Includes support for 144 print position 1443. 
instruction address of the normal 1400 
end=9t=]00 pare instruction, HPO oe 22. Includes support to write a tape mark at the 
connteras this halt, control will be auto- beginning of each subsequent tape reel when 
matically transferred to DOS Job Control. the 1400 referenced card punch or printer 
are being simulated on magnetic tape. This 
Includes an improved Program Mode Switch conforms to standard DOS usage 
Supervisor Cal] interrupt handler. 
23. Includes support of the 1052 cancel key dur- 
Includes support for the simulation of ing the simulation of 1400 Console Read op- 
1401/1440/1460 Write and Space Suppress alent are 
operation and 1401/1460 Write Word-Mark 
operation. 24. Includes test to insure that 1405 simulated 


disk files have been properly formatted. 
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This support is consistent with 1301-1311 
support. 


25. Includes support for altering quadrant 
assignments of 1311 disk drives when 
simulated on 2314 disk storage through 
normal operator service routines. 


Ordering Procedure: Order File Number 
360D-05, 1. 005, 


The program material can be obtained on one 
9 track or 7 track({Data Conversion feature 
required) Distribution Tape Reel (DTR). 


The requester must indicate whether a 9 track 
or 7 track DTR is required. If not specified, 
a 9 track DTR will be provided. 


No tape submittal is required. The DTR will 
be provided by the Library. 


alana neers me ante a Ee ee ee 


S/360 HOUSTON GENERAL ONESTEP MONI- 
TOR. The objective of this program is to pro- 
vide a generalized monitor program under 
OS/360 to allow compile, compile-linkedit, and 
compile-linkedit-go to be executed in only one 
job step. This will prove beneficial in speed- 
ing up these processes because the job sched- 
uler need be brought in only once for each 
situation, resulting in less OS overhead. 


Execution of the monitor is accomplished 
through normal JCL and it, in turn, causes 
invocation of the proper compiler, linkage 
editor, and the program to be tested by use of 
the LINK macro. 


The program is patterned after the FORTRAN H 
ONESTEP MONITOR which is avilable in the 
IBM Program Library (360 D 03.2003). This 
program extends the capabilities of the above 

to include support for all compilers running 
under OS, as of Release 13, except for ALGOL. 


This program can aid in speeding up the devel- 
opmental activity by increasing throughput. 


Ordering Procedure: Order File Number 
360D-03. 2. 006. 


The program material can be obtained in card 
form or on one 9 track or 7 track (Data Con- 
version feature required) Distribution Tape 
Reel (DTR). 
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The requester must indicate whether a 9 track 
or 7 track DTR is required. If not specified, 
a 9 track DTR will be provided. 


No tape submittal is required. The DTR 
will be provided by the Library. 


S/360 PROCK - A PROGRAM CHECK ROUTINE 
IN MACRO FORMAT. PROCK is a DOS Assem- 
bler macro which generates a comprehensive 
program check routine for use with the DOS 
STXIT macro. When a program check occurs 
the job name and most of the old PSW is print- 
ed on the console typewriter. The operator 

has four options in replying: 


1. Go to end of job without a core dump. 
Go to end of job with a core dump. 
3. Mask out decimal overflow and fixed point 
overflow and continue the problem 
program. 


4. Mask out decimal overflow and fixed point 
overflow, dump the background area, 
and continue the problem program. 


PROCK will run on any DOS configuration with 
a console typewriter and can be of significant 
aid in both debugging and production runs. It 
requires under 300 bytes of core. 


Ordering Procedure: Order File Number 
360D-01. 4.008. 


The program material can be obtained in card 
form or on one 9 track or 7 track (Data Con- 
version feature required) Distribution Tape 
Reel (DTR). 


The requester must indicate whether a 9 track 
or 7 track DTR is required. If not specified, 
a 9 track DTR will be provided. 


No tape submittal is required. The DTR will 
be provided by the Library. 
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S/360 TESTMISP -A TESTING AID FOR IN- 
STALLING MEDICAL INFORMATION SYSTEM 
PROGRAMS, TESTMISP is a System/360 DOS 
Program which allows an Assembler Language 
programmer to test application programs to 

be used in a hospital information system util- 
izing the Medical Information System Programs 


(MISP). A working knowledge of functions and 
requirements of MISP is a prerequisite for the 
use of TESTMISP. Information concerning 
MISP is available through your IBM Marketing 
Representative. 


This program simulates MISP operation by 
performing the same functions, simulating 
these functions and/or printing a trace of the 
functions indicated in the application program. 


Full core and disk storage capacity and the 
terminals required in an operational hospital 
information system are not required in order 
to utilize TESTMISP. If additional core stor- 
age is available, however, the user may con- 
tinue to test programs in the background par- 
tition concurrent with "live'' operation after 
MISP is installed. 
Ordering Procedure: Order File Number 
360D-04. 4. 007. 


To obtain program meterial, submit one 2400 
foot reel of magnetic tape. Specify whether 7 
or 9 track recording is required. If not spec- 
ified, 9 track recording will be used. 


The required tape may be ordered from IBM or 
supplied with your request for the program. 
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S/360 OPERATING SYSTEM PL/I MACRO 
PREPROCESSOR. A program which accom- 
plishes most of the replacement functions of 
the OS PL/I (Macro) processor stage, suchas 
compile - time functions, declares, and assign- 
ment statements. It reads PL/I source text, 
scans for known macro identifiers, calls macro 
routines which replace the identifiers with gen- 
erated text, and writes the modified program 
text on a data set which is used as input to 
either the PL/I processor or compilation stages. 


Functions such as rescanning and compile - 
time loop expansion are not accomplished. 
major program is written in PL/I, occupies 
40K, and requires OS and two data sets. 


The 


Major advantages: Decrease compilation time 
by 30 to 55%; Ability to use complete PL/I 
language in compile - time functions; Provide 
spacing and line control for neater PL/I source 
listings. 

Ordering Procedure: Order File Number 
360D-03. 6.005. 


The program material can be obtained in card 
form or on one 9 track or 7 track (Data Con- 
version feature required) Distribution Tape 
Reel (DTR). 


The requester must indicate whether a 9 track 
or 7 track DTR is required. If not specified, 
a 9 track DTR will be provided. 
No tape submittal is required. The DTR will be 
provided by the Library. 


NOE, a 


S/360 THRESH - A GEOMETRY PROGRAM 
FOR BUBBLE CHAMBER EVENTS. THRESH 
is a geometry program for bubble chamber 
events. For each event processed the program 
reconstructs the event in space, i.e., finds 
joint coordinates and track parameters. The 
program deals with a maximum of four stereo- 
Scopic views. It is assumed that the chamber 
is in a uniform magnetic field, perpendicular 
to the front glass and that the charged particles 
describe pure helices. A new set of routines 
(MATCH) performs the function of matching 
track images in three views. 


The present program for the S/360 is an H-leve 
el FORTRAN IV version of the program dev- 
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eloped by CERN in Geneva, Switzerland (Ver- 
sion 12/06). Running under OS requires 256K 
bytes of core memory, and a recommended 
minimum of three disks (1 system, 1 scratch, 
l program), and two tapes. 


Ordering Procedure: Order File Number 
360D-17. 2. 008. 


The program material can be obtained on one 
9 track or 7 track (Data Conversion feature 
required) Distribution Tape Reel (DTR). 


The requester must indicate whether a 9 track 
or 7 track DTR is required. If not specified, 
a 9 track will be provided. 

No tape submittal is required. The DTR will 
be provided by the Library. 


IBM 1780 (GEOSPACE) PLOTTER SUBROU- 
TINE FOR OS/360. An IBM System/360 FOR- 
TRAN -callable subroutine which permits the 
user to write data from main core to the IBM 
1780 (Geospace) plotter independent of timing 
considerations, and to issue assorted control 
commands to that device. The program is 
written in Operating System Assembly language 
and requires a 131K byte machine, but can 
easily be modified to run in a 65K byte environ- 
ment. The subroutine accepts data in 200 to 
64000 byte blocks, normally from alternate 
buffers, and permits overlapped processing. 


Otdering Procedure: Order File Number 
360D-08. 6. 005. 


The program material can be obtained in card 
form or on one 9 track or 7 track (Data Con- 
version feature required) Distribution Tape 
Reel (DTR). 


The requester must indicate whether a 9 track 
or 7 track DTR is required. If not specified, 
a9 track DTR will be provided. 
No tape submittal is required. The DTR will 
be provided by the Library. 
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CERN SUMX. A DATA SUMMARIZATION 
PROGRAM FOR THE IBM/360. CERN SUMX 
analyzes information about large number of 
events and produces histograms, scatter dia- 
grams, lists and ordered lists. Facilities are 
provided to select subsets of events according 
to criteria defimed on control-cards, and to 
allow the user to add routines for computing 
event by event quantities not immediately avail- 
able. The program was originally written at 
Berkeley, but the present version was com- 
pletely rewritten at CERN in 1965-1966. (SUMX 
466, version 5.25). The language is FORTRAN 
IV, level H for S/360. CERN SUMX requires 
256K of core memory without overlays, three 


tape drives and a recommended minimum of 
3 disk drives. 


Ordering Procedure: Order File Number 
360D-17. 2. 006. 


To obtain program material submit one 2400 
foot reel of magnetic tape. Specify whether 7 
or 9 track recording is required. If not spec- 
ified, 9 track recording will be used. 


The required tape may be ordered from IBM 
or supplied with your request for the program. 


S/360 CERN GRIND - A PROGRAM FOR KIN- 
EMATIC ANALYSIS OF EVENTS IN BUBBLE 
CHAMBERS. GRIND is a kinematic fitting 
program written by CERN. This is an H-level 
FORTRAN IV program based on the 03/05 CERN 
version dated June 1966. 


GRIND will process the geometry of each event 
(THRESH output) as well as the experiment 
dependent TITLES containing various para- 
meters, mass hypothesis to be tested, conver- 
gence cirteria, etc. 


GRIND can produce an output tape for further 
processing on SLICE as well as punched cards 
identifying tenable hypothesis. 


This program under OS requires 256K of core, 
and a recommended minimum of three disks 
(1 system, 1 scratch, 1 program) and two tapes. 


Ordering Procedure: Order File Number 
360D-17. 2. 007. 


r 


¥ 
& 
| 


7 NN ,  — 


April 5, 1968 


The program material can be obtained on one 
9 track or 7 track (Data Conversion feature 
required) Distribution Tape Reel (DTR). 


The requester must indicate whether a 9 track 
or 7 track DTR is required. If not specified, 
a 9 track DTR will be provided. 


No tape submittal is required. The DTR will 
be provided by the Library. 


1130 IMPROVED HY PHENATION PACKAGE FOR 
1130 TCP. Increases in speed of up to 1500 
30-character lines per hour can be realized 

with this Improved Hyphenation Package for 

the 1130 TCP. A single compressed dictionary, 
based on word roots wherever possible, re- 
places the 1130 TCP separate dictionaries for 
suffix exceptions and probability exceptions. 

The package consists of the following programs: 
HTSTR, HLODR, Overlay 5, Overlay 7, HPREP. 
In addition, a set of about 3200 exception words 


is supplied. 


Two new utility programs replace HYUP, namely 
HTSTR and HLODR. HTSTR accepts input from 
cards or from the keyboard and indicates the 
results of hyphenation on the console printer 
and/or by stacker selecting exception cards. 


HLODR accepts input from the keyboard, from 
cards, or from 8-channel paper tape and loads 
the dictionary file accordingly. The new over- 
lays 5 and 7 replace the corresponding over- 
lays as distributed with 1130-DP-04X, Version 
1, Level 2. HPREP, as before, initializes the 
dictionary but also initializes a dictionary in- 
dex within Overlay 5. In addition to providing a 
more convenient method of testing and loading 
exception words, a significant savings in time 
can be gained by using this set of programs. 
Also, about 60 cylinders of disk storage space 
is freed for other purposes. | 


Ordering Procedure: Order File Number 
1130-06. 6.009. 


Distribution will be in card form only for both 
basic and optional program material. 
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1800 CARD ASSEMBLER ADDRESS CONVER- 
SION. This program produces a listing of an 
assembled 1800 list deck and indicates the 
corresponding instruction addresses for the 
core image and relocatable loaders. The ad- 
dresses are printed in hexadecimal format. 

The program runs on any 1800 which has a 1442 
Card Read Punch. It was written in Assembler 
Language. 


Considerable time can be saved when debugging 
by referring to a listing produced by this pro- 
gram, rather than having to do hexadecimal 
arithmetic to convert every significant address. 
It can also be used to quickly find the program 
location of WAIT instructions. 


Ordering Procedure: Order File Number 
1800-04. 0.001. 


Distribution will be in card form only. 
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SELECTED SHORT SUBJECTS 


The purpose of Selected Short Subjects is to 
bring together and highlight concise, factual 
and timely information which will indicate 
that action is to be taken by the IBM repre- 
sentative whose accounts are affected. 


Solving Ins tallation Problems 


This is just a reminder of some of the 
sources available for helping you to solve 
installation problems. 


In addition to other Branch Office, District, 
Regional and DPD HQ support functions, there 
is SECOM, RETAIN (FE), QUESTER, KWIC 
Index to TIE, Catalogs of Programs including 
Type III's, and the Installation Newsletter. 
The Field Systems Center, Installation 
Centers and DACS Centers are points of con- 
tact for problem solutions. Be certain that 
you are familiar with these resources. Use 
them before attempting to solve a problem 
which might have already been solved. 


OS/360 BTAM BSC Auto Dial Feature 
Requirement 


Current documentation does not indicate 
the prerequisite requirement for the Auto 
Dial feature in order to use BSC dial sup- 
port. Sales Manual and SRL (TNL) Docu- 
mentation will be forth coming which will 
provide the necessary information for ob- 
taining this feature. 


Teleprocessing - ACU 801A6 Power 
Off 


Many IBM customers routinely turn off 
the power on their CPU equipment over 
night or on weekends. The data set and 
data auxiliary equipment, supplied by 
the common carrier, may be left with 
power ON during such periods. Nor- 
mally this causes no problems and is an 
acceptable mode of operation. 


ee eS 
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However, the Automatic Calling Units 
SO1A5 (which is not recommended for 
use with IBM equipment) and the 801A6 
can not presently operate this way, with- 
out placing an erroneous OFF HOOK 
indication on the telephone, or TWX 
line, and ultimately causing alarms at 
the telephone company central office. 

A possible fix is being considered. 
Meanwhile, it is necessary that all 
801A5 and 801A6 units have power 
disconnected when the associated IBM 
equipment will have power off for more 
than 15-30 minutes. 


It should be noted that this is definitely 

a temporary solution and applies only 

to the 801A5 and 801A6. The earlier 
SO01A1 and all 801C units are not affected. 


OS/360 RELEASE 14 CHANGE NON-STANDARD 


CHARACTERS IN JCL 


The following article concerns a change, effec- 
tive with Release 14 of OS/360, which made 
non-standard characters unacceptable in the 
JCL DSNAME field, and an alteration which 
the user can make to obtain a temporary by- 
pass until he can make the necessary changes 
to his JCL. 


Special characters in the JCL DSNAME field 
are not acceptable in OS/360 Release 14. 

This is because the Reader/Interpreter has 
been replaced by a new version to be compat- 
ible with MVT. Some users have installed earl- 
ier releases with special characters such as in 
non-nn and nnn.nn. Those customers must 
ultimately conform to the new standard to assist 
in transition. 


The following Superzap for module IEF VFA 
will cause the Reader/Interpreter to accept a 
non-standard character in the DSNAME field. 
It also permits any non-standard character to 
appear anywhere in JCL, which is an exposure 
that each user must anticipate. 


061C 4120, 
O61C 47F0, 


0017 
B5C4 


VERIFY 
REP 


The instruction appears at sequence number 
17160000 of the Release 14 listing of module 
IEFVFA.,. 
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included in the Task Dispatcher which have 
the effect of accumulating 'TASK" time for 
an Initiator Task whenever any lower priority 
task is running, (its job step task and others) 
or when the hardware WAIT STATE is activated. 
This is intended to accumulate CPU active time 
plus WAIT time for eachjob step. The tech- 
nique allows the Operating System to terminate 
a Job Step if its run time exceeds a specified 
time interval. The user can control this inter- 
val with the TIME=parameter on the EXEC 


OS/360 - REVIEW OF ACCOUNTING FACILI- Statement, or the Reader/Interpreter can 
(ipo ee reer er ee ee supply a default value. 


Before REP 


@ After REP 


Note that this is only a temporary bypass for 
Release 14. No permanent change will be 
made to the new scheduler to accept non- 
standard characters. 


LA R2, ER MES8 
B FB3 


A user's accounting routine will be entered 
at Step Termination and also at Job Term- 
ination. A parameter list pointer is supplied 
in Register 1 when the accounting routine is 
entered. At offset 12 from the address in 
Registerl there is a pointer to a three byte 
field which contains the Job Running time 
(the accumulated step-times). At offset 20 
from Register 1 there is a pointer to a three 


The following article includes information 
which is provided for planning purposes only. 
The actual availability, if any, of all such 
items and their specifications will be as pro- 
vided through the official IBM procedures; 

the IBM Program Announcement letter and for- 
mal documentation. You are reminded that 
information in the 'IBM Internal Use Section" 
is NOT to be shown to customers, or anyone 


else outside of IBM. 


1. INTRODUCTION 


The ability to account for and thereby 
charge for the time that a problem program 


byte field which will contain the time that 

the current step has accumulated. These 

two times are available to the accounting 
routine at Job Termination and Step Termi- 
nation. Theaccounting routine can determine 
whether a Step or Job is terminating by testing 


& uses the computing system has been the the Step-name Pointer (off-set 4 from Regis- 
object of effort on the part of the users of ter 1) for zero. A zero condition indicates 
OS/360. Job Termination. It should be noted that Reg- 


ister 0 will not contain a valid entrance code 

as itdoes with PCPor MFT-I. Register 12 
contains the address of a system table (the 
Linkage Control Table) which may be used 

to write information to a SYSOUT queue for later 
processing by an Output Writer. 


This article summarizes the current capa- 
bilities of OS/360 in its different configur- 
ations; it highlights some areas of difficulty 
and presents some intermin solutions. The 
article does not cover all of the many mod- 
ificatiors or extensions that have been made 
and therefore is not a definitive coverage 


of the subject. 


The Step and Job time data fields will be zero 
if Job Step Timing was not generated into 
the System, however, the pointers to the timing 


The releases of the Operating System cov- data fields will be intact. 


ered in this article are through Release 14. 
There is a section at the end devoted to 


Some users find Significant variations in 
planning. 


the time recorded for a job or step from 
one run to the next. Inan attempt to cor- 
rect this variation, considerable time has 
been spent isolating the sources of varia- 
tion to the time. The following list rep- 
resents the major causes of inaccuracy. 


For details on accounting routine writing, 
please refer to the System Programmers 


Guide (C28-6550). 


2. MVT a) The current algorithm for accumu- 


lating time makes it possible for 

a task to execute without being billed 
for all of its WAIT time. This would 
be the case when a task of priority X 


With Releases 12 - 14, the MVT user has 
the option of selecting (with the SUPRVSO 


macro) Job Step Timing as a SYSGEN op- 
This will cause instructions to be 
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b) 


c) 


d) 


performed an I/O operation and 
WAIT's’ for the completion of that 
operation, and during that WAIT a 
higher priority task became ready and 
was given control. The timer for the 
WAIT'ing task will be removed from 
the timer queue, with the result that 
the WAIT'ing task will not be charged 
for all of the time that it WAIT 'ed. 


The resolution of the standard Inter- 
val Timer (the hardware timer) is 


approximately 16.6 ms. 


Measurements have indicated that a 
task may receive control, execute a 
number of instructions and lose con- 
trol to another task, all within the 
16.6 ms. This will make it appear 
that the task used no time. On the 
other hand, a task may receive con- 
trol just as the Interval Timer decre- 
ments; in this case the task could 
appear to have used more time than it 
actually used. The faster the CPU, 
the more inequitable this charging 
becomes. 


When data is being transferred through 
a channel, the CPU may be delayed 
from referencing main memory to 
allow the channel to fetch or store the 
data. During this time the Interval 
Timer continues to run. 


There is a known problem in the Task 
Dispatcher (see page 3, Internal Sec- 
tion, Newsletter No. 68-01, 'OS/360 
MVT Job Step Timing Error Correc - 
tion'). This problem causes the dis- 
patcher to either leave tasks on the 
timer queue when they should be re- 
moved, or to not place them on the 
queue when they should be on. This 
can be caused intwo ways. 


1. The user supplies a Job Step which 
asks for 1440 minutes of time (no 
Job Step timing ). 


2. An Output Writer task has attached 
a data-set writer task. 


Under these circumstances the dispatch- 
er suspends enqueueing or dequeueing 
the timer for all initiator tasks of lower 
priority than the task without a timer. 


e) 


f) 
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While a task (A) is executing instructions, 
an I/O interrupt causes control to be 
given to IOS, the timer for task (A) 
remains on the timer queue until IOS 

has processed the interrupt and has 
given control to the dispatcher. It is 
possible that the cause of the interrupt 

is an Input/Output operation initiated by 
task (B). In this case (A) is charged for 
(B's) interrupt. 


With the exception of point 2d above, no 
single one of these conditions causes 
large variations. However, the cumu- 
lative effect of all of them does cause 
variations from run to run and from 
one CPU model to another. 


There are interim solutions for some of 
these problems, for others there are 
none at this time. 


3. INTERIM SOLUTIONS: 


Two solutions are available for the 
Dispatcher problem. 


a. That referred to in Installation 
Newsletter 68-01 which corrects the 
problem in the Dispatcher, but 
does not affect the truncation of 
WAIT time mentioned in 2a above. 


b. An alteration has been developed to 
the Dispatcher which allows the 
accumulation of CPU active time 
only. See "OS/360 MVT 7PU Tim- 
ing Alteration" in issue 68-06 of the 
Newsletter. This eliminates the 
‘truncation of WAIT time" and 
also eliminates the problem des- 
cribed above. It produces times 
which are more consistent, but 
which do not reflect the total activity 
of the problem program. 


By eliminating the accumulation of 
WAIT time, a program that comes 
into the system and WAIT's endless- 
ly will not be terminated by Job 

Step Timing. Only the program that 
executes for too long will be termi- 
nated. 


A caution should be observed; 
the time that isto be allowed will 
not be the same (numerically) that 
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the program would have executed 
with in PCP. It will be dependent 
upon the nature of the program (its 
I/O to CPU ratio). 


Another consideration is the mod- 
ification of System code. This 
imposes upoh the modifier (user) 
the responsibility for reviewing 
the code with each révision to 

the system. 


The Dispatcher will be subject to 
changes in subsequent releases of 
the system to provide improvements 
to the present code. 


The accounting routine data set writer 
(IEF WAD) can be included in the 

MVT or MFT-II Job Scheduler to 
provide these systems with a 

function which is similar to PCP. 

(See Exhibit 1 for instructions for 
including IEFWAD.) 


In the PCP configuration, the op- 
erator has the opportunity to enter 
the location of the SYS1. ACCT data 
set with the initial SET command. 
(eg. SET DATE= xx. xxx, ACCT= 
xxx). This capability is a function 
of the initialization of the system, 
and not of the Job Scheduler. 
Therefore, the simple inclusion of 
the IEF WAD module in the sched- 
uler will not provide that capa- 
bility. IEFWAD does, however, 
allow the operator to change the . 
location of the SYS1. ACCT data 
set when the data set fills up, or 
cannot be found (message IFF506D 
SYS1. ACCT, xxx(, N) NOT PRE- 
ALLOCATED). The operator 
need not indicate the data set lo 
cation until the first use of the - 
data set, at which time he may 
direct the data set writer to any 
device that contains the data set. 


In MVT and MFT-II a Reader/ 
Interpreter task is started from a 
cataloged procedure. This pro- 
cedure may direct the Reader/ 
Interpreter to a data set which com 
tains Job Control Language and 
serves as the job stream to this 
reader. A procedure may be added 
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to the procedure library which will 
cause the scheduling of a job to 
print, punch, or otherwise process 
the accounting data contained in 
SYS1. ACCT. (See Exhibit 2 for 
an example of how to do this. ) 

The operator need only enter 
START DRAWOFF and the job will 
be scheduled and executed. 


-. MFT 


Because MFT systems do not have a separ- 
ate task for the initiator, but rather XCTL 
from initiator to problem program, there is 
no TCB to seta timer for without limiting 
the problem program's use of the timer 
functions, As a result of this, it has been 
the practice to obtain the starting and end- 
ing ''time-of-day'"' and use these figures to 
calculate elapsed step-time. 


In MFT, there has been some inaccuracy 

because of higher priority partitions inter- 
fering with the batched partition, but it has 
not been indicated to be a significant problem. 


In MFT - Il however, Multiple batch par- 
titions may be run with system Reader and 
Writer tasks. The problem now becomes 
very much the same as the MVT problem; 
how to charge one job in an equitable manner 
when there are many such jobs in the system 
at the same time. 


The user who is planning to to to MFT-II 
with the initial release must be made aware 
that the only timing facility provided is the 
time of day at initiation and termination. 


This is recognized to be a limitation and every 
effort is being made to improve it. 


. OUTPUT FROM ACCOUNTING PROGRAMS: 


a) In all configurations of OS/360 (PCP, 
MFT-I, MFT-II and MVT) the user- 
supplied accounting program may use 
the WTO SVC to output accounting in- 
formation on the console device. 


For IBM Internal Use Only 


SO ea cc scscassccc 


April 19, 1968 Issue No. 68-07 


RMATION ° 
b) In all configurations of OS/360, the 7. PLANNING INFORMATION 
accounting program may write mes- ae 
j t ro- 
sages to the SYSOUT data-set. Ooo following pisonlig 1 ormation 1S p 2 @ 
vided in the event that changes to a user's 


system are being considered. Note that 


c) In the PCPor MFT-I configuration, the first paragraph in this article applies 
the users accounting program may to the following: 
write into an accounting data-set 
named SYS1. ACCT. a. The next release of OS/360 MVT may 
include an Accounting Exit at initiation 
d) In an MVT configuration, the user's time, the entry code in Register 0 
accounting routine may write into the and a pointer to the step-number and 
system LOG data set. job-fail bytes (as PCP now has). In- 
itial documentation may be misleading 
e) In the initial release of the MFT-II on this point. 
configuration, there will be no support 
of SYS1. ACCT or the LOG. This is b. It is presently planned that, ina future 
recognized to be a limitation and work release, MFT IL will be updated to have 
is in process to improve it. The imple- Step Timing accounting facilities. This 
mentation will probably be a function will be done as soon as possible. 
similar to the LOG of MVT. (See In- 


More extensive accounting facilities may 
be included in future releases of OS/360. 
These facilities would provide additional 
information and services and enable in- 

stallations to monitor the use of their 


terim Solutions, paragraph c.) ms 


6. OTHER CONSIDERATIONS 


The sample accounting routine in SAMPLIB 


uses the facility of the SYS1. ACCT data set. systems. 

For this reason, the program cannot be d. A more consistent means of accumula- 

used inMVT or MFT-I. ting time (similar to the CPU Timing 
Alteration referred to above) is being © 


considered for MVT, including the ability 


t k dless WAIT condition. 
OS/360-REVIEW OF ACCOUNTING FACILITIES RU CE emnns 
OS/360-REVIEW OF ACCOUNTING FACILITIES 


INCLUDING TEFWAv IN tHe JUB SCHEDULEK W1iTH A USER 
ACCOUNTING ROUTINE. 
THE TEFWAD PROGRAM CAN BE FOUND IN THE MODLIB DATA SET OF 
YOUR STARTER SYSTEM. 
THE SYS1.ACCT DATA SET SHOULD BE ALLOCATED IN ACCORDANCE WITH THE 
RULES IN THE SYSTEM PROGRAMMERS GUIDE. (VIZ~ NO SECONDARY SPACE 
ALLOCATIONsHAVE CONTIGUOUS SPACE AND NOT BE CATALOGUED.) 


//ADDWAD JOB 0, »sMSGLEVEL=1 
//STEPL EXEC PGM=ITEWL,sPARM="*XREF,LIST,yLET yNCAL', $ 
J/ REGION=96K 
J/SYSPRINT DD SYSOUT=A 
//SYSLMOD DD DSNAME=SYS1eLINKLIB,DISP=OLD 
//SYSUT1 DD UNIT=2311,SPACE=(CYL»,(4,2)),DISP=NEW 
//ACCOUNT DD DSNAME=SYS1.ACCT,UNIT=2311, ’ 
// VOLUME REF=SYS1.SVCLIB,DISP=(NEW, KEEP), ’ 
// SPACE=(121,(400) ,,CONTIG) 
//MODLIB DD DSNAME =SYS1.MODLIB,UNIT22311,DISP=OLD, 9 
// VOLUME=SER=DLIBO3 
S/SYSLIN DD x 
OBJECT MODULE FOR IEFACTRT 
INCLUDE MODLIB(TEFWAD) 
INCLUDE SYSLMOD(MODULE NAME) 
ALIAS MODULE ALIASES 
ENTRY MODULE ENTRY POINT 
NAME MODULE NAME(R) 
/%* 
Exhibit 1 
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OS/360 - REVIEW OF ACCOUNTING FACILITIES 


KEADER/INIEKRPREITERKR PRUCEDURE TO PRINI SYSL-AUCI.- 
THIS PROCEDURE MAY BE INSERTED INTU THE PROCEDURE LIBRARY OF 


AN MFT-IIT OR MVT SYSTEM. 


THE OPERATOR MAY THEN ISSUE A "START DRAWOFF' COMMAND,WHICH WILL 
CAUSE THE SCHEDULING OF THE CATALOGUED PROCEDURE TO PROCESS THE 


SYSLeACCT DATASET. 


//ADDPROC JOB O, »>MSGLEVEL=1 ADD READER PROCEDURE 

//STEPIL EXEC PGM=IEBUPDTE »PARM=NEW 

J/SYSUT2 DD DSNAME=SYS1.-PROCLIB,DISP=OLD 

//SYSPRINT DD SYSOUT=A 

//SYSIN DD DATA 

e/ ADD NAME=DRAWOFF 

e/ NUMBER NEW1=0,INCR#=25 

//TEFPROC EXEC PGM=IEFIRC, ’ 

// REGION=52Ky READER BASIC REGION X00040000 
// PARM *80103005001024905210D11A ' DEFAULT OPTIONS 00060000 
// xeoKKEBPPTTTOOOMMMIITICCCRLSSSSSSSS PARM FIELDS DEFINED ,00080000 
// PROGRAMMER NAME ANO B 200100000 
// ACCOUNT NUMBER NOT NEEDED 200120000 
// PRIORITY O1 PP 700140000 
// JOB STEP INTERVAL 30 MINUTES TTT 700160000 
// PRIMARY SYSOUT SPACE 50 TRACKS 000 00180000 
// SECONDARY SYSOUT SPACE 10 TRACKS MMM 200200000 
// READER/INTERPRETER DISPATCHING PRIORITY 249 III ¢ 00220000 
// JOB STEP DEFAULT REGION 50K CcC 200240000 
// DISPLAY AND EXECUTE COMMANDS 1 R 700260000 
// BYPASS LABEL OPTION O L 200270000 
// SYSOUT UNIT NAME DII1A SSSSSSSS$ 00280000 
//TEFRDER DD DSNAME=SYS1.PROCLIB( DRAW) ,DISP=OLD 

//TEFDATA DD DUMMY 

//TEFPDSI DD DSNAME=SYS1-PROCLIB, PROCEDURE LIBRARY 200380000 
// DISP=OLD 00400000 
e/ ADD NAME=DRAW 

o/ NUMBER NEW1=0,INCR=24 


//OSKPRT JOB MSGLEVEL=1 
//STEP EXEC PGM=IEBPTPCH 
//SYSPRINT DD SYSOUT=A 


//SYSUT1 DD UNI T= 2311,¢DSNAME=SYS1-ACCT,DISP=OLD,DCB=(BLKSIZE=121) 


//SYSUT2 DD SYSOUT=A 
J/SYSIN DD 
e/ ADD 
o/ NUMBER 
PRINT MAXFLDS=1 
RECORD FIELD=(12051)5,%1) 
e/ ENDUP 

/* 


NAME=DR 
NEW1=0,INCR=25 
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OS/360 FUTURE RELEASE PLANNING INFOR- 


MATION 


The following information is provided for 
planning purposes only. The actual availability 
and specifications of all items will be as an- 
nounced through the official IBM procedures, 
the Program Announcement and formal docu- 
mentation. 
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DSNAME=SYS1ePROCLIB(OR) »DISP=OLD 


Installation Newsletter 68-03, page 2, con- 
tained planning information for OS/360 Release 
15. The plan for this release has been altered 
as a result of analyzing user requests for fewer 
full releases of OS/360, to minimize the cost 
of upgrading, and to provide for a longer main- 
tenance period for MFT- I. 
been made to: | 


The decision has 


April 19, 1968 


1, Distribute a Release 14 CMR (Compiler 
Maintenance Release), rather than Re- 
lease 15 as previously planned. 


2. Instead of the original Release 15, pro- 
vide a combined Release 15/16. The 
planning information previously published 
(issue 68-03) for Release 15 will 
be applicable to Release 15/16, Ad- 
ditional planning information about 
Release 15/16 will be made available 
in a future issue of the Installation 
Newsletter. 


Plans are that Release 14 CMR will include the 
COBOL and FORTRAN Compilers with their re 
lated libraries, and possibly PL/I. These com- 
ponents can be incorporated into Release 14 
through a processsor--only SYSGEN. It is 
expected that users who have already ordered 
Release 14 and use COBOL and/or FORTRAN 
will order Release 14 CMR. New users will 


require both Release 14 and the Release 14 CMR. 


The Release 14 CMR will provide fixes for over 
100 APAR's. It is possible that Release 14 CMR 
may be available as early as May, 1968. 


DOS/360 RELEASE 16 OPTIONAL MATERIAL 
INITIALIZE DISK ERROR 


DOS/360 Release 16 (Program Announcement 
P68-53) Optional Program Material tapes con- 
tain an initialize disk program which does not 
properly flag bad tracks. The stand-alone BPS 
program or the Initialize Disk program at the 
beginning of Release 16 distribution tapes should 
be used if pack initialization is required before 
restoring the optional program material tapes 
to disk. 


DOS/360 VERSION 3 SERVICE AID PLANNING 
INFORMATION 


The following information is provided for 
planning purposes only. The actual availability 
and specifications will be as announced 

through the official IBM procedures, the Pro- 
gram Announcement letter and formal documen- 
tation. 


Is sue No. 68-07 


The initial release (P68-53) of DOS/360 Ver- @ 
sion III, (DOS Release 16), contains the first = 
of five service aids planned for use with Ver- 

sion Ill. This aid is I/O Interrupt Trace. Four 
other aids are presently under consideration. 


I/O Interrupt Trace is designed to allow I/O 
activity of programs run under DOS/360 to be 
traced. Tracing consists of recording the I/O 
old PSW and the CSW when an I/O interruption 
Occurs, or recording the Device Address, the 
CCD address and the CSW when the CSW is 
stored in response to an SIO instruction issued 
by the DOS supervisor. After recording, the 
data may be preserved ina rotating buffer in 
core (first entry overwritten when the area is 
full, etc.), or output on a printer, punch or 
tape unit. When Punch or Tape output is used, 
the CEAIDLST utility program is required to 
provide readable output data. 


1. Prerequisites 
a) Program Requirements 


I/O trace requires a DOS Supervisor, 
(Version 3 or later) in which the 
FOPT macro option 'CE=YES' or 
'CE=nnnnn!' has been exercised. 
(10,240 > nnnnn=> 600) 


The following Phases must be pre- 
sent in the CORE IMAGE LIBRARY: 


CEAID 
CEAIDOO1 
CEAIDO02 
CEAIDLST 
$$BZCEO1 


b) Equipment Requirements 


Minimum DOS/360 requirements, 
plus 32K bytes of main storage. 
When tape, printer, or punch output 
is used, the output device must be 
dedicated to the trace program, and 


should not share a Selector Channel 
or a control unit with other programs 
being executed. 


Complete information on operation, 
options, etc. is contained in form 

number 224-5091 (IBM S/360 DOS 

Version HI C, E, Serviceability 
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Programs). This publication will be 
updated as the additional aids are 


released. 


It is imperative that the customer 
exercise the CE option, (CE=YES 


or nnnnn), when assembling his DOS 
Version III Supervisor in order to 
obtain the benefits of these aids. 


If additional information is required, 
contact your FE Branch Office. 


S/360-20 NEW CATALOG OF PROGRAMS 


A new Catalog of Programs for IBM System / 
360 Model 20 (Form Number C20-1691) will be 
made available and announced in the Publica- 
tions Release Letter (PRL). 


The new catalog May be ordered from the eae 
Distribution Center, Mechanicsburg following 
announcement of availability in a PRL. . 

This new Catalog of Programs will contain 
abstracts and ordering information for all pro- 
grams available to users of System/360 Model 
20 from the Program Information Department. 


All System/360 Model 20 programs which 
appeared in the Catalog of Programs for IBM 
System /360 (Form Number C20- 1619-4) have 
been deleted. 


TELEPROCESSING - TELPAK TARIFF RE- 
VISIONS 


Prior to using the following information, be 
sure that you have reviewed "Planning a Tele- 
processing System, page GI-3, and competition 
page GI-1, in the Sales Manual and understand 
the IBM policies which apply. 


AT & T has filed new revisions in its Series 
5000 channels - Base Capacity (formerly known 
as Telpak) which will increase the cost of these 
facilities in several ways on June 1, 1968: 


1. Mileage charges are increased. 
2. Service terminal charges are increased, 
3. Telegraph and subvoice channel capacity 


is reduced. 


Exhibit 1 shows acomparison of the present 
and future rates where changes will occur. 
Notice that the high speed type numbers are alsa 
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changing. In addition, the old 5752 and 5801 
types which ran at 105 and 500 kbps, respective- 


ly, are to be removed. 


The reaction of users to these changes indi- 
cates that the effective date May be postponed, 


possibly until 3Q68. However, if you have 


customers with Telpak installed, or proposals 
outstanding which use Telpak, you should be 
considering the impact of this change. 


Two alternatives, which definitely can look 
better under the new rates than under the old, 
are the IBM Remote Multiplexors (2712 and 
2905) and the Shared Line Adapter modem. 

Since telegraph channel users will be impacted 
the most by this revision, you may well find 

that upgrading to fewer channels of IBM term- 
inals operating at 134.5 bps and using the Shared 
Line Adapter will compare favorably with tele- 
graph systems. 


1600 BPl PHASE ENCODED TAPE R/W AND 
CAPACITY 


When calculating the capacity and Read/Write 
times for 1600 BPI tapes, 82 bytes must be 
added to each tape block. 


Forty-one bytes are added to the beginning and 
41 bytes to the end of each block, automatically 
when the tape is written, to obtain synchroni- 


zation for forward and backward tape read op- 
erations. 


These added bytes will have the most pro- 
nounced effect on tape operations when small 
blocks are used. 
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aoe 


$ 25/mile Base Capacity 5700 (60 equiv Voice Channels) 
$45/mile Base Capacity 5800 (240 equiv Voice Channels) 


Service Terminals*** 
VeOUVICe See 


First/Exchange Each Add'l 


er ere are RES SEF Eten mt ttt ince” « witan Sentra OCI eA 


$15 5 5102 (75 bps Telegraph) up to 12 per equiv Voice Channel 
15 ee **5106 (150 bps Subvoice) up to 4 per equiv Voice Channe! 
15 aa 5302 (Voice grade data) 
425 375 } *5705 (19, 200 bps data) uses 6 equiv Voice Channels 
250 195 /\ *5702 (40,800 bps data uses 12 equiv Voice Channels 
364 - ae } *5704 (50,000 bps data) uses 12 equiv Voice Channels 
455 -———\/ *5754 (230, 400 0 bps data) uses 60 equiv Voice Channels | 


FILED EFFECTIVE JUNE 1, 1968 
(Items changed from above chart are underlined) 


$28/mile Base Capacity 5700 
$60/mile Base Capacity 5800 


First/Exchange Each Add'l 


eet Seth Mme ct 
S amemaiae 


a car ort 


5102 (75 bps Telegraph) up to 6 per equiv Voice Channel 


Slnmamiane 


25 10 
ee 10 **5106 (150 bps Subvoice) up to 3 per equiv Voice Channel 
25 TO x 5302 (Voice grade data) 
425 375—————,_ * 5703 (19, 200 bps data) uses 6 equiv Voice Channels 
425 300 /\ *5701 (40,800 bps data) uses 12 equiv Voice Channels 
425 300-——_{ *5701 (50,000 bps data) uses 12 equiv Voice Channels 


650 eh / *5751 (230, 400 bes data) uses 60 equiv Voice Channels 


NN ER NTS TTT TS ERR SA: eR 


*Each of these service terminal charges includes a data set or data station. 
**An additional $25 station arrangement is required at each premise served by this channel. 
***One service terminal charge is incurred for each connection to the line, even when more 
than one is on the same premises. 
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SECOM ON MICROFICHE TO BE DISCON- 
ee ee 
TINUED 


tion can be accomplished by ITPS, dial-up 

1050 and the leased line 2740 terminals being 
installed by CE in all of their branches during 
1968. 2740's will also be installed in some DP 
support locations (i.e. Field Systems Centers), 


Because of costs and an apparent lack of use 
of SECOM on the CE microfiche at customer 
locations, this method of distribution will be 
terminated as of May 1, 1968. Other methods 
of distribution will be continued--i.e., daily 
broadcast, and weekly abstracts mailed to 


If this decision causes a problem in availability 
branch offices. Retrieval of detail informa- 


of SECOM information, consideration may be 
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given to aSECOM, microfiche package available 
(with full text) each week by subscription. 

@ The need for this type of service or any other 
comments onSECOM should be sent to: 


DPD SECOM Coordinator 
Department 713 
DPD HQ 


INFORMATION ABOUT THE NEWSLETTER 
EVERY SALESMAN AND SYSTEMS ENGINEER 
SHOULD RECEIVE ONE COPY OF THE NEWS- 
LETTER, Each FE Branch Manager should 
receive five copies for distribution to Customer 
Engineers. 


The IBM Installation Newsletter is distributed 
only’ to IBM locations and is not available to 
customers. The Newsletter is separated into 
two parts. The first part contains information 
which is intended only for IBM personnel and 
} _ the pages are labeled For IBM Internal Use 
Only. THESE PAGES, OR REPRODUCTIONS 
OF THEM, ARE NOT TO BE GIVEN TO 
CUSTOMERS, However, using your own good 
judgement, you may discuss pertinent informa- 
tion from these pages with a customer. The 
second part contains information which may 
be REPRODUCED by the Branch Office at their 
discretion and given to customers. 
are not labeled with any restrictive classifica- 
tion. Note that when any abstracts for Type III 
programs are given to the customer, he must 
be informed that the disclaimer for Type III 
programs as contained in the Newsletter, ap- 
plies. YOUR COOPERATION IN PROPERLY 
HANDLING THE CONTENT OF THE IBM IN- 
STALLATION NEWSLETTER IS NECESSARY 
FOR ITS CONTINUED PUBLICATION, 


Changes to the quantity of the Newsletter ship- 
ped are to be made by the Administration 
Manager. (NOTE THAT EXTRA COPIES OF 


THE NEWSLETTER ARE NOT TO BE ORDERED 


FOR DISTRIBUTION OF INFORMATION TO 
CUSTOMERS.) He should update and send the 
DP Administration Managers' Communication 
e Control card (form number N44-780) to DP 
Communication Control, DPD HQ, 


These pages 
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Direct inquiries concerning the contents of this 
Newsletter to: 


W. P. Gaffigan, Editor 

IBM Installation Newsletter 
Installation Planning -#713 

DPD HQ 

112 East Post Road 

White Plains, New York 10601 
Telephone 914 WH9-1900 Extension 4781 


NEW PUBLICATIONS ANNOUNCED BY PRL'S 


The weekly PRL's (Publications Release Let- 
ters) are used to insure that all Salesmen and 
Systems Engineers are aware of new or revised 
Marketing Publications. Normally, each issue 
of the Newsletter will contain information from 
two PRL's, one following the other. The in- 
formation will be placed in the Newsletter in 
its original form with no rearrangement of 
form numbers or titles. It is not intended to 
replace existing information and distribution 
sources. You should be certain that you are 
aware of these sources. 
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REFERENCE SOURCES 


7070 SRL Newsletter Re: A22-6699-4 
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Scrap 20-7070, 32 


MARKETING PUBLICATIONS. 


Control Systems Analysis Program II (CSAP IT) 

Possible Performance Improvements by Microprogramming for System/ 360 Models 40, 50 & 65 
Extended Use of the Coulomb Approximation: Mean Powers of 7, a Sum Rule, and Improved 
Transition Integrals 

Analog, Digital, and Hybrid Computers in Process Control 

Line Profiles in the Upper Atmosphere: The Voight Function 

EXCFAM (Execute Channel Program Access Method Under OS/ 360) 

Observations on the Design of High-Performance Digital Computers 

A Reexaminatien of Homogeneous Nucleation Theory: Statisticai Thermodynamics Aspects 


Time+Shared Critical Path Calculations 

Asymptotic Behavior of Certain Nonlinear Boundary Value Problems 
Data and Systenis Requirements in Metcorology 

Numerical Algorithms for the Solution of the Evaporation of a Raindrop 


The Advantages of Using the IBM Systen/ 360 Computer for Large-Scale Scientific Problems 
Free Enerzy of Formation of Droplets from Vapor and Dependence of Surface Teusion on Radius 
Conjectwres Concerning the Connection Betweea Stability in the Small of Autonomous 
Differential Equations and the Roots of the Jacobian Matrix 

Theory of the Diffusivity Factor for Atmospheric Radiation 

Predicting the Critical Supersaturation for Homogeneous Nucleation of Vapor Condensation 
Study of the Mammalian Adrenal Glucocorticoid System by Computer Simulation 

A Subroutine for the Evaluation of the Exponential Integral with Fifteen Significant Figure 
Accuracy 

You gei more than machines from IBM 

Select Composez Instruction Manuai Supplement 

Composer Type Style Booklet 

1050 Operator's Guide 


IBM 1450 System Summary 

2938 Model i and Modei 2 Array Processor RPQ Installation Manual « Physical Planning 
$/360 Mod 20 Sterling Routini:s 

IBM 18CO Multiprozramming Executive Operating System Introduction 

IBM 7040/7044 FORTRAN IV Language 


Part~Period Algorithm - A New Economic Lot Sizing Techniques 

Fundamentals of using QUIKTRAN 

Audio Response for Application Contro] at Equitable Life Assurance Socicty of the Unitcd States 
2905 Remote Muitipiexer (Physical Planning) 

Technical Newsletter for 1130 Mechanism Design System ~ Gears and Springs (1130-EM-01X) 
User's Manual Re: H20-0365-0 

Changes to IBM S/360 Model. 50 Functional Characteristics Re: A22=6898=1 

TNL to IBM 1440 Instruction & Timing Summary Re: A24-3094=3 

TNL to IBM 1440 DPS Physical Planning Installation Manual Re: A24-3007-5 

TNL to S/ 360 Mod 30 Functional Characteristics Re: A24-3231-4 

IBM S/360 Model 65 Functional Characteristics TNL Re: A22-6884=2 with N27-2909 & N27- 
2916 

TNL to S/ 360 Operating System Basic Telecommunications Access Method Re: C30-2004-1 


TNL to S/ 360 Disk Operating System Basic Telecommunications Access Method Re: C30-5001-4 
with N30-50165, N30-5024 & N30-5505 

TNL IBM S$/360 Onerating System ALGOL Language Pe: C28-6615—1 

TNL to Mod 20 DPS/TPS RPG SRL Re: C24-9001-3 with N33-9018 

System/ 360 Operating System Language Interface Student Materia]s 

IBM 5/360 Computer Systems Simulator/ 360 (CSS/ 360) Education Guide 

System/ 360 Operating System BTAM Coding Education Guide 

IBM S/ 360 PL/I Coding Course Description 

$/360 DOS/TOS Operation Course Description 
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System/ 36C Computer Simulator/ 360 Course Description 

IBM S/ 360 Operating System BTAM Coding Course Description 

IBM S/360 Mod 20 RPG (MFCM) Text 

IBM 519 Document Originating Machine Operation and Wiring Notebook 
IBM Computing System Fundamentals Notebook = Unit I 


IBM S/ 360 Model 20 Report Programm Generator = Reference Card 

IBM S/ 360 Job Control Language Reference Card | 

OS/ 360 COBOL (F) & (F) Language Reference Card 

IBM 1130 Reference Card 

TNL for 1130 Route Accounting System for Dairies and Bakeries (1130-DX-01X) System Manual 


Re: Y20~0078-0 with Y20-0121, Y20-0135 & Y20-0152 


IBM S/360 Operating System Indexed Sequential Access Methods PLM 

1BM S/360: CLEAR Management Reporting Systém 

Personal Trsining Guide - CST Student Guide - 

Personal Training Guide - BDP Student Guide 

A Linear-progrannning technique to optimize traffic lane balance in a motor freight system 
Minimum DOS documentation standards 

A hybrid computing system using the IBM 1800 data acquisition and control system and an 
analog computer 
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Bibliography of Application Publications ~ Finance Industries 
SRL NL Teleprocessing Re: A24=3039-6 
TNL to Bibliography of Application Publications Finance Industries Re: H20-0507-0 
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Scrap 232-035 1-0 
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NEW 
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MARKETING PUBLICATIONS 


IBM System/ 360 Administrative Terminal System Proposal Insert 
IBM System/ 360 Models 30, 40, 50, 65 and 75 Facts Folder 


For Cost~Conscious Management... A New Version of System/ 360 Model 20 Promotional Brochure 


Laboratory Automation Based Systems 
"S:lectric" Instruction Book 
MT/ST Manual Mod IV 


IBM System/ 3650 Model 75 Configurator 

IBM System/ 360 Mod 30 Configurator 

IBM 29 Card Punch ~ Reference Manual 

IBM 1800 Multiprogramming Executive Operating System Subroutine Library 
IBM System/ 350 Operating System: Utilities 


IBM 1450 Bank Data Processing System ior Demand Deposit Accounting 
IBM 1450 Bank Data Processing System for Savings Accounting 

13M 1450 Bank Data Processing System for Mortgage Accounting 
General Ledger Accounting Worcester County National Bank 

Producticn and Job Cost at Madden Duplicating Services, hic, 


Changes to Data Acquisition Special Features for the IBM System/ 360 Model 44 Re: A22-6900-2 
Tei 2841 Re: A26-5988-5 

IBM System/ 366 Opcratiiig System: Basic Felecommunications Access Method Re: C30-2004-1 
I3M System/ 360 Medel 20 Functional Characteristics Re: A26-5847-2, -3 with N26-0174, N26- 
0176, N26-0179, N33~=1501, N33-1504, N33-1506 & N33-1507 

TNL to IBM System/ 360 Model 20 Installation Manual = Physical Planning Re: A26-5896-6 with 
N26-0164, N26-0160, N33-1500, N33=1502, N33=1503, N33~1508 

Attached Support Processor Systein (ASP) (360A-CX~15X) System Manual 

Office Objectives . 

Time Sharing industry Survey 

1403 Computer Letter Writing on the Document Couaverter 

Measurenient & Guidlines for Programmers a Mcthod of Programming 

Conversion of FORTRAN Programs to S/ 360 FORTRAN 

Computer References by Category Prepared for DP Education 

Estimating DOS/ COBOL Index Sequential File Times 
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OS RELEASE 14 PCP JOB SCHEDULER TERM- 
INATING JOBS 


The following is a field contribution which has 
not been submitted to any formal IBM test. 
Potential users should evaluate its usefulness 
in their own environment prior to implemen- 
tation. 


Effective with OS/Release 14, a ''system A- 
BEND "' may occur at job termination when the 
following set of conditions exist: 


OS RELEASE 14 PCP JOB, SCHEDULER TERMINATING JOBS 


ISF7GI21, 
TEFYSS“3, 
TEFFHEAK, 
TEFWR1S), 
IFFSDOD3, 
IFFOMSSS, 
TEFQREAK, 
IEFSAONT, 
TEFSOOOA, 
~ JEFTG“SG, 
TEFZHMSS 
“TEE ACTLR, 


cer ne ces nal ee ee ne ee aes mentee omer cna oe at teen me nee 


TEFWAD) 
TEFW23S9,1EF7A | 
— TEF7A 
TEFITEPM ER) | 


ff 
J/STAGETHO JOB 33009, '2CP FOS 
_1ISG2E EXEC PGM=TEALsSCOND=(85LTVs 
lf PAR Y= 


SF SYSPRINT DD SYSGUT=A 
S/SYSELMOD OD OTSP=OL9I,UN 

VOLUAF= 
DESS=OLD,OSNAME=SYS] 


SIT=2311¢ 


WUNCH OD OC 


J/ACOL IB DD 
SYSPU DISP=CLNH, VALUME=(,° 

ee ee | 
S/SYSLIN DD F 


INCLUDE MOPALIBCLEFVOA, 


a emer a ee A A a 
. 


MO. 


TYCAL »LIST,XREF,LET!? 7 
J/SYSUTL BD DISP=OLD, VOLUME =( ,2ETAIN) yOSNAMFE=SYS1. 
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1. <A 64K machine is being used. 
The 44K Job Scheduler has been specified. 
3. An accounting routine has been specitied 
and included (2600 + bytes). 


Asa result of the above, and changes made in 
the organization of the job termination mod- 
ules, insufficient core is available to termi- 
nate jobs. In the case of one user, the PCP 
nucleus was 18K. 


A solution is to re-organize and re-linkedit two 
job termination modules as shown in Exhibit 1 
(for a S/360 Model 40). 


COU 
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AOS 
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ee en 


ee et 


49*,™SGLEVEL=1 


XXX KKK K 
UT3 


XX XXKXXX 


SFR=LII1L11, OSNAME=SYS1.LINKLIF 
1. MADLTS y VOLUME=(2PETAIN) 


cTATN) »NCR=U RP CFN=F,SL 
_DOSNAMNE=SYS1.0BNMOD 


=F ,3LKSTZE=39), XXXX 


oO 
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IEFFVEA, 

IfFVGI, 
IEFVGK, 
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IFFEVGT, 
TFFVHA, 
~ JEFVHAA, 
IEFVHB, 

~ -JEFVHC, 
IFFVHTA, 
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Qs RELEASE 14 PCP JOB SCHEDULER TERMINATING JOBS (Continued) 


- LTEFVHE, 
TEFVHER, 
ITEFVHEC, 
TEFVHEF, 
IEFVHGSS», 
TEFYHH, 


Pelee 


ITEFVHL, 
y ITEFHMFAK, 


a 
a 
a rn rane enceenentnetentae 


IEFVHRSS,» 
~JEFVJIA, 
TEF23F AK, 


WA 


OAC 


IEFOMSSSy 
5 IEF TKGXX » 
— TEFS90D8, 
TFFSOOOL, 
~~ TEFSHOOT, 
TEEMCREK y 
IEFVER, 
) IEFSNN0G, 
ITEFOOFAK, 
IFFVONU, 
pe res TEFSNO99, | 
IEFSDO12) 


aa 


ALTAS 
j ENTRY _ 
NAME — oTEFECNTRLE GR) 
INCLUDE MODLIB{TEF35DUM, 
e IEFSDOLO, 
TEFW23SD, 


IEFVHA 


ARNE tn SS ATS EA EE SS SELES SPSS LP ETN TE 
ec EP RR SE TED 


TEFWTERM, 


Exhibit 1 


OS/360 AL ROUTINE TO CONVERT JULIAN 
TO GREGORIAN DATE 


The following contribution has not been sub- 
mitted to any formal IBM test. Potential users 
should evaluate its usefulness prior to imple- 
mentation. The author has tested the routine 
only in an MVT environment. 


Exhibit 1 contains an assembly listing of a sub- 
routine that converts the date, as found on DS 
labels, and as returned by the TIME macro, to 
a human~-oriented format. 


The subroutine as written can be used directly 
only by ALP-(Assembly Language) coded cal- 
lers. To be used by other source languages, 
it must be modified. To test the subroutine, 
the author coded an intermediary ALP pro- 
gram which receives a standard OS call, sets 
up the argument in GPRL, calls GREG, and 
returns the answer as required by the caller. 


a i en a a a ane 


rere 


| 
| 
| 


QA CAA AOA CO 


TEFVHA,IEFSDOOS, TER KS, IEF VHAA 


EST A EI AS P E A  APN OE SAO 


AAAAA 


OS/360 FORTRAN ELIMINATE PROTECT RING 
RO TAPES 


Newsletter 67-26 contained, on page 3, an 
article on the above subject. The Verify and 
REP entries were not properly sequenced. They 
should be ''Verify" followed by REP, Verify fol- 
olwed by REP. SUPERZAP sets the ''NO GO'! 


switch only between ''Verifies", which means 


that the proper sequence must be used when- 


ever SUPERZAP is used for altering OS/360. 
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OS/360 AL ROUTINE TO CONVERT JULIAN TO GREGORIAN DATE 


_._PAGE 1 
STMT SOURCE STATEMENT FO1JAN68B 3/15/68 
2 GREG START GREGOO1O 
; : | Le GREGOO2ZO 
’ GREG0030 
2 * GREG — A SUBROUTINE TO CONVERT JULIAN [YYODD) DATE TO GREGORIAN GREG0040 
6 x CODE IS REENTRANT GREGO050 
7 * RESTRICTION — INVALID FOR YEARS ENDING IN O00, EXCEPT AD 2000 GREGO060 
8 * AT ENTRY ARGUMENT IS IN GPR1 IN FORM GIVEN BY TIME MACRO — GREGOOTO 
9 x COYYDDDS PACKED DECIMAL GREGOO0S8O 
10 # AT EXIT RESULT IS IN GPRI - a =" EREGO090 
ll * OYYMMDDS PACKED DECIMAL GREGOLOO 
STMT SOURCE STATEMENT FOLJAN68 3/15/68 — 
13 USING *,15 CALLER HAS PRIMED BASE REGISTER GREGOL20 
14 DBASE EQU 13. WILL WORK IN SAVE AREA GREGO130 
15 INDEX EQU 4 FOR “GREGOLT40-— 
16 INCRMNT EQU 2 BXLE GREGOLSO 
17 LIMIT EQU 3 USE GREGO160 > 
18 DAYJR EQU 1 JULIAN DATE INHERITED FROM CALLER GREGO170 
19 USING DATA,OBASE DATA POINTER GREGO180 © 
21 SAVE (14,5} GREGO200 
22+ DS OH 
23+ STM =: 149 512413). SAVE REGISTERS 
24 MVN DAYJ#tL' DAYJ-1LO(1),TBLtL*TBL-1 MATCH UP ZONES GREGO210 
25 ™ YRJ»X’13' BEGIN TO CHECK FOR LEAP YEAR © 7 ~~" ""““GREGO220 
26 BZ LEAP OO, 04, O08, OMOD 200 GREGO230 
27 BO COMMON 13, 17 oMOD 200 ~ “GREGO240 ~— 
28 ™ YRS 9X !12! GREGO250 
29 BNO COMMON ALL OTHERS EXCEPT 12, 16 (MOD20) -GREGO260 
30 LEAP CLC DAYJ,=sP "60! FEB 29 GREGO270 
31 BL COMMON EARLIER — TREAT AS IN A COMMON YEAR ~~” ~~” ~~ GREGO280 
32 BE FEB29 SPECIAL CASE GREGO290 
33 SP DAYJ,TBL+2¥*L‘TBL-1 (1) DAYSDAY-1 TO SIMULATE COMMON YEAR GREGO300 
34 COMMON MVO YRGyYRJ MAKE ROOM GREGO310 
35 NI YRJ»X SFO! FOR MONTH GREGO320 
36 LM INCRMNTy INDEXy=A (L'TBLsLL#L 'TBL yb! TBL) GREGO330 
37 LH DAYJR,DAYJ ees ee “GREGO340 
38 LPA CH DAY JR» TBLif INDE X} TABLE GREGO350 
3g BNH KALEND SEARCH GREGO360 
40 BXLE INDEX, INCRMNT,LPA GREGO370 
41 KALEND LA LIMIT, TBL-LA2TBLZINDEX) POINT TO SUBTRAHEND IN TABLE GREGO380 ~~ 
42 sep DAYJ, 0 (L'TBLyLIMIT) SUBTRACT CUMULATIVE DAYS GREGO390 
43 SRDL INDEX,33 PREPARE TO DIVIDE re ~“GREGO400 
44 D INDEX,=f£'1LO' CONVERT MONTH TO PACKED DECIMAL GREGO410 
45 EX INDEX+1,0IT TENS DIGIT OF MONTH | GREGO420 
46 SLL INDEXy4 POSITION UNITS DIGIT GREGO430 
47 EX INCEX,OIU UNITS DIGIT OF MONTH GREG0440 
48 Cl DAYG+1,X oF? PLUG ZONE GREGO450 
Exhibit I 
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O0S/360 AL ROUTINE TO CONVERT JULIAN TO GREGORIAN DATE Continues” 60860 


49 BACK RETURN $14» 59,7 
50+BACK CS OH | | 
51+ | LM 14,5,120130 RESTORE THE REGISTERS 


_ -- ~Exhibit 1 


DOS/360- OS DUMP-RESTORE V-6 INCORRECT 


DOS PACK BACKUP TAPES 


While some installations use both 03/360 and 
DOS/360, other DOS/360 users should not be 
encouraged to order and use this OS/360 utili- 
ty if it is not required in their installation. The 
following article is intended for those users who 
presently use the OS/360 utility for generating 
backup tapes for DOS/360 packs. 


When a DOS/360 pack is dumped to tape by use 
of the Version 6 OS/360 Dump-Restore deck, 
the standard label cylinder will not always be 
handled correctly. Thetrouble becomes appar- 
ent only when the pack is later restored from 


52+ MMVI  120130,Xa@FFa SET RETURN INDICATICN 

653+ BR 14 RETURN 

54 FEB29 EX O,COMMON MAKE ROOM | ore coee 

SR RT ORS XT FOS FOR MONTH GR 2 
56 MVC - MTHo20,=X2229F* DATE IS FEB 29 GREGO4 

57 B BACK GREGO500 
58 OT Ol MTHet—-* PLUGS TENS DIGIT OF MONTH uaa 
59 Ol” OI MTH+l,y*#—-* PLUGS UNITS DIGIT OF MONTH GREGO52 

STMT SOURCE STATEMENT FOLJAN68 3/15/68 
61 * CONSTANTS AND DATA DEFINITIONS GREGO540 
63 TBL DC PLZ 0931259290 91209151918192124 24392713 93044 334 GREGO560 
65 DATA DSECT GREGO580 
“660° DS  6F BEGINNING OF SAVE AREA GREGO590 
67 DATE DS OF GREG0600 
68 DATEG DS OPL4 GREGO610 
69 YRG DS OPL2 GREGO620 
70 DS PLI GREG0630 
71 DATES DS OPL3 GREG0640 
T2° YRJ~ DS  ~ OPLI GREGO650 
73 MTH DS OPL2 GREGO660 
74 DS PL GREG0670 
75 DAYJ DS OPL2 GREGO680 
76 DAYG DS PL2 GREG0690 
77 END GREGOTOO 
300 ge aT BL, 1L1¥LaTBL,LaTBLa 
79 #Fal0a 
80 | #Pa60a 
81 #X4@229F a 


the tape, and a message is printed that the 
program is terminated because of an I/O check. 
What happens is that everything up to the stan- 
dard label cylinder is put back on the pack. 


Version 5 of OS/360 Dump-Restore will oper- 
ate correctly. This intermittent problem 
appears isolated to using Version 6 in going 
from a DOS/360 pack to a tape. Neither 
Version, 5 nor 6, will bring a tape back to a 
pack correctly if the tape was written by Ver- 
Sion 6. Both versions will bring a tape back 


to a pack correctly if the tape was written by 
Version 5, 
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The following procedure is believed to be a so- 
lution: If you have created DOS backup tapes 
under Version 6, proceed as usual to restore 
the pack, then when the job stops (at the stan- 
dard label cylinder), re-IPL from that pack 
and submit a jobwith //OPTION STDLABEL 
to recreate the standard cylinder. You must 
also reinitialize the DSR cylinder, then cre- 
ate your backup tapes with Version 5 Dump- 
Restore. (Make sure the pack has been ititial- 
ized to meet DOS/360 needs. ) 


DOS/360 RPG PROCESSING UNLABELED 
MULTI-REEL INPUT FILES 


The following comment concerns an article 
with the above title which appeared in News- 
letter issue 67-25 (12/15/67), page 26. This is 
a field contribution and has not been submitted 
to any formal IBM test. Potential users should 
evaluate its usefulness in their own environ- 
ment prior to implementation. 


Restriction number 2 ('Matching Records must 
not be a requirement for processing the files') 
is not reaily a restriction. Since it is possible 
to match records on more than two files, the 
multi-reel file can be matched as two separate 


files against a third file required for processing. 


A user had an RPG program with two unlabeled 
input files and matching records were used in 
processing them. When one of the filés went 
to two reels, he called each reel a separate 
file (both secondary) and the other file the 
primary file, matching records on all three. 


DOS/360 SORT BLOCK AND RECORD COUNTS 


GPR 1 points to the DTF containing the block 
counts. Refer to the DOS/360 LIOCS manual 
for the DTF format. 


At Exit 32, at output time, GPR 10 contains the 
record count. 
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S/360-20 RPG SELECTIVE CHAINING 


The following is a field contribution which has 
not been submitted to any formal IBM test. 
Potential users should evaluate its usefulness 
in their own environment prior to implemen- 
tation. 


Selective Chaining on the Model 20 may be 
accomplished by an indicator in the Field 
Record Relation columns of the Input Specifi- 
cations. This indicator is different from the 
one specified as Resulting Indicator (Col. 19 
and 20). 


A typical example is billing, where the input 
records contain customer number, part number 
and quantity. The chaining required is to the 
customer name and address file and the mas~« 
ter inventory file. Without added user coding, 
RPG will chain to both customer name and 
address file, and the master inventory file 

for every detail record read. However, chain- 
ing to the customer name and address file is 
only required on the first card of a group. The 
example in Exhibits | through 4 shows how this 
is accomplished. 


The author states that one Model 20 disk user, 
increased his billing speed by 50% using this 
method. This is not to be construed that all 
users would obtain the same improvement. 
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REPORT PROGRAM GENERATOR FILE DESCRIPTION SPECIFICATIONS 
IBM System/360 
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NEW TYPE III PROGRAMS * 


The following are the abstracts of programs which have been recently made available 


from the Type III library. 


The program, along with its complete abstract, will be incorporated in subsequent 


issues of the Catalog of Programs. 


Programs may be obtained by submitting a properly completed ''General Program 
Request Card" (Form Number 120-1145-1) to the Program Information Department, 40 Saw 


Mill River Road, Hawthorne, New York, 


10532. 


These programs and their related documentation are distributed by IBM in the 
author's original form and havenot been subjected to any formal testing. 


Any discussions of Type III programs with customers must emphasize the following points 


L. Type III (IBM employee--contributed programs) are provided by the IBM company 
as part of its service to customers. They are not a part of the IBM product line 
support. 

2. Type III programs have not been subjected to any formal test. 

3. Recipients of Type III programs are expected to make the final evaluation as to the 


usefulness of the programs in their own environment. 


4, There is no committed maintenance for Type III programs. However, any changes 
the author chooses to make will be announced in subsequent issues of the Catalogs of 
Programs. 

5. IBM makes no warranty, expressed or implied, as to the documentation, function, 


or performance of Type III programs. 


*NOTE: THE CUSTOMER MUST BE INFORMED THAT THE ABOVE APPLIES 
TO ANY OF THE FOLLOWING TYPE III ABSTRACTS FURNISHED TO HIM. 


1401 GENERAL PROCESSING UTILITY PRO- 
GRAM 


This program abstract was published in News- 
letter issue 68-05, page 20. The program order 
file number was omitted. It is 1401-01. 4. 232. 
Please enter it in your copy of the Newsletter 

if you will require reference to it in the future. 


S/360 SEQUENTIAL DATA SET LISTER PRO- 
GRAM. An OS/360 Assembler Language Pro- 
gram whose function is to list logical records 
from a Sequential Data Set. Logical records 
are listed 100 characters per line group for as 
many line groups as are corfigured as follows: 


Line 1 Character Representation ( If 
Printable) 

Line 2 HEX Zone 

Line 3 HEX Digit 

Line 4 Delineator Line (Numbered Every 5 
Spaces) 


The line group format is convenient for examin- 
ing unprintable data and for locating particular 
bytes within a record by means of the Delineator 
Line. The program reads records with QSAM. 
and produces the listing with QSAM. 
quential record formats supported are: Fixed, 
Fixed Blocked, Variable, Variable Blocked. 


Input se- 


Ordering Procedure: Order File Number 
360D-04. 1.003. 


11 
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The program material can be obtained on one 
9 track or 7 track (Data Conversion feature 
required) Distribution Tape Reel (DTR). 


If not specified, a 9 track DTR will be provided. 


No tape submittal is required. The DTR will 


be provided by the Library. 


S/360 INDEX SEQUENTIAL DATA SET LISTER 
PROGRAM. An OS/360 Assembler Language 
Program whose function is to list logical rec- 
ords from an ISAM Data Set. Logical records 
are listed 100 characters per line group for as 
many line groups as are required to display 

an entire logical record. The line group for- 
mat is configured as follows: 


Line 1 Character Representation (If Print- 
able) 

Line 2 HEX Zone 

Line 3 HEX Digit 

Line 4 Delineator Line (Numbered Every 5 
Spaces) 


The line group format is convenient for examin- 
ing unprintable data and for locating particular 
bytes within a record by means of the delinea- 
tor line. The program reads records with 
QISAM scan mode and produces the listing with 
QSAM. Input ISAM record formats supported 
are: Fixed-Fixed Blocked. 
Ordering Procedure: Order File Number 
360D-04. 1. 004. 


The program material can be obtained on one 
9 track or 7 track (Data Conversion feature 
required) Distribution Tape Reel (DTR). 


If not specified, a 9 track DTR will be provided. 


No tape submittal is required. The DTR will 


be provided by the Library. 


A TT 


TEST DATA SET GENERATOR PROGRAM - 

OS/360. This program converts input control 
cards and data to sequential data set(s). Out- 
put record formats can be F, FB, V, VB. In- 
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put to the DSG can be cards, card images on 
tape, DASD or PDS members. Translated 
output DS(s) can reside on tape, DASD, cards 
or any combination thereof. A maximum of 

99 Data Sets can be generated in a single exe- 
cution. Maximum length of each output logical 
record is 4095 bytes. DSG produces binary, 
packed decimal, EBCDIC, Hexadecimal, fill, 
Binary Incrementing/Decrementing, packed 
decimal Incremeting/ Decrementing fields in any 
combination or order. All output records are 
automatically listed in a numbered character/ 
hex 4-line format as they are being generated. 
A 'NOLIST' option allows supression of the 
data set print out. DSG has the capability of 
repeating entire records any number of times 
or repeating selected fields for any duration. 
Error checking and diagnostic routines fully 
document all errors to include type of error, 
card number in error, field number in error 
and appropriate corrective action. DSGis 
particularly easy to use as there is only one 
type of control card and input data is coded in 
free format positional independent notation. 
Language=OS/360 BAL-Config=any OS/360 
system w/dec. feat. 
Ordering Procedure: Order File Number 
360D-04. 3. 004. 


The program material can be obtained on one 
9 track or 7 track (Data ConverSion feature 
required) Distribution Tape Reel (DTR). 


If not specified, a 9track DTR will be provided. 


No tape submittal is required. The DTR will 


be provided by the Library. 


S/360 THREE D'S - DUMP, DISASSEMBLE, 
AND DELINKEDIT. The three D's are a series 
of related programs which allow the user to 
convert machine language to basic assembly 
language. The disassembler accepts object 
decks composed of single CSECTS and trans- 
lates them to basic assembly language decks 

or listings. DISINF is a subroutine which 
enables the user to interface with the disassem- 
bler to produce mnemonic dumps of core. The 
delinkeditor allows him to convert load modules 
to object modules and then to source decks 
through the disassembler. Routines DISINF, 
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the disassembler, and delinked require 1K, 
64K, and 3K of core respectively. All three 
routines are designed to execute under OS/360, 
though with modifications they could execute 
under DOS. All three programs are written 

in Basic Assembly Language. Minimum 
memory size - 64K; card reader, punch, 
printer. 

Ordering Procedure: Order File Number 
360D-04. 1. 005. 


The program material can be obtained on one 
9 track or 7 track (Data Conversion feature 
required) Distribution Tape Reel (DTR). 


If not specified, a 9 track DTR will be provided. 


No tape submittal is required. The DTR will 


be provided by the Library. 


S/360 FORTRAN LINEAR PROGRAMMING 
SYSTEM. This program solves linear pro- 
gramming problems using "contracted 
tableau'' form of the simplex method. Input 

to the program is in standard Share format 
(Title Card, ROWID section, MATRIX section, 
and FIRST B section). The problem is solved 
in core, and the output includes an iteration 
log, optimal solution and cost range report, 
and reduced costs of slack variables and struc- 
tural variables not in the optimal solution. The 
program, as distributed, can solve a problem 
of size MxN up to 40x40 (where M=number of 
rows, N=number of structural columns plus 
number of ™ rows), on a 32K or larger Sys- 
tem/360 under BPS, DOS, TOS or OS FOR ~- 
TRAN. Sample running time for problems of 
size 25x25 is of the order of 1 minute ona 
Model 30. 

Ordering Procedure: Order File Number 
360D-15. 2. 006. 


The program material can be obtained in card 
form or on one 9 track or 7 track (Data Con- 
version feature required) Distribution Tape 
Reel (DTR). If not specified, a 9 track DTR 
will be provided. 

No tape submittal is required. The DTR 
will be provided by the Library. 


— 
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S/360 ALP DOS DECISION TABLE MACROS. 
A set of two macros for the coding and execu- 
tion of limited entry decision tables in assem- 
bly language under DOS or OS. one macro, 
"SETIT", , sets switches which correspond to 
the condition entries of the decision tables. 
The othermacro, 'TABLE", generates full 
word constants that are analogs of the decision 
table rules, and provides linkage to user writ- 
ten sub-routines that correspond to the action 
statements. It also generates and provides 
linkage to, anoff-line Sub -routine. This sub- 
routine searches a descision table for the first 
rule whose conditions are satisfied, and then 
executes the actionstatement sub-routines in- 
dicated by that rule. These macros make avail- 
able the logical benefits of decision tables at 
the ALP coding level. They also augment 
documentation clarity, facilitate modular 
programming, and aid de-bugging, Machine 
configuration: 16K 360 model 30. Program- 
ming systems: DOS. source language: ALP. 
Ordering Procedure: Order File Number 
360D-03. 7. 017. 


The program material can be obtained in card 
form or on one 9 track or 7 track (Data Con- 
version feature required) Distribution Tape 
Reel (DTR). If not specified, a 9 track DTR 
will be provided. 

No tape submittal is required. The DTR will 
be provided by the Library. 


S/360 DUCS -IBM 2260 DISPLAY UNIT CON- 
TROL SYSTEM. This system will provide 
complete support for local IBM 2260 low cost 
display units, including the data entry models 
under control of either the Tape Operating 
System or the Disk Operating System (Vers. 
IIor VERS. III). It can be used by problem 
programs written in PL/I, COBOL, or Assem- 
bler Language and is referenced by standard 
CALL statements. The user need not have any 
knowledge of Assembler Language to imple- 
ment DUCS. With DUCS, the need for BTAM 
for the support of locally attached 2260 dis- 
play units is eliminated. Also teleprocessing 
support need not be specified in the user tail- 
ored supervisor. Thus, allowing the user to 
specify an 8K system to support 2260 display 
units ina multiprogramming environment. Any 
number of display units can be run with DUCS. 
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Also, asynchronous interrupt handling along 
with many other features not found in BTAM are 
intrinsic functions of DUCS. 

Ordering Procedure: Order File Number 
360D-00. 6. 006. 


The program material can be obtained on one 
9 track or 7 track (Data Conversion feature 
required) Distribution Tape Reel (DTR). If 
not specified, a 9 track DTR will be provided. 
No tape submittal is required. The DTR will 
be provided by the Library. 


S/360 FACILITY SUBROUTINES. The S/360 
Facility Subroutines were written to give the 
S/360 programmer greater magnitude in the 
use of S/360 features not supported by the 
specific language translators being used. The 
subroutines may be used by any of the language 
translator object programs under the Tape and 
Disk Operating Systems. The subroutines 
utilize the standard Assembler Language mac- 
ros to permit the higher level language pro- 
grams to have access to the storage print fac- 
ility, the communication region dates, the in- 
terval timer, the User Program Switch In- 
dicator (UPSI byte) and the external interupt 
key. 


Minimum Machine Configuration: With the 
exception of the interval timer subroutines 
and the subroutine to ring the audible alarm, 
all of which require the interval timer fea- 
ture, there is no minimum configuration re- 
quirement. 

Ordering Procedure: Order File Number 
360D-01. 0. 004. 


The program material can be obtained in card 
form or one one 9 track or 7 track (Data 
Conversion feature requied) Distribution Tape 
Reel (DTR), 


If not specified, a 9 track DTR will be provided. 


No tape submittal is required. The DTR will 


be provided by the Library. 
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CALCDASD - A S/360 TOS/DOS COBOL PRO- 
GRAM TO CALCULATE NUMERICAL CHAR- 
ACTERISTICS OF FILES FOR DASD UNITS 
FOR GIVEN RECORDS. This program will 
compute the number of characters, logical 
records and blocks per track, for a blocking 
factor of 1 to the maximum permissible, for 
any of the supported devices. The DASD sup- 
ported are 2301, 2302, 2303, 2311, 2314 and 
2321. The program as distributed requires a 
minimum of 64K; however, alterations can be 
easily made to allow operation ona 24K or 
32K system. 


Ordering Procedure: Order File Number 
360D-00. 5. 002. 


The program material can be obtained in card 
form or on one 9 track or 7 track (Data Con- 
version feature required) Distribution Tape Reel 


(DTR). 
If not specified, a 9 track DTR will be provided. 


No tape submittal is required. The DTR will 


be provided by the Library. 


S/360 RENUMBER - A SELF-RELOCATING 
UTILITY PROGRAM TO REPRODUCE AND 
RESEQUENCE ALL DOS/TOS ASSEMBLER 
LANGUAGE, COBOL, PL/I, RPG AND FOR- 
TRAN PROGRAMS, RENUMBER is a self- 
relocating DOS/TOS utility program which 
will resequence and reproduce source program 
decks written in the following DOS/TOS lang- 
uages: Assembler Language; COBOL; PL/I; 
RPG, and FORTRAN. Also, Assembler Lang- 
uage programs will have the Name, Operation 
and Operand fields realigned to columns 1, 10, 
and 16 where necessary along with continua- 
tion indicators in successive cards being se- 
quentially numbered. Futhermore, ISEQ 

73, 80 instructions are inserted in the beginning 
of each Assembler deck and all previous ISEQ 
instructions are ignored. It is not necessary for 
the user to prepare any special control cards 
for input to RENUMBER nor is it necessary 

to remove any Job Control statements associated 
with the source program deck. The identifica- 
tion information for any of the five types of 
source programs is taken from the respective 
positions in the // EXEC translator statement. 
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Ordering Procedure; Order File Number 


360D-00. 0.010. 


The program material can be obtained in card 
form or on one 9 track or 7 track (Data Con- 
version feature required) Distribution Tape 


Reel (DTR). 


If not specified, a 9 track DTR will be provided. 


No tape submittal is required. The DTR 
will be provided by the Library. 


SYSTEM/360 MODEL 20 CARD LOW- LEVEL 
CODE GENERATOR SYSTEM. This System 

is used to generate low-level coding which is 
used in material planning applications. Low 
level coding if used and maintained properly, 
facilitates netting gross requirements against 
inventory balances. Eliminating the premature 
allocation of stock when used in conjunction 

with lead time. Programs are written in RPG 
and require the following machine specifications: 
8K 2020, 2501, and 2203. 

Ordering Procedure: Order File Number 
360E-23. 3. 004. 


The program material can be obtained in card 
form or on one 9 track or 7 track (Data Con- 
version feature required) Distribution Tape 
Reel (DTR). 


If not specified, a 9 track DTR will be pro- 
vided. 


No tape submittal is required. 
be provided by the Library. 


The DTR will 
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TRANSPORTATION PROGRAM FOR THE IBM 
1130. This program solves the transportation 
problem, i.e., an optimal solution is obtained 
to a special class of linear programming prob 
lems where "surpluses exist at the originating 
sites (sources) and are to be transported to 
locations (destinations) with ''shortages''. The 
mathematical method of solution is that develop- 
ed by Fort and Fulkerson (Management Science 
3. (1): 24-32, October, 1956; and, Solving the 


Transportation Problem, The Rand Corporation, 
P-895, June 20, 1956). | 


The program is a FORTRAN Version of the IBM 
1620/SPS/TAPE by Madden and Smith, File 
Number 1620-10.1.003. The program is writ- 
ten in FORTRAN to run under the 1130 monitor 
on an 8K, card, 1132 printer and disk system. 
Ordering Procedure: Order File Number 
1130-15. 2.004. 


Distribution will be in card form only. 
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the IBM Installation Newsletter. The 
abstract includes the necessary ordering 


information. & 
The purpose of Selected Short Subjects is to 
bring together and highlight concise, factual 
and timely information which will indicate 
that action is to be taken by the IBM repre- 
sentative whose accounts are affected. 


SELECTED SHORT SUBJECTS 


No orders should be sent to PID until 
the programs are announced as being 
available in the Newsletter. 


OS/360 RELEASE 14 CHANGE NON-STANDARD 
CHARACTERS IN JCL CORRECTION 


L. Teleprocessing - TELPAK Tariff Newsletter issue 68-07 contained, on page 
Revisions 2, an article on the above subject. The follow- 


ing is a correction to that article. 
An article in Installation Newsletter issue 


68-07, page 9, described revisions which The following article concerns changes to Re- 

Gite KG. GAG Eileet on Tune]. 1968: lease 14 of OS/360 to handle non-standard 

The reaction of users to these significant characters in the JCL DSNAME and VOLUME 

changes led to a suspension of the effective Serial number fields. These changes are tempo- 

date until September 1, 1968. The FCC rary bypasses for those who have been using the 

has stated that this date is firm (only nonstandard characters. The general problem 

court action can further delay it). Please of allowing the characters which were origi- 

mark the article in your copy of 68-07 nally specified as invalid in the JCL manual, 

is show this chanee: but not diagnosed by earlier versions of the 
Reader/Interpreter is being reviewed. The 

In a further development, the FCC has following modifications are to module IEFVFA: 


reaffirmed the temporary level of these 
rates, stating that later changes will 
probably be prescribed by the FCC and 
will become effective without delay. 


1. To permit a +0 (12 and O punches) in the Pe 

DSNAME field; ®@ 
Verify 061C 4120, 0017 
REP 061C 47F0O, B5C4 


2. To permit a - (hyphen or 11 punch) in the 
DSNAME field; 
1287 OCR Planning and Installing Infor- 
mation Verify O81A 5010 80B8 
. REP 081A 4700 0000 
If you are interested in the 1287 OCR 7 
area, you should review the article with 3. To permit a - (hyphen or 11 punch) in the 
the above title in this issue of the VOLUME Serial number field; 
Installation Newsletter. 
Verify 0826 4770 B830 9500 6000 
REP 0826 4780 B504 951E 5000 


3; Type III Programs in Development OS/360 - IDENTIFYING DDNAMES OF MISSING 


DDCARDS 
Type IlII Programs in development were 
formerly contained in the KWIC Index The following is a field contribution which has 
to TIE. They arenowcontained in SECOM not been submitted to any formal IBM test. 
which provides an information broadcast Potential users should evaluate its usefulness 
and retrieval function for the Branch in their own environment prior to implementa- 
Offices. All new Type III programs are tion. The author states that the technique has ; 
announced when they become available, proven to be useful in quickly identifying the | _ 
and their abstracts are published, in OCl, etc. ABENDS caused by missing ddcards. 
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NOTE: Type I code is being added to the mod- 
ule IGCOOOILI for Release 15/16, so the user 
must revise this approach if using a release 
subsequent to Release 14. Also, changes in 
future releases of OS/360 may affect this tech- 
nique or negate the need of it. 


Exhibit 1, illustrates a SUPERZAP patch to the 
OPEN executor module IGCOOOII that causes 

it to issue a message for each missing ddcard 
representing a dataset that the user program 
attempts to open. This explicitly identifies 
ddnames of missing ddcards, which otherwise 
usually results in ABEND with no explicit indi- 
cation of the cause of the problem. 


One instruction, a BC 8, is overlaid in module 
IGCOOOII at location 7A (hex) causing the con- 
ditional branch to go to additional code placed in 
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the module's free area. This branch is taken 
when a ddname-not-found condition exists after 
TIOT scan. The eighteen added instructions 
first issue GETMAIN for a message text area, 
then build a message of the form: 


"TECIIII DDCARD MISSING, jobname step- 
name. procstep, ddname"' 


WTO is issued, core freed, and control re- 
turned to the original branch destination. The 
user could optionally change the message text, 
abnormally terminate the task, or exit the 
task by placing the task return address into the 
RB resume PSW field. 


Exhibit 2 shows the message text on a console 
log sheet. 


OS/360 - IDENTIFYING DDNAMES OF MISSING DDCARDS 
eee OS ES eee 


J/FIXX*® JER 


JITAP EXEC. PGSSSUCPEP TAF 


MSELFVELZALSREGICN=1LOCK 


JYSNSLIB CFO DSNAMEZRSYSITSSVCLIP ACT SFECLE 


JASNSIN EN & 

NAME TECCOCrI 
CLUMP TECCCCCIT 
VERIFY 7A 47EC2CI1E 
REP TA 47ECAALA 
REP: CACC CCSrCCCL 


REP C204 CSCECTECFESFEFCE S404CC4C4C3 


VERTFY MATN ECCK INTC REFS 
SFT BC PF TO AFR CORECEAR CF TICT SCAN) 
WIC FARM FIELD (300 IS ST¢FET CF FREEAREA) 


VMSGTIXT-*FEcosost Cc" 


“REP C21C 8 =CILEC44CR4CSEPEZACSLECISGR MSECTXT-*AREL MISSING! 
REP C21C 41CCPCES | LA C,190 LCA GETMAIN CCUNT 
REP C3AZ0 451032379 RAL 1,5%4#4 LCAL-R1 FOR SVC, INL. GETMAIN 
REP C224 CACA SVC 10 ISSUE GETMAIN SVC FOR MSCARFA 
REP C27€ 1891 LR 13,1 SAVE CETMAIN (FEA ACER 
REP C2ZF RZIPRCCCIAIFE MVC C(28,13),766(3) MSCTXT TC MSCAREA 
REP C7ZE L2c7eciceccce MYC 22(8,127—0(9) JCFRAME TC MSE © 
RFP C224 ¢$74PNC24 MVE 326(13),C%.* COT AFTER JCENAME 
REO CA2E CACTI CAScC Ce MVC 37(8,13),8(9) STEFNAME TC MSE 
REO C236 S$74RN090 MVT 45(13),C%.* CLOT AFTER STEENAME 
REP C242 C2c7reszescric MVC 46(8,12),16(95) STFENAME TE NSEC 
REP C24& S2ERNC2E MVI 54(139,C'%,*' COMMA TC MSE 
“REP C240 20700277202 MVC §55(8513)549(7) CONAME TH MSC 
RED C752 CAZ2 SVC 35 wtf MESSACE 
RFP C7&4 4GICCCCES LA C,19C LCAM FFC FOR FREEMPAIN 
REP C2&E LFEIC LR 1,13 SET FREF ALECR 
REP C25A CACA | SVC 10 FREENAIN MSCAREA CCRE 
2R—EP CFEC IIL XR 12,13 CLFAR P12 FFFCRE RETURA 
RFP CZEE 47FCACIF RC 15,28(%,32) RETURN TC WATN CCELE 
ruMP Tccccclt 
/* Exhibit 1 


For IBM Internal Use Only 


May 17, 1968 


Issue No. 68-09 


_0S/360 - IDENTIFYING DDNAMES OF MISSING DDCARDS 


FEF233A M 182,ETAIL 


ORBIT 


1EC9991 DDCARD MISSING,ORBIT  .EXEC . , SYSABS 
[FC9991 DDCARD MISSING, ORBIT  .EXEC : | SYSPUNCH 
ESTIMATED LINES EXCEEDED 

IFF2801 K 180, ORBIT 

IEF280!1 K 181, ORBIT 

IFF2801 K 182, ORBIT 

IEFA501 ORBIT EXEC : ABEND SOC 


Exhibit-2, 


OS/360 BTAM DFTRMLST MACRO BSC 
MULTIPOINT 


When specifying multipoint polling lists under 
Binary Synchronous Communications, a last 
dummy entry must be EOT characters coded 
in the line transmission code, and equal in 
length to the other entries. 


BRXAMPLE: (EBCDIC) 

x -Cl-Cl-2D (A A Inq) 

a4 -CZ - Ca - 2D (B B B Inq) 

x -37 - 37 - 37 (HOT HOT EOT) 


OS/360 QTAM FREEING OF GET/ PUT CORE 
AT CLOSE 


The core occupied by GET/ PUT Modules is not 
being immediately freed at CLOSE time due to 
a failure to DELETE them in the Process Close 
Module. Specific difficulties (if any) depend on 
the system environment. Presently, consider- 
ation is being given to correcting this problem 
in a future OS/360 Release. If this impacts the 
user's operation in the interim, he can DELETE 
these modules (one needed for each DCB being 
closed) following execution of his CLOSE to in- 
sure proper system control. 


OS/360 FORTRAN EXTENDED ERROR MES- 
SAGE FACILITY 


The following information applies to OS/360 


Two ddcards missing; job ABENDED. 


(Release 16) as announced in P68-59 and is 
presented here for planning purposes only. 
The actual availability and specifications will 
be as provided through the official IBM pro- 
cedures, the Program Announcement Letter 
and formal documentation. 


The FORTRAN Extended Error Message Facil- 
ity is chosen at System Generation time by the 
OPTERR parameter in the FORTLIB macro for 
a G or H level library. The user will benefit 
by more informative messages, an improved 
Traceback, and continued execution with a 
standard fixup. The user can also dynamically 
control the number of erros to allow and num- 
ber of messages to print, and he can suppress 
Traceback. He can fix up illegal data in a user 
written subroutine and call for a Traceback at 
any point. Traceback now will print registers 
14-1 and start at the routine detecting the error. 


The following is a list of points to consider when 
implementing: 

1. As stated in the Programmer's Guides, 
where programs are link edited, it is im- 
portant not to mix FORTRAN library mod- 
ules from previous releases. 


a. If a math subroutine is in a library with a 
user subprogram, at link edit time, 
Release 16 modules will be edited with 
the incompatible math routine, and errors 
may occur due to the new linkages for 
error processing and extended save areas 
in some math routines. 


By replacing only some FORTRAN library 
modules of a load module, errors may 
occur in the linkage editor because of 
changed ENTRY names and/or at exe- 
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cution time becausé of internal linkage 
changes. There are now no reserved 
names due to FORTRAN library ENTRY 
names. The linkage editor maps will 
reflect this. | 


. If a load module at a pre-release 16 level 


has boundary alignment errors, a Release 
16 IHCADJST will be loaded from LINK- 
LIB and errors will result. 


There are two major considerations whena 
an installation changes the code in FOR- 
TRAN library modules. 


a. Five of the library modules now exist 
in macro form with conditional assembly 
statements. 
are two modules which will assemble the 
macro either with or without error mes- 
sage handling. 


To change the module, change the macro 
then place it in MACLIB and assemble 


the module. The five modules are: 


Module Module 
(without (with 
facility) facility) 


Macrc 
Lae, Sea WU 


THCIBC CM THCFPCOMH THCECCMH 


THC FIOSM IHCFIOSH  JHCEFIOS 
HC DIOSM IHCDICSE  THeCEDIOS 
THCTRACM THCTRCH JHCETRCH 
THCARITM IHCFINTH JHCEFNTH 


Note that when these macros are assem- 
bled, only the expansions of the inner 
macros will be listed (not the original 
macro statement) and comments will be 
compressed. 


b. The linkage to FIOCS# and to DIOCS# 
have been changed. The normal return 
point from an I/O call is +6 (+2 when an 
error is detected) from where Register 
0 points upon entry to FIOCS# or DIOCS#. 
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Example: L REG1, ADFIOCS 
BALR REGO, REGI 
DC AL2(X) 
| B ERROR 
GOODIO ST 


The entry points IHCERRM and ERRMON 


for error processing are in the following 
modules: 


IHCFCOME - E level library 
THCERRM 
IHCTRCH ~- G-H levei library-no error facility 


~ G-H level library-error handling 


There will be no significant effect on object 
time performance for error-free programs. 
However, additional processing time will 
be required to handle error conditions. 


The storage requirements of the FORTRAN 
library will be affected by the addition of 
improved object time error messages re- 
sulting in an increase in the core storage 
requirements of an object program. This 
increase will be 150 bytes for FORTRAN 

E (400 bytes for FORTRAN G and H), plus 
an average of 200 bytes additional for 

each library subprogram called. In addi-~- 
tion, if the user selects the optional fea- 
tures for FORTRAN G & H, core storage 
from 4500 to 5300 bytes will be required for 
an error monitor depending upon the action 
desired. 


The Programmers' Guides specify the de- 
faults for the option table IHCUOPT. Most 
of the errors will allow ten occurrences and 
five messages except: 


a. IHC2081, IHC2101, IHC215I-unlimited 


errors. 


b. IHC217I, IHC230I one error, one mes- 
sage and the entry for IHC230I cannot be 
dynamically changed. 


c. The current buffer is printed for error 
numbers 212, 215, 218, 221-225. 


d. When there is an END or ERR parameter 
for a READ, unlimited errors are al- 
lowed. 
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7. A program loop can occur when the table is 
set to allow unlimited errors. 


8. Each installation can assemble an option 
table with its own default values and addres- 
ses of user exit routines by referring to the 
description of the SETENT and PREFACE 
macros in the Programmers! Guides. The 
error message facility can also be used to 
process user detected errors. 


9. Message text and job execution changes. 


a. Without the facility, execution is the 
same. The messages are the same 
except now there is informational text 
with error messages 215, 216, 221-225 
and from 241 on. 


b. With the error facility, execution will 
terminate after 10 occurrences of error 
number 207, 209 (previously unlimited 


overflows and divide checks were al- 
lowed). 
continue with standard fixup and the 
extended error message and traceback 
are printed. A message is printed stat- 
ing if user or standard fixup is taken, 
and there is an error summary at the 
End of Job. 


c. The error number 210 is divided into 

four messages for the error facility. 
IHC207I-overflow THC209I-divide check 

IHC208I-overflow 


Additional planning information is being made 
available to each district SD & I Center. 


OS/DOS/360 2420-7 TAPE SORT TIMINGS 
ON S/360-50H 


OS/DOS/TOS/360 Support for the 2420-7 Mag- 
netic Tape Units was announced in Program 
Announcement P68-16. It was stated that 
actual tests under OS and DOS on a Model 

50 H indicated improvements of up to 31% 
compared to the 2401-6. 


Exhibit 1 provides some additional detail on 
some actual tests made on the Model 50 H. 
The information is provided for planning 
purposes pending the availability of formal 
SRL documentation. 


For other errors, execution will 


THC210I- boundary alignment 
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DOS/360 AL RE-OPENING SEQUENTIAL DISK 


FILES 


The following field contribution discusses the 
re-opening of sequential disk files using 
DOS/360 Assembler Language with blocked 
records and/or two I/O areas. 


A problem can occur if it is necessary to re- 
open a file within one job step. 


The Supervisor and I/O Macro Manual (C24- 
3429-3 page 70) states that if further processing 
of a closed file is required at some later time 
in the program, the file must be opened agains 
The data will be incorrectly written after re- 
opening. 


The CLOSE routine usually must write the 

last block as a short record, but the initial 
settings for blocking factor and I/O area pointer 
within the DTF table is not re-stored, there- 
fore, its re-use is not possible within the same 
program. 


Several alternatives are available to the pro- 
grammer (which should be evaluated prior to 
implementation in the users own environment): 


1) Define the file as unblocked with one 
1/O area, but that may significantly 
affect run time. 


2) Define the file as a 'work' file. The 
programmer must then perform his 
own blocking and padding of the last 
block. 


3) Set up the DTF table as a separate 
phase which could be LOADED from 
the Core Image Library before re- 
opening. This would require ad- 
ditional control cards for linkage 
editing. 


4) Move the DTF table to a save area 
before the first OPEN and restore it 
before any re-openings. This re- 
quires additional coding by the pro- 
grammer. 
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OS/DOS/360 2420-7 TAPE SORT TIMINGS ON S/360-50H_ 


Sy stern /360 Operating | 2816] Number Work| Data Set Core | Time in Minutes Using 


Model SW 7 Storage f 
In/Out Sort cae | 2401-6 2420-7 


| Yes| 3 on 2 )3on2ch. | | 200K | | 150K 3122 


eee Pe foe oo = ca z 
No 4on2 /4on2ch. | 300K K aa 150K 19.0 


4on2 )4on2ch. | 300K | | 150K 1G ee, 
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DOS/360 RELEASE 16 QTAM SWITCHED LINE 
CONSIDERATIONS 


The following considerations are for DOS/360 
QTAM with switched lines. 


Check the DTFQTs for line groups to be sure 
that: 


1, INT VL is not specified. It is not flagged 
in the assembly, but results in ceasing 
to POLL after some polling has been done. 


ae CPRI is not specified. It is not flagged in 
the assembly and could cause cessation 
of polling. 

oF Lines using Auto-Call feature and lines 


not using it are in different DTFs. This 
is not checked in the assembly and may 
Eventually, 
when Auto-Call lines are all busy and 
QTAM is trying to get a line to send to a 
terminal, it will try to use one of the 
non-auto-call lines to call out on. The 
system will go into an abeyant state with 
no messages or indications of the problem 


not cause problems at first. 


with the system light still on. (NOT wait 
state). 
4, TERM entries within a line group have 


EXACTLY the SAME FORMAT. This is 
not checked in the assembly. All TERM 
entries in one line group (on lines specified 
by one DTF) must have: 


a) Same option fields specified 

b) Same number of dial digits and 
access characters. Situation a) 
will show up immediately because 
the TERM entry with fewer option 
fields will not be addressed prop- 
erly (wrong access characters 
location, including dial digits, if 
any) so contact will never be made 
from the CPU to this terminal. 
Proper contact will be made with 
longer TERM entry terminal. 
(This is a bug and is planned to be 
fixed). 


Situation b) will show up when 

trying to address a terminal after 
a CPU to terminal call connection 
The TERM phone 
will ring, dataset goes into mode, 


has been made. 
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but no writing at the terminal 
occurs. Wrong addressing char- 
acters were picked up by QTAM. 


These problems all have to do with ACLOC 
specifying an improper value. Be sure ACLOC 


is specified: 
ie when any OPTIONS are used. 


Zi when Intercept is used in ENDSEND (you 
must use 3 byte option for Intercept) 


3. when INTREL is used in OPCTL in 
RCVHDR (3 byte option required here too). 


On TWX terminals TERM entires, be sure 

ID = is long enough, including ending sequence 
sent out by TWX terminal, usually XOFF 
character. QTAM generates a 2 set entry of 
the ID. Ona Write operation, QTAM reads 
into the first set the ID sent from the terminal, 
including hardware ending,sequenc, and does 
exact compare against the second set. If com- 
pare is unequal, no writing takes pace and no 
indication or message is provided to the user. 
Core can be examined to see if what was read 
in matches what was specified in the program 
(look at TERM entry), if the problem is rec- 
ognized. 


These and other "user" problems are listed in 
the last pages of a forthcoming QTAM Learner's 
Guide II. A preliminary copy is being sent to 
SD&l and TP representatives in the Field Sys- 
tems Centers. The availability of the manual 

in its final form will be announced in a Publi- 
cations Release Letter. 


DOS/360 RELEASE. 16 QTAM LOCAL 2260 
POINTERS 


Be sure to follow all the left margin lined items 
in TNL-N30-5019 to the DOS/360 Message 
Control SRL. Also, do not use EOB or EOBLC. 
Do not put any control characters in the message 
work area or buffer. When TYPEFLE’=CMBND, 
all messages are expected to be conversational. 
That is, an operator is expected to type in 
START MI, text, then ENTER. QTAM will 
handle one message per 2848 ata time. It 
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reads it in, puts it to a process queue and 

waits to answer back from the process program. 
The RCVLPS uses mode converse, and cannot 
use mode initiate or process expedite. An 
answer is to be "'put'’ from the process pro- 
gram for each message. The length of the 
write to the 2260L will be determined by the 
work area prefix length supplied by the user. 
Get message and Put message will be used. 

The workarea prefix will contain: 


ls 2 bytes--length of data 
Ze 1 byte--X'02' 
a5 1 byte--zero 


Do not allow messages to stack up on disk. 
Multiple messages sent to a terminal will come 
out too fast for the operator to read. Mode 
converse will remedy this. 


DOS/360 RELEASE 16 QTAM INTERCEPT/ 
RELEASE PROBLEM 


The following (from SECOM) is provided for 
your information. No solution is available at 
this time. If you find a solution you might have 
it entered into SECOM through your Field 
Systems Center. 


Some intercepted messages on destination queues 


will be sent on a release and some will not. 
This problem can be pin-pointed if the MCT 
field in destination QCB keeps showing up with 
the same number of unsent messages. 

The sequence of problem events is as follows: 


ie Messages are intercepted in Endsend. 


Zs The optional sub-field is filled in with the 


disk location of the first intercepted mes- 


sage, turning on the TERM intercept bit. 


3. Release m is given later, turning off the 
intercept bit. 


4. Before a release is affected (release m 
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needs to have a new message prime the 
release) another intercept condition occurs 
and reinitializes the optional sub-field 
used by release m. 


Bs When another release m is affected, mes- 


sages will be released from the new inter- 
cept disk location when a message is sent 
‘to this destination. 


DOS/360 COBOL CROSS-REFERENCE LISTING 


The District 12 Systems Design Center advises 
that it has available a program that will provide 
a cross-reference listing of a DOS/360 COBOL 
source deck. Requests should be sent to the 
Manager, Systems Design Center, 1728 Soo Line 
Building, 5th and Marquette, Minneapolis, Min- 
nesota 55402. Requests should be made by IBM 
representatives only. 


1287 OCR PLANNING AND INSTALLING IN- 
FORMATION 


The following article provides planning and 

installing information for the 1287 OCR and 

includes references to other available infor- 
mation. 


1) The first twelve of the 1287's on order 
have been installed successfully on sched-~ 
ule! 

2a) <A copy of the ''World of OCR" binder has 


been distributed to each Branch Office. 

In most Branch Offices it is being main- 
tained by Systems Engineering. It con- 
tains practically all of the published tech- 
nical material on the 1287 and twenty 
additional articles to assist in the success- 
ful installation of OCR equipment. 


b) An OCR educational film has been provided 
to many Branch Offices. If your office 
does not have one and you have need of it, 
contact your Field Systems Center OCR 
representative or your Regional Product 
Marketing OCR representative. 


c) The 1287 Installation/Marketing Maps 
were also made available to the Branch 
Offices. In the event that a copy is needed 
and is not available at your Branch Office, 
contact your Regional Product Marketing 
OCR representative. 
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oe The following is provided to you for plan- 
ning purposes. A Type III program in 
development "IBM 1285/1287 OCR Pro- 
gramming Support Under OS/360"' has 
been included in a SECOM weekly listing, 
dated March 28, 1968, sent to the Branch 
Offices. The SECOM retrieval code for 
the abstract (which includes the minimum 
system configuration) of this program as 
given in the listing is PROG-S0-3. 7-001. 
All new Type III programs are announced 
when they become available from PID 
in the IBM Installation Newsletter. The 
program abstract is published and includes 
the necessary ordering information. No 
orders should be placed until the program 
is announced. The author states that the 
above program is planned for mid-1968 
availability. 


INFORMATION ABOUT THE NEWSLETTER 


EVERY SALESMAN AND SYSTEMS ENGINEER 
SHOULD RECEIVE ONE COPY OF THE NEWS- 
LETTER, Each FE Branch Manager should 
receive five copies for distribution to Customer 
Engineers. 


The IBM Installation Newsletter is distributed 
only to IBM locations and is not available to 
customers. The Newsletter is separated into 
two parts. The first part contains information 
which is intended only for IBM personnel and 
the pages are labeled For IBM Internal Use 
Only. THESE PAGES, OR REPRODUCTIONS 
OF THEM, ARE NOT TO BE GIVEN TO 
CUSTOMERS, However, using your own good 
judgement, you may discuss pertinent informa- 
tion from these pages with a customer. The 
second part contains information which may | 
be REPRODUCED by the Branch Office at their 
discretion and given to customers. These page: 
are not labeled with any restrictive classifica- 
tion. Note that when any abstracts for Type III 
programs are given to the customer, he must 
be informed that the disclaimer for Type III 
programs as contained in the Newsletter, ap- 
plies. YOUR COOPERATION IN PROPERLY 
HANDLING THE CONTENT OF THE IBM IN- 
STALLATION NEWSLETTER IS NECESSARY 
FOR ITS CONTINUED PUBLICATION. 
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Changes to the quantity of the Newsletter ship- 
ped are to be made by the Administration 
Manager. (NOTE THAT EXTRA COPIES OF 
THE NEWSLETTER ARE NOT TO BE ORDERED 
FOR DISTRIBUTION OF INFORMATION TO 
CUSTOMERS, ) He should update and send the 
DP Administration Managers' Document 
Control card (form number N44-780) to DP 
Document Control, DPD HQ. 


Direct inquiries concerning the contents of this 
Newsletter to: | 


W. P. Gaffigan, Editor 

IBM Installation Newsletter 
Installation Planning -#713 

DPD HQ > 

112 East Post Road © : 

White Plains, New York 10601 
Telephone 914 WH9-1900 Extension 4781 


NEW PUBLICATIONS ANNOUNCED BY PRL'S 


The weekly PRL's (Publications Release Let- 


ters) are used to insure that all Salesmen and 


Systems Engineers are aware of new or revised 
Marketing Publications. Normally, each issue 
of the Newsletter will contain information from 
two PRL's, one following the other. The in- 
formation will be placed in the Newsletter in 

its original form with no rearrangement of 
form numbers or titles. It is not intended to 
replace existing information and distribution 
sources, You should be certain that you are 
aware of these sources. 


Marketing Publications are obtained from 
The IBM Distribution Center 
Mechanicsburg, Pa. 


NOTE: 


The Publications Requisition, form 
number M02-0618-2, is used for 
ordering. 
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IBM S/ 360 DOS Supervisor & I/O Macros 
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Data Acquisition Multiprogramming System II Application Description Manual 

IBM S/ 360 Administrative Terminal System - DOS (ATS/ DOS) (360A-CX-18X) Terminal 
Operator's Manual 
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TNL to Mathematical Programming System/ 360 (360A-CO-14X) Application Description Re: 
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(READCOMM) Program Reference Manual Re: H20-0372-0 
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Scrap Z32-0402-1 
NEW 

NEW 

NEW 


NEW 
NEW 
NEW 
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OS/360 PARTIAL SUBSTITUTE FOR DISPLAY 
STATUS 


The following technique was developed by an 
IBM customer and contributed to the Newsletter 
through an IBM representative. Potential 
users should evaluate its usefulness in their 
own environment prior to implementation. It 
has not been submitted to any formal IBM test. 


For those OS/360 users wishing to bypass 
Display Status and still obtain certain infor- 
mation about tape files, the following may 
satisfy their needs and at the same time improve 
operator documentation. 


Open module 1GG99G verifies and creates stan- 
dard label, output, tape data sets. By inserting 
the coding shown in Exhibit 1 immediately after 
creating HDR2, the operator will be notified via 
the console with the following message: 


Jobname/Stepname Drive Number 
Data Set Name Volume Serial 


This then provides the operator with the same 
information as Display Status and it is also very 
beneficial in a multiprogramming environment. 


The inclusion of the first compare nullifies the 
operator's notification of system data sets. 
(i. e., those data sets having A's in the name. ) 
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By replacing the following instruction 

MVC MSGTEXT (44), JTFCBDSNM 
at hexidecimal location $$9354 with 

MVC MSGTEXT (11), FLIID 


the operator will also be notified, when tape 
retention checks occur, with the data set name 
which already exists on tape, rather than the 


name of the data set about to be written. 


Naturally something had to be given up to obtain 
the above since module IGGG29@P is exactly 
44695 bytes. We found it necessary to delete the 
User Verification and the Password and Security 
Check coding routines to obtain enough bytes 

to include the above. It must be noted here, 

that this was our approach and that it is left 

up to the user's discretion as to what coding he 
wishes to replace. 


OS/360 PARTIAL SUBSTITUTE FOR DISPLAY STATUS 
ee ea ho bAY oLALUS 


CLC JFCBDSNM(3),AAA 
BE PASTCODE 
LA 0,89 
BAL = 1,*+4 
SVC 1g 
LR Lisi 
MVI @(1),c'#’ 
MVC =:11(79,1)#(1) 
MVC) = 9(17,1),FL2JSID 
MVC) =: 28 (3,1) , UCBNAME 
MVC) =633(11,1) ,JFCBDS™™y 
MVC 46(6,1),SRTEVCLI 
LA 9,62 
SLL 4,16 
ST $,9(1) 
SVC 35 
LR L,il 
LA 9,86 
svc 1¢ 
PASTCODE EQU x 
Exhibit 1 


AAA defined as DC CL3'AAA' 
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DOS/360 ZERO LENGTH RECORD WRITE 
ALTERATION 


The following is a field contribution which has 
not been submitted to any formal IBM test. 
Potential users should first evaluate its use- 
fulness in their own environment. No main- 
tenance can be expected. 


SDMODW gives a channel program error when 
writing a record of zero length (Applies to 
Release 16 and earlier). 


SDMODW does not test for data length of zero 
in the chained data CCW when writing an EKOF 
record (a count record with key length and 
data length fields zero). 


SOLUTION: Test for recordlength of zero, 
and if so, do not use a chained data CCW in the 
channel program. In SDMODW routine IJGW- 
WRTE following MVC ITGWWCCW?1 (7), 
IJGWVGYt1 add the following 4 instructions: 


CLC IJGWCCWH6 (2), ITGWCERO 
BNE IJGWPAT1 
MVI IJGWWCCW#H4, X'20' 


B IJGW PAT 2 


and add the labels to the next 2 instructions as: 


IJGWPAT 1 
IJGWPAT2 


MVI IJGWWCCWH4, X'AO'! 
MVI IJGWWCCW, X'1D' 


This eliminates the chain data bit in IIGWWCCW, 


DOS/360 BASIC PL/I EXTENDING IS FILES 


The following is a field contribution which has 
not been submitted to any formal IBM test. 
Potential users should evalute its usefulness 
in their own environment. 


In order to extend an existing Index Sequential 


file with data having keys that are all in sequence 


and higher than the highest key already in the 
file, the LODIS macro can be used with an ISE 
DLAB for that file. 


The same program that loaded the file can be 
used to extend the file by using an ISE instead 
of an ISC DLAB. 


The RUAIS macro should not be used for extend- 
ing. Adding and extending are not the same 
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concept. Extending requires an extension of 
the indexes also, and the add does not have this 
ability. 


DOS/360 DISK SORT/MERGE ALTERATION 
FOR FOREGROUND EXECUTION 


The following contribution has not been sub- 
mitted to any formal IBM test. The author 
states that it has been subjected to limited 
testing. Potential users should evaluate its 
usefulness in their own environment prior to 
implementation. The approach applies to DOS/ 
360 Release 16 (Version 3 Modification 0). 


Any problems encountered (including possible 
solutions) can be reported by the local IBM 
representative to the Field Systems Center. 


The following procedure can be used to create 
separate Disk Sort/Merge programs which can 
be executed in one or both foreground partitions 
(using a BJF Supervisor under DOS V3M0). This 
is a REP card approach and does not make the 
sort self-relocating. Sorts can be run concur- 
rently in all three partitions, each sort being 
called by its own unique program name. Pro- 
gramming Temporary Fixes (PTF's) shipped 
by the IBM PID with DOS V3M0 (Release 16) 

do not conflict with the REP card addresses 
except as noted under step 4a and 4b Below). 


1. Catalog the desired variant(s) of the 
sort/merge program into the CIL for back- 
ground execution when needed. 


ap Display and punch all relocatable modules 


associated with the sort. This can be 


done using the statements: 


// JOB PCHPRT DISK-SORT RELO MOD- 
ULES 


// EXEC RSERV 
DSPCH IJO. ALL 
/& 


Mark the decks and save them for later 
use. Some modules (IJOSM002, 003, 004, 
005, 006, 008, 010, 501, 301, 302, 303, 
304, and 402) will not be used for the fore- 
ground sort change but may be needed 
later to apply PTF's or other changes. 


oie Select a unique phase naming convention 


for use with the sort program in the desired 
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4b, 


foreground partition(s). The background 
sort uses phase names DSORTnnn, where 
nnn is a 3-digit suffix for each of the 26 
sort/merge phases. Any or all of the first 
5 characters should be changed (considering 
the FGP convention for applicability) 

and used in lieu of DSORT. For example, 
a frequently used Fl sort might use phase 
names starting with 'FGPSI1'' whereas a 
less-used F2 sort might use 'F2SRT'"! 
phase names. These same five-character 
names will be used in the EXEC statement 


to perform the respective foreground sorts. 


Punch the REP cards shown in Exhibit 1 
to access LUB information for the per- 
tinent partition. The first change pro- 
vides access to system LUB data, while 
the last three cards allow accessing 
programmer LUB information. The ESID 
required in all REP cards being punched 
is: OOL. 


Punch REP cardsto change the phase 
names fetched within the modules 

shown in Exhibit 2. The present phase 
name should be changed to agree with 

the naming convention previously selected. 
Since a common routine in the root phase 
is used to fetch many of the phases, only 
part of the modules contain names which 
need be changed. 


Punch the following REP cards to allow 
successful execution (without an addres- 
sing exception) above 32K. It is possible 
that other similar addressing problems 
may show up with extensive use of the sort 
in foreground partitions. 


Module Address Data 
IJOSM 102 001950 5840 
IJOSM 102 001972 5040 


Insert the REP cards for the desired 
partition just ahead of the END cards for 
the affected modules, and then catalog 
the revised modules back into the relo- 
catable library using the original module 
names. This eliminates the need to 
change INCLUDE statements in the Pro- 
cessor Generation Modules. The cata- 
loging can be done using the statements 
shown in Exhibit 3. 


Ser 


5c. 


Replace all PH } EG 
Generation Modules shown in Exhibit 4 


with similar c 
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ASE cards in the Processor 


ards having the revised 


i with the 
phasenames, 1. €.; consistent 


REP cards punched at step Ab. 


Catalog the revised Processor Generation 
Modules back into the relocatable Library 
using the statements shown in Exhibit 5. 
In JBF mode with foreground partition, 
size properly allocated, link-edit the 
desired sort program variant for the 
specific partition. This can be done by 
using the following statements: 


// JOB LINK EDIT DISK SORT 
// OPTION CATAL 
ACTION F1 (or F2) 
INCLUDE IJOSM (or other pertinent 


processor gen. module) 


/{ EXEC LNKEDT 
/& 


Steps 5 and 6 should be repeated if the 
sort is also to be executed in a second 
foreground partition. It will probably be 
necessary to condense the relocatable 
library at some point during the cataloging 
operations since the revised modules use 
the same names as the equivalent back- 
ground modules, the space originally 
occupied by the background modules is 
available. 


When all cataloging operations have been 
completed, the sort modules can be de- 
leted from the relocatable library. The 
relocatable decks should (obviously) be 
retained for back-up and maintenance needs. 
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DOS/360 DISK SORT/MERGE ALTERATION FOR FOREGROUND EXECUTION 
DOS 13500 DION OG ER ete ee 


Module Address Data 
For F2: IJOSMOO01 0018C8 4881, 007C, 4838, 0022, 0700 
IJTOSM007 0O0OLATC 0002 
IJOSMO009 O0OO0197A* 0002 
IJOSM104 O0O1E3E 0002 
For Fl: IJOSMOO1 0018C8 4881, 007C, 4838, 0032, 0700 
IJOS M007 O0O1LATC 0003 
IJTOSM009 OO1L97TA* 0003 
IJOSM104 OO1E3E 0003 


** Address is 00198A if PTF 360N-00342 is applied. 
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DOS/360 DISK SORT/MERGE ALTERATION FOR FOREGROUND EXECUTION 


Module Address (V3M0) Present Phase Name 
IJOSMO001 002D80 DSOR T002 
IJOSM101 001CCO0 DSORT102 
IJOSM102 OOLAAO DSORT104 
m OO1AAS8 DSORT103 
IJOSM103 002300 DSORT501 
" 002308 DSORT105 
IJOSM104 002218 DSORTI1O5 
IJTOSM105 002050 DSORT105 
IJOSM201 00iC1O DSORT501 
" 002740 DSORT301 
IJOSM202 002BC8 DSORT302 
IJOSM203 001C80 DSORT501 
" 002618 ** DSOR T 303 
IJOSM204 002A48 DSOR T304 
IJOSM401 0024F8 DSOR T402 


*k Address is 002620 if PTF 360N-00349 is applied. 
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CATALR 


ITOSM901 


// JOB CATALOG REVISED RELO MODULES 
// EXEC MAINT 
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DOS/360 DISK SORT/MERGE ALTERATION FOR FOREGROUND EXECUTION 


(IJOSMO001 Relocatable Deck including two REP cards) 


CATALR 


(Relo Deck with one REP card) 


GATALR 
(Relo. 
CATALR 
(Relo. 
CATALR 
(Relo. 
CATALR 
(Relo. 
CATALR 
(Relo. 
CATALR 
(Relo. 
CATALR 
(Relo. 
CATALR 
(Relo. 
CATALR 
(Relo. 
CATALR 
(Relo. 
CATALR 


(Relo. deck with one REP card) 


ITJOSM007 


IJOSM009 


Deck with one REP card) 


IJOSM101 


deck with one REP card) 


IJOSM102 


deck with four REP cards) 


IJOSM103 


deck with two REP cards) 


IJOSM 104 


deck with two REP cards) 


IJOSM105 


deck with one REP card) 


IJOSM201 


deck with two REP cards) 


IJOSM202 


deck with one REP card) 


IFOSM203 


deck with two REP cards) 
IJOSM 204 
deck with one REP card) 


IJOSM401 
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Processor Generation Module Present Phase Names 


IJOSMPHO 


IJOSMPH1 


IJOSMF 23 


IJOSMV23 


IJOSMPH4 


DSORT, DSORT002, DSORT003, DSORT004, 
DSORT005, DSORT006, DSORTO007, 
DSORT008, DSSORT009, DSORT101, 


DSORT501 


DSORT101, DSORT102, DSORT103, 
DSORT104, DSORT105 


DSORT201, DSORT202, DSORT301, 


DSORT302 


! 


DSORT203, DSORT204, DSORT303, DSORT304 


DSORT401, DSORT402 
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DOS/360 DISK SORT/MERGE ALTERATION FOR FOREGROUND EXECUTION 


// JOB CATALOG REVISED PROCESSOR GENERATION MODULES 


// EXEC MAINT 
CATALR IJOSMPHO 


PHASE card (revised), INCLUDE card (unchanged), END card 


CATALR IJOSMPH1 
(similar to above) 
CATALR IJOSMF23 
(etc. ) 
CATALR IJOSMV23 
(etc. ) 
CATALR IJOSMPH4 
(etc. ) 
/* 
/®& 
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DOS/360 DISK SORT SRL DOCUMENTATION 
ERRORS 


Some documentation errors exist in the DOS/360 
System Generation and Maintenance manual 
(C24-5033, both -3 and -4). In the later revision, 
the errors are on page 222 of Appendix D: 


The following two statements should be 
included in the Intermediate Processor 
Generation Module IJOSM PHO (at the top 
of the page) rather than under IJOSMF23 
near the bottom of the page: 


a) 


DSORT501 
IJOSM501 


PHASE 
INCLUDE 


The Intemediate Processor Generation 
module shown as IJOSMERG (middle of 
page 222) and containing the following 
five statements) should be named 
IJOSM PH4: 


b) 


PHASE DSORT401 
INCLUDE IJOSM401 
PHASE DSORT402 
INCLUDE IJOSM402 
END 


These modules are correct in the relocatable 
library of DOS Release 16 (V3M0), so the error 
is strictly in documentation. However, the dis- 
crepancy could cause confusion and might lead 


to errors since PHASE cards in these Processor 
Generation Modules must be changed to imple- 
ment the foreground sort changes. 


The following Primary Processor Generation 
modules were inadvertently omitted from Re- 
lease 16: 


IJOSMFOM, IJOSMVOM, IJOSMFVS, 
IJOSMFOS, IJOSMVOS, and IIOSMERG., 


Users can get these from the SYSGEN SRL. 
These modules will be included in a future 
Release of DOS/360. 


S/360-20 INVALID CHARACTER CHECKING 
FOR INPUT CARDS 


The following is a field contribution which has 
not been submitted to any formal IBM test. 
Potential users should evaluate its usefulness 
prior to implementation. 


A simple Basic Assembler Language routine 
was written which issues a halt if an error 
occurs ina presumably valid field. 


1. In the case of an MFCM Read, there are 
three TIOB instructions in the MFCM 
Routine. The instruction to be modified 
is approximately 250 hexidecimal bytes 
into the routine. 


ae ee ay a a aa a a a Ie Si PR a 
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2. By including a subroutine in his RPG the error checking for columns | to 54 

program, the user can realize the advan- and oe to 80. With simple programming 
tages of the built in error-checking while modifications, this routine can be used 
simultaneously reading and bypassing his re check any combination of columns 
invalid character(s). within a particular card type(s). 
itis eos easel, Aueretne tae The RPG Input and Calculation specifi- 
types of cards which are known to contain cations are shown in Exhibit 1, and the 
invalid characters in card columns 55- BAL routine is shown in Exhibit 2. 


° 
“I 
Be, 
Lead k=. 


56-57. The subroutine, therefore, does 


S/360-20 INVALID CHARACTER CHECKING FOR INPUT CARDS 
ER EH ELEM IN EU CARDS ~ 


IBM INTERNATIONAL BUSINESS MACHINES CORPORATION _ 
REPORT PROGRAM GENERATOR _ INPUT SPECIFICATIONS 


3. 4 5416717 8 9 10 11 1213 14 nA 16 a ik ET 21 22 eal | ane 29 30 31132133134135 36 37 38139140141 142 143 144 ana 48 49 50 51152153 54 55 56 57 58159 ¢ 
eae, . s 


aa el 


é " ‘ 
4 ~ z £ . 
mT eS’ A ee 
5 oh. : $ rf 
ate ; 
Ps Foie = y 
‘d Sawn ttte vee 6d 
CJ ~~ rt 
: : 4 


IBM INTERNATIONAL BUSINESS MACHINES CORPORATION an 
| REPORT PROGRAM GENERATOR CALCULATION SPF TIONS - 


hon 


oO 


A Ce aa a a aa 
me 
5 


~_— 
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S/360-20 INVALID CHARACTER CHECKING FOR INPUT CARDS 


WajO{s BdINOS Buiyound 40} 3|GQ m0 SI /OS9 Jequinu 0149/9 “W104 p4Ip> p4ppupys W 


| fF OLE g wer | 
_ 1 P4),% (72) Pp Lily 
7 “TCV L A Ee. H 
7 tt\ ¢ RS bY L 

|) Taye cat we 

ENGST 47 
ai tL of 

bax CITYE 
| FATAL Ci 


AT 
vie 


7 Og | Fa9d 
a7 oY 
PPI 7X kG 


0S 


LNaWwaglv is 


SNOILDNULSNI 
DIHav¥d ©NIHDNNd > ed WridOud 


‘assy oIseg gg¢/ulaysds pig] WdI 


3WajDK arI1NOs Bulysund JOP IGD|IDAD Ss! /OGG Jaquinu O1j>a|9 ‘W4O} PADD PuppuD\s 


ae 
Dx. ie IM 


OO. WTS 
PO. TIT 
PD, 7X 
PO. 7X. 
PD NITE 


a 


t 


i D bdo ‘P p eS 


YaWWYV aD Odd 
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S/360-20 INVALID CHARACTER 
CHECKING FOR INPUT CARDS 


eae ee 


PROGRAM PUNCHING 


GRAPHIC 


INSTRUCTIONS ! 
PROGRAMMER DATE _ | PUNCH : 


STATEMENT 


Name Operation Operand 
25 30 32 36 1 38 45 50 
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1130 - CSP HIGH PERFORMANCE ALTERATION 
OF GET 


The following routine has not been submitted to 
any formal IBM test. Potential users should 
evaluate its usefulness in their own environ- 
ment prior to implementation. 


Version 3 of the Commercial Subroutine Pack- 
age, just announced, will be available June 1, 
1968. In addition to supporting the 1403, 2501, 
and 1442-5, all the character handling (GET, 
PUT, EDIT, MOVE, FILL etc.) and the 
Decimal Arithmetic (ADD, SUB. MPY, DIV, 
etc.) subroutines have been recoded from 
FORTRAN to Assembler. This revision 
caused them to shrink in size (to about 0.6 
their former size, on the average) and to run 
considerably faster. 


Except for GET and PUT, which still use 
floating-point arithmetic, the new routines are 
severa] times faster than the old ones. The 
speed improvement factor for GET and PUT 


10 
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is approximately 1.5. A high-performance 
variant of the GET routine (called GIT) which 
will improve the factor of 1.5 is shown in 
Exhibit 1. 


It operates ina manner, aJmost identical to GET, 
with the exception that the shift parameter is 
ignored (or assumed to be 1.0, whichever way 
you choose to look at it). Because SHIFT is, 
and should be, 1.0 in most cases, this should 
not be a serious impediment to the use of GIT, 
If a SHIFT different than 1.0 

VAR = GET (KOL, 12, 18, .01) 
is really needed, it should be just as easy to 
code 


VAR = GIT (KOL, 12, 18, 1.0) *. 0] 


instead. 


' The improvement to be obtained in using GIT is 
- shown in the summary below: 


Core Required 
(Approximate) 


_ 148 words 


GET, Version 2 
GET, Version 3 


GIT 
__98 words __ 


__ 94 words __ 


Average time per character, 
milliseconds, (Approximate) 


In addition, GIT used none of the real (floating 
point) arithmetic routines, and is consequently 
independent of precision--either standard or 
extended may be used. 


A little arithmetic demonstrates the effect of the 
time saved. Consider, for example, a card 

to printer, job, with GET used to convert five 
ten-column fields. Suppose it now runs at 60 
lines per minute, for a basic cycle length of 1 
second or 1000 milliseconds. If GIT is used 
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in place of the Version 2 GET, the cycle is 
reduced by 50 *(3.33-.25) or 154 milliseconds, 
from 1000 milliseconds to 846. In terms of 
lines per minute, the improvement is from 60 
lpm to 71 lpm. 


At the higher speeds of the 1403, the potential 
improvements are even more impressive. At 
200 lpm (a 300 milliseconds cycle), a Saving of 


154 milliseconds will increase the throughput to 
410 lpm. 


The calling sequence of GIT has been kept identical 


to that for the GET routine 
GIT (KARD, JSTRT, JFIN, SHIFT) 


to permit easy conversion of source program. 
However, since the SHIFT parameter is ignored, 
a simple change will permit the call to reduce 

to 


GIT (KAR, JSTRT, JFIN) 


To implement this alteration, change the 16th 
source statement from 


MDX 1 4 


to 
MDX 1 3 


To avoid changing any source programs, the 
name of GIT can be changed to GET, and stored 
on the disk in place of GET. Change GIT to GET 
everywhere that name appears in the source 
program (lst, 2nd, 4th, and 10th cards), punch 
the cards, then assemble. 


2314 DRAWER CLOSING OPERATING TIP 


The operator can be assured that the 2314 
drawer is properly closed by, after closing, 
attempting to open the drawer with a downward 
pressure of the handle. If the drawer has been 
closed properly, it cannot be opened without 
lifting on the handle. 
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GIT 


Two 


ONE 


CNT 


JCRD2 


MISS 


MAYBE 


CONT 


FIN 
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1130 - CSP HIGH PERFORMANCE ALTERATION OF GET 


ENT 
DC 

STX 
LDX 


nr 

oO 
o-=@ ou 
mee Pe 


LD ie 
Ss I] 


~” 
-~4 
x< 
— 


LOX Li 
LD Lil 


@ 
nn 
(a) 
- rer cre 


LDOx Li 


DONE] BSC L 
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GIT 
tom % 
FIN+1] 
GIT 

0 

2 
JCROZ+1 
MISS+1 
2 

GIT 

1 
ONE] 
+ 
ONE+1 
CNT+1 


4 
DONE1+1 
ANS 

32 

ANS 


MAYBE »+Z 


BLANK 
ERR»Z 
CONT 

3 

CONT 9C 
IR1 
IR] 
ONE] 
ERR »=—Z 
1 

CONT eC 
ZIP 
CNT+1 
ANS 

2 

ANS 

1 

TEMP 
ANS 

~1 
JICRO2 
126 
D159 
125 
NORM 
CNT+1 
FIN»g=Z 
SNR 

on H 
tat 


ERR SLT 
STO 
STO 
MDX 
D159 oC 
BLANK DOC 
NINE DC 
TEMP BSS 
ANS BSS 
ZIP Oc 
IR1 DOC 
ONE1 oDC 
END 
Exhibit 1 
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NEW TYPE Ill PROGRAMS * 


The following are the abstracts of programs which have been recently made available 
from the Type III library. 


The program, along with its complete abstract, will be incorporated in subsequent 
issues of the Catalog of Programs. | 


Programs may be obtained by submitting a properly completed ''General Program 
Request Card" (Form Number 120-1145-1) to the Program Information Department, 40 Saw 
Mill River Road, Hawthorne, New York, 10532. 


These programs and their related documentation are distributed by IBM in the 
author's original form and havenot. been subjected to any formal testing. 


Any discussions of Type III programs with customers must emphasize the following points 


1. Type III (IBM employee--contributed programs) are provided by the IBM company 
as part of its service to customers. They are not a part of the IBM product line 
support. 

2. Type III programs have not been subjected to any formal test. 

3, Recipients of Type III programs are expected to make the final evaluation as to the 


usefulness of the programs in their own environment. 


4, There is no committed maintenance for Type III programs. However, any changes 
the author chooses to make will be announced in subsequent issues of the Catalogs of 
Programs, 

5, IBM makes no warranty, expressed or implied, as to the documentation, function, 


or performance of Type III programs. 


*NOTE: THE CUSTOMER MUST BE INFORMED THAT THE ABOVE APPLIES 
TO ANY OF THE FOLLOWING TYPE III ABSTRACTS FURNISHED TO HIM. 


IBM OPERATING SYSTEM/360 BRAILLE Ordering Procedure: Order File Number 


UTILITY PROGRAM, The System/360 Oper- 360D-01. 0. 005. 

ating System Braille Utility is a general purpose 

program designed to translate cards, magnetic The program material can be obtained in card 

tape, and direct-access input into Grade 1 form or on one 9 track or 7 track (Data Con- 

Braille on an IBM 1403 Printer. version feature required) Distribution Tape 
Reel (DTR). 


The program is also designed to translate 
any IBM SRL manuals that are contained on 


ift D ill b ided. 
TEXT 90 Print tapes into Braille. If not specified, a 9 track DTR wi e provide 


No tape submittal is required - the DTR will 


Confi ti 
onfiguration requirements are any model be provided by the Library. 


CPU that can accommodate Operating System/ 
360, plus a 1403 Printer, 2540 Card Reader/ 
Punch, anda 1052 Console. Either 9 track 
or 7? track tapes may be used. The Data Con- 
version feature is required for 7 track tapes. 


Source Language - ALP. 
13 
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FILING AND SOURCE DATA ENTRY TECH- 
NIQUES FOR EASIER RETRIEVAL (FASTER- 
OS VERSION. FASTER (S/360 OS) is a pro- 
gramming system for retrieval and maintenance 


of IS files from terminals. The methods used are x 


applicable to a wide variety of applications. 
FASTER incorporates a macro-language which 
provides for writing message processing pro- 
grams ona functional level. Some of the major 
functions supported by the language include: 
modification and addition to and retrieval from 
indexed sequential files, data manipulation 
(including Boolean Logic), formatting of res- 
-ponses to selected terminals (including paging 
capability), message switching and audit data 
logging. The ability to background test a user 
system is also provided. 


Using BTAM, FASTER provides line control 
support macros of a communication network 
consisting of IBM 1050, 2740 typewriter termi- 
nals and the IBM 2260 display terminal. 
Written in BAL, FASTER operates as a job 

in a single high priority partition under OS 
with a 65K minimum storage. 


Ordering Procedure: Order File Number 
360D-06. 7.011. 


To obtain program material, submit one 2400 
foot reel of magnetic tape. Specify whether 
7 or 9 track recording is required. If not 
specified, 9 track recording will be used. 


The required tape may be ordered from IBM 
or supplied with your request for the program. 


HOSPITAL SELECTIVE MENU PROCESSING 
PROGRAM, The Selective Menu Processing 
Program is applicable to the dietary depart- 


ments of most hospitals. The program gener- 


ates a dietetically suitable menu for each pat~ 


lent, for each meal, every day. The selective 


menus (menus from which patients select 


food items) are printed by the program on pre- 


printed 1232 data recording sheets. Patients 
mark their choices on these sheets, and the 


sheets are returned to the data processing area. 


The program processes these punched cards 
and generates listings containing the patients 
food selections. The program process these 


punched cards and generates listings containing 
the total food requirements for each food prep- 


aration center in the hospital. 
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Selective Menu Processing Program features 


include: & 


Patient diet order maintenance and control. 

Diet suitability checking. 

Generation of pre-identified selective men- 
us for each patient. 


d. Tally of food requirements for each food 
preparation center each day. 
e. Overall food requirements tally for entire 


hospital each day. 

f. Capability of operating in a multi-hospital 
environment. 

g. Hospital profile data set containing infor- 
mation and program parameters unique 
to each hospital. 


Selective Menu Processing Program advantages 
include: 


Increased patient satisfaction. 

Improved patient diet control. 

Reduced clerical costs. 

Reduced plate waste. 

More accurate planning of production. 
requirements. 

Savings in supervisory time. 


TAA TY 
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The required machine configuration is a System/ _ 
360~30 Model E (32K bytes of storage) processing 

unit, 3-2311 disk drives, a 1232 Optical Mark 

Page Reader, and other standard peripheral 

equipment. 


The programming system used is DOS, 


The source language is COBOL. 


Ordering Procedure: Order File Number 
360D-13.0. 002. 


The program material can be obtained in card 
form or on one 9 track or 7 track (Data Con- 
version feature required) Distribution Tape 
Reel (DTR). 


If not specified, a 9 track DTR will be 
provided. No tape submittal is required. 
The DTR will be provided by the Library. 
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S/360 DISPLAY, ACCEPT AND ALARM 
MACROS FOR DOS ASSEMBLY LANGUAGE. 
DISPLAY, ACCEPT and ALARM are three 
macros which provide the DOS and TOS Assem- 
bler programmer with the ability to easily 

read data from the console, to write limited 
amounts of data on the 1052 console typewriter, 
printer and punch, and to activate the 1052 
alarm. These macros are particularly useful 
for program debugging, for input of control 
information, and for output of small amounts 

of data. They use PIOCS and a common channel 
program, thereby using a minimum amount of 
core. Moreover, they are completely self- 
relocating. 


Minimum machine configuration : machine con- 
figuration required for operation of the user's 
DOS or TOS plus decimal arithmetic. ALARM 
requires a Model 40 or above. 


Source Language is ALP. 


Ordering Procedure: Order File Number 
360D-03. 7.018. 


This program material can be obtained in 
card form or on one 9 track or 7 track (Data 
Conversion feature required) Distribution 
Tape Reel (DTR). 


If not specified, a 9 track DTR will be pro- 
vided. 


No tape submittal is required - the DTR will 
be provided by the Library. 
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IBM SYSTEM/360 BRAILLE UTILITY PRO- 
GRAM, The IBM System/360 Braille Utility 
Program is designed to translate its input into 
readable Grade 1 Braille on a standard IBM 
1403 Printer. Braille is a touch reading system 
used by blind individuals consisting of a con- 
figuration of dots in a 2 by 3 matrix. 


This program consists of four parts: (1) BPS/ 
360 Absolute loader (program no. 360 P-UT- 
O17) (2) System control cards (distinguished by 
2 slashes in card columns one and two (3) Ob- 
ject program cards constituting the braille pro-~ 
gram proper (4) A source deck for the System/ 
360 braille utility program. This will be used 
to place the program in a BOS or DOS library. 


The source language is System /360 assembler 
language. 
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Requirements: Floating~point feature is not 
required. The minimum configuration is System/ 
360 Model 30 with at least 16K positions of 
memory. The system must have a card reader, 
one tape drive (the Data Conversion feature is 
required for 7 track tapes) if dumps are to be 
requested, operator's console (1052) and 1403 
printer. List from any input device except 
direct access. 
Ordering Procedure: Order File Number 
360D-01. 0.006. 


The program material can be obtained in card 
form or on one 9 track or /¢ track (Data Con- 
version feature required) Distribution Tape 
Reel (DTR). 


If not specified, a 9 track DTR will be provided. 
No tape submittal is required. The DTR will 
be provided by the Library. 
eee ESS SE ng 
S/360 MANAGEMENT INFORMATION SYSTEM 
(MIS). The S/360 Management Information 
System (MIS) provides a terminal oriented 
capability to retrieve pre-defined reports, or 
subsets of them, froma single file using an 
easy-to-learn vocabulary. Key restrictions 
are: limited file maintenance capability; user 
normally reloads entire master file ona per- 
iodic basis; if sorting required, maximum is 
300 records, 2260 support is local only. 


Minimum machine configuration is 256K, 
Model 40: this is not recommended, since only 
20-30K remain for background programs. In 
addition to normal S/360 Operating System 
requirements, the user should have 1-2311 

and a 2848 Control Unit Model III for 2260 local 
operations and/or a 2702 for 1050, 2740, and 
2741 terminals. Feature level details are 
specified in the documentation. 


Storage requirements: one 231] is recommended. 


Source Language: with the exception of two 
modules (MIS440, MIS460) which are coded in 
COBOL-F, S/360 MIS is written in Assembler- 
F Language. 


Ordering Procedure: Order File Number 
360D-06. 7. 009. 


To obtain program material, submit one 2400 
foot reel of magnetic tape. Specify whether 7 
or 9 track recording is required. If not spec- 
ified, 9 track recording will be used. 


The required tape may be ordered from IBM 
or supplied with your request for the program. 
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FILING AND SOURCE DATA ENTRY TECH- 
NIQUES FOR “EASIER RETRIEVAL (FASTER)- 
DOS VERSION. FASTER (S/360 DOS) is a 
programming system for retrieval and main- 
tenance of IS files from terminals. The methods 
used are applicable to a wide variety of appli- 
cations. FASTER incorporates a macro-lang- 
uage which provides for writing message pro- 
cessing programs on a functional level. Some 
of the major functions supported by the language 
include: modification and addition to and retrie- 
val from indexed sequential files, data manipu- 
lation (including Boolean Logic), formatting of 
responses to selected terminals (including 
paging capability), message switching and audit 
data logging. The ability to background testa 
user sytem is also provided. 


Using BTAM, FASTER provides line control 
support macros for a communication network 
consisting of IBM 1050, 2740 typewriter termi- 
nals and the IBM 2260 display terminal. Written 
in BAL, FASTER operates as a S/360 DOS 
foreground job with a 65K minimum storage. 
Ordering Procedure: Order File Number 
360D-06. 7.012. 


To obtain program Magnetic submit one 2400 
foot reel of magnetic tape. Specify whether,7 
or 9 track recording is required. If not speci- 
fied, 9 track recording will be used. 


The required tape may be ordered from IBM 
or supplied with your request for the program. 


GENERALIZED EXTRACTION PROGRAM-- 
1410/7010. The GENERALIZED EXTRACTION 
PROGRAM--is a self-modifying utility program, 
written for the 1410/7010 Operating System, 
which will extract or delete records from any 
tape file based on the results of table searching 
and/or range testing in accordance with spec- 
ifications submitted through the use of control 
cards. The output file can be in the same format 
as the input data or it can be reformatted and, 

in either case, additional constant information 
may be placed into it. Additional options per- 
mit the user to generate control totals on input 
and output, control output blocking factor, and 

to specify processing limits and random 
selection of input data. The program will gen- 
erate input and output record counts, 
put file nines padding if required. 


and out« 
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The Generalized Extraction Program--1410/ 
7010, GENEXT, requires an IBM 1410 syséem 
with 80, 000 positions of core storage, three 
129 tape units in addition to 1410 Operating 
System requirements. 


Source Language - Autocoder 


Ordering Procedure: Order File Number 
1410-02.4. 002. 


The program material can be obtained on one 
7 track Distribution Tape Reel (DTR). 


No tape submittal is required - the DTR will 
be provided by the Library. 


IBM 1440 CORE PUNCH PROGRAM. This 
program is used in conjunction with the existing 


1440 object programs in order to create a new 
object deck which incorporates patches to the 

original deck. The program also resequences 
The prime use of this program 
is to provide better back up.for those people 


who have patched decks without source decks. 


What happens when the operator drops the pay- 
roll deck? Can it be put together again? 
Source language is 1440 Autocoder on Disk. 
The program requires 300 positions of core. 
The program was written to reside in the upper 
300 positions of an eight (8) K memory. Mini- 


mum changes are required to alter the location. 


Machine: 1440 CPU (300 positions) and 1442 
reader punch. 


Ordering Procedure: Order File Number 


1440-02. 9.005. 


Distribution will be in card form only. 


-IBM 1800 FORTRAN FLOWCHART,. An IBM 
1800/1130 FORTRAN program operating under 
Version 3 of TSX or under 1130 Monitor (with 
slight modification) accepts all valid IBM 1800/ 
1130 FORTRAN Source statements to draw a 
flowchart on the IBM 1143/1132 printer. The 
program lists all non-executable statements 
and dtaws a unique block containing the full 
statement for each type of executable statement. 
The program connects the blocks where possible, 


draws up to 25 nested DO loops, prints state- 
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ment numbers, card numbers, and page num- 
bers. Provisions are made for page headings. 
The output will differentiate between IBM 1806 
process I/O and other 1/O. After completing 
the flowchart, a sorted statement number ver- 
Sus page number index is printed. Provisions 
are made for stacked jobs. 1800 version under 
TSX required 16K, one disk, 1442, 1443. 

1130 Version requires 8K, one disk, 1442, 
1132. Programmed in FORTRAN. 

Ordering Procedure: Order File Number 
1800-00. 2.001. 


Distribution will be in card form only. 


1800 DDC -TSX, A TIME-SHARING DIRECT 
DIGITAL PROCESS CONTROL PROGRAM. 

This program allows the 1800 Control and 

Data Acquisition System to replace conven- 
tional analog controllers in control of a process, 
i.e., perform direct digital -process control. 
Operator communication is also implemented. 


The IBM 1800 Time-Sharing Executive System 
(1800-OS-001, version 3), 24k of core storage, 
one 1053 printer, one 2310 disk file, and 
several RPQ's including the process operator's 
console (1892-10), are required. Written in 
symbolic assembly language, the program runs 
under control of the TSX System allowing the 
user to maximize the usage of the computer 
and have access to the complete programming 
system provided by TSX. 


Ordering Procedure: Order File Number 
1800-23. 5. 005. 


The basic program material will be distribu- 
ted in card form only. 


The optional material consists of source code, 
flowcharts and listings distributed on one 2400 
foot reel of magnetic tape, 9 track or 7 track 
(Data Conversion feature required). If not 
specified, 9 track recording will be provided. 
Submit one reel of magnetic tape. The re- 
quired tape may be ordered from IBM or sup- 
plied with the request for the program, 
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TIMER SUBROUTINE FOR IBM 1800 TSX 
PROGRAM SYTEM.,. This timer subroutine 
replaces the standard 1800 TSX timer sub- 
routine and expands the hardware timer A to 

16 programmed timers A 0-A 15, Using the 
standard TSX timer calling sequence timing A 0 
or Timer B are affected. In addition timers 

A 1-A15 are operating independent from each 
other and may be used for single or repeated 
subroutine calls in specified time intervals. 

A patch to interval timer control program will 
avoid stopping and resetting hardware timer A. 


This timer program enables the user of 1800 TSX 
System to control the operation of a great number 
of customer equipments with different data rates 
and different on-off status. The program allows 
to supply a separate timer to each equipment 

and operate it in any combination with high 
flexibility. 


Machine Configuration Requirements are the 
same as for IBM 1800 TSX System Version 3. 
Core storage required: 366 words. 

Source language is ASSEMBLER, 

Ordering Procedure: Order File Number 
1800-05.0.001. 


Distribution will be in card form only. 
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SELECTED SHORT SUBJECTS capability to extend the channel interface r 
| up to two miles to accommodate remote 
The purpose of Selected Short Subjects is to control units or facilitate inter-system 
bring together and highlight concise, factual. communication via the channel-to-channel 
and timely information which will indicate adapter, you should read the article with 
that action is to be taken by the IBM repre- the above title in this issue of the News- 
sentative whose accounts are affected. letter. 
l. IBM Tvve I Pro ram Maintenance 3, 1130 - Commercial Subroutine Package 
ype - snopram eainenance a (CSP), Version 3 SECOM Entries 
The May 1968 revision of page 2 of the 
Programming Section of the Sales Manual Version 3 of CSP was released to the 
clarified the current operating procedures | field in early June, 1968. Since then, 
on program maintenance. The following : several entries have been placed into'the 
information is extracted from Page 2 — SECOM system. | 
under Program Maintenance to be certain | | 
that you are aware of the current operating Systems Engineers working with CSP 
procedure. users should keep up to date on these and 
1. Field Engineering has the responsibility one ticulatly trae in light oe the heavy is 
to provide trouble analysis and to a . } . 
report it via an APAR, regardless of | aaeneal utilization of the various CSP 
the program level actually in use. 7 cs. 
2. A release is considered current from , 
| OS/360 R 
its initial distribution by PID until 30 CS (300 RELEASE 16 SYSTEM GENERATION 
calendar days after the availability of Oo 
the next maintenance release. (e. g. - The following information is provided for rd 
Release 14 as modified by the Compiler- lanni | | | ° 
maintenance release is the current ee Sioeee only. The actual availability 
: 7 ; and specificati i jl 
release and will remain so until 30 provided through the lent Te, be as 
days after the initial availability of the Program Aun 1a procedures, 
Release 15/16 from PID). mentation ouncement and formal docu- 
3. Corrections for valid program errors, Th 
| e TRNMODE parameter has been deleted 
permanent or temporary (PTFs), are from the IOCONTRL system generation 
tested on the release current at the u | macro. 
time the correction is made available. heat. whose decks contain this parameter 
Tn. Oc OOOO should delete it before the SYSGEN of the 
will attemot See ee eerie DIRS Release 15/16 system. Inclusion of this 
rempt to app*y spec = parameter will result in the emission of a 
to a back level release. If it is not diagnostic and ' bein 
successful it is the customer's respon- Stage I no output being produced by 
sibility to retrofit the correction to Bee 
his release level and validate its accur- 
acy. 0S/360 RELEASE 15/16 LINKAGE EDITOR 
| F-V2 Planning Information 
The information from the Sales Manual 
nin reviewes Te eno cce ane. The following information is provided for 
‘nB an ati ae see nin BM 's Type I planning purposes only. The actual availability 
aiid questio ; te c © yP and specifications of all items will be as an- 
-rogram maintenance policy: nounced through the official IBM procedures, 
the Program Announcement and formal docu- 
| | mentation. 
2. S/360 2916 LONG LINE ADAPTER RPQ . 
ss Size Parameter | © 
If you have a S/360 Model 50, 65, 67 or Invalid specification of the new Linkage Editor 
75 installed or on order and need the F SIZE Parameter can result in impaired editing 
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performance or, in extreme cases, in completely 
bypassing the editor output functions. The 
SIZE Parameter is intended to allow perfor- 
mance optimization by using available storage 
above the design point to expand the editor's 
internal tables and buffers. This use will re- 
duce intermediate input/output. This extended 
storage allocation is controlled by the two 
operands of the SIZE Paramter. The first 
operand (Value 1) specifies the extent of storage 
to be assigned to the editor. The second 

(Value 2) designates the amount of Value 1 
allocation to beused as input text buffer. If 

the buffer area is not large enough, overflow 
will be written 9n SYSUT1. 


The editor space allocation routine will reconcile 
the SIZE values, the system space available, 

and the editor space requirements in accordance 
with the following criteria: 


1. If SIZE is not included as an execute card 
parameter, default size values are assumed. 
These have been established at System Gen- 
eration Time (SYSGEN). 


2. The SIZE Parameter on an Execute card will 
override the SYSGEN'ed values for that 
Execute step. 


3. When the available storage is less than that 
requested for Value 1, both Value 1 and 2 
will be adjusted downward automatically by 
the Editor's space allocator. The minimum 
for Value 1 is the design point of the Editor 
involved. After determining a Value 1, the 
space allocation routine will attempt to 
satisfy the Value 2 request. If there is not 
sufficient space other buffers and tables will 
be adjusted downward to their minimums 
before Value 2 is reduced. Value 2 will 
then be adjusted to its minimum if necessary. 


Note: SIZE must be used with caution when 
blocking SYSLIN and/or SYSPRINT data 
sets at more than the minimum 5 to l. 
If blocking is specified at more than 
minimum, and if Value 2 is adjusted 
downward, NO output will be produced 
by the linkage editor. 


SIZE must be specified consistent with 
the system conditions existing at editor 
execution time. Value 1 should not re- 
quest more storage than the system will 
be able to supply to a GETMAIN (Region, 
partition, or total block of storage in 
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PCP). Value 2 should not be too large to 
be directly allocated from the Value 1 
area. If Value 2 (Text Buffer) takes a 
disproportionate amount from Value l, 
the various tables and buffers will be 
reduced inordinately and the advantage 

of the greater text buffer will be lost to 
inefficient processing in the other data 
areas. 


The final Value 2 (Text Buffer) can have 
an effect on the SYSLMOD record size 
written by the linkage editor. This out- 
put record size will be the smaller of the 
device type record size, or one-half of 
the effective Value 2. This factor must be 
considered when greater than 3K records 
are desired. 


Recommended procedure for the use of the 
Size option involves two stages of speci- 
fication: 1. At SYSGEN; and 2. At 
Editor execution as an EXECUTE card 
parameter. 


The sizes specified in the EDITOR macro 
for System Generation should be consis - 
tent with the configuration of the intended 
System and its normal use. The gener- 
ated default Value 1 should represent the 
minimum amount of storage commonly 
used on those occasions when individual 
operating conditions call for the expansion 
(or contraction) of the values for optimum 
operation. 


Value 1 should not exceed the actual stor- 
age area which will be available. Value 
2 should be consistent with its Value l 

by not forcing any rounding down in the 
allocation of areas. 


Exhibit 1 shows the relationships between 
minimum Value 1 and maximum Value 2. This 
relationship should be preserved in that any 
increase to Value 2 should be matched in Value 
1. 


Treatment of Named Common 


References to NAMED COMMON areas with 
the same name are collected and modified to 
relect the longest length. After data has been 
received for the common, the length should not 
be increased by subsequent references to the 
same NAMED COMMON. If an increase is 
attempted, an incomplete load module may be 
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created. The following four conditions must be 
satisfied for this incomplete load module pos- 
sibility to occur: 


1, The track size of the output device is large 
compared to the size of CSECTS being 
processed. 


2. More than one CSECT contains NAMED 
COMMON of the same name. 


3. The NAMED COMMON contains data. 


4. A NAMED COMMON processed subsequent 
to the initializing module contains a length 
greater than any NAMED COMMON of the 
same name previously processed. 


This does not represent a new condition for F 
level linkage editors. (In order to create the 
most efficient load module, as many CSECTS 
as possible are grouped into one output record.) 
In order to avoid this NAMED COMMON situ- 
ation, the grouping concept would be nullified 

at a cost of increased secondary storage space, 
and increased FETCH overhead. 


The exposure of this item is expected to be 
nominal. It was mentioned only once during 
the life of the replaced F Linkage Editor and 
the current Editor SRL publications clearly 
describe the problem. Also the USASI 
FORTRAN Standard states: 


The sizes of labeled common blocks with the 
same label in the program units that comprise 
an executable program must be the same. 
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DOS/360 V-II] ISAM PRIME DATA AREA FULL 
CONDITION 


ISAM sets error bits in a field known as "'file- 
name C' for certain types of I/O conditions 
resulting from its file handling. One such bit, 
bit 2 was set on in Version II if the prime data 
area was full. In Version III, this same bit is 
set to signify ''prime data area full" but the 


setting occurs on starting to write on the last 
cylinder of the Prime Data area. This means 


that the user will sense this condition in Version 
Iii with a full cylinder of data area still available. 


This change in Release 16 was originally made 
to satisfy the ISAM recovery problem of having 
room left in the ISAM file to write an end-of- 
file marker on a cancel condition. Since one 
full cylinder was more than enough room for 
this situation, Release 17 was changed in 
ISMOD9 to compare for the ''Prime Data Area 
Full'' condition on both cylinder and track so 
that bit 2 is set only at the start of the last 


track in the last prime data area cylinder. 


However, this check is not logically valid if 
independent overflow tracks are assigned on 

the last Prime Data cylinder. For instance, 
track 7 could be the true last Prime Data track 
but ISAM will check only for track 9. 


Latest information indicates that ISAM may be 
changed again in Release 18 to check for the 
beginning of the true last Prime Data area 
track. The actual availability will be as 


provided through the formal IBM procedures 


and documentation. 


If using Releasel7, you may have problems as 
indicated above, and should consider changing 
back to the Release 16 ISMDO9 module. 


OS/360 RELEASE 15/16 LINKAGE EDITOR F-V2 


Block 
Editor 


F44 52K, 6K 

F88 Values 88K, 36K 

F128 Acceptable 128K, 56K 
Exhibit 1 
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80K, 6K 
88K, 8K 


128K, 28K 
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DOS/360 QTAM AUTOPOLL AND CPU UTILI- 
ZATION 


The following item is from SECOM (360N-CQ- 
470-028). 


The Autopoll feature considerably reduces the 
amount of CPU time used in polling leased 
lines. However, the CPU does not necessarily 
go into the wait state turning off the CPU meter. 
Approximately 500 ms are needed to go into the 
wait state. If the users polling list is suffici- 
ently long, and he is negative polling, he will 
go into the wait state when QTAM is just pol- 
ling. At the end of the poll list he will go out 
of the wait state to restart the polling list. 
Repeating polling entries and thus, creating 

a long polling list will save meter time when 
one is doing only negative polling. 


DOS/360 PL/I 2314 USAGE 


The following field contribution has not been 
submitted to any formal IBM test. Its use- 
fulness should be evaluated in the users own 
environment prior to implementation. 


Full system support for the 2314 under DOS 
PL/1 will be available later this year. For 
DOS Release 16 2314 installations, the follow- 


ing ways are available to utilize PL/1 on 2314 
volumes now: 


1. PL/1lwork files and user data sets can be 
assigned to 2314 volumes which have been 
initialized as 2311's. At IPL time the 2314 


volumes must be DELETED and ADDed as 
2311's. 


2. PL/1 work files (SYS001, SYS002, and 
SYSLNK can be run on 2314 drives initial- 
ized as 2314 drives by making minor changes 
to the compiler program. Essentially 
SYS001, SYS002, and SYS003 are defined 
within the compiler by DTFSD's which require 
the device type 2314". By changing these 
DTF's in modules IJXA@@ and IJXA@GD, the 
work files will be handled properly on the 
2314. No change is required for SYSLNK 
Since it is handled by the device independent 
DTFCP/CPMOD. 
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BPS/360 UTILITY INITIALIZE DISK ALTER- 
NATE TRACK CORRECTION 


The BPS Utility '16K Initialize Disk" (360 P- 
UT-206) does not properly recognize flagged 
tracks in the alternate track cylinder (200 to 
202). Additional information is available through 
FE RETAIN pertaining to an available 'PTF" 

by referring to 360 P-UT-206 with information 
key O11. 


S/360 2916 LONG LINE ADAPTER RPO 


An RPQ unit is available which provides the 
capability for extending the channel interface 
up to two miles. A brief descrption is noted 
below. Additional information is available 

to you by contacting Custom Systems (Depart- 
ment 560), Kingston, New York. Supporting 
documentation, including a sales brochure 

is available on a limited distribution. 


The IBM 2916 Long Line Adapter (LLA) pro- 
vides a means of increasing the effective length 
of a System/360 selector channel interface up 

to two miles to accommodate remote control 
units and their associated devices, or to facili- 
tate inter-system communications via a channel- 
to-channel adapter. 
having data rates up to 125, 000 bytes per second 
may be connected via the LLA. 


Burst mode type devices 


The LLA consists physically and logically of 

two main components, the 2916-3 and the 
2916-4. Each performs logical functions which 
control transmission of data characters between 
the selector channel and the remotely located 
control unit(s). Standard interface bus lines 

are used for transmission of dataccharacters and 
control signals between the selector channel 

and the 2916-3 and between the 2916-4 and the 
remote control units. 


The 2916 LLA may be attached to System/360 
Models 50, 65, 67 and 75 selector channels, 
and is attached to a selector channel in the 
Same manner as any standard control unit. 


The data rate between the local and remote LLA 
units is asynchronous to the channel and/or 
remote control unit(s). That is, while a fully 
duplexed bit stream of 125,000 bytes per second 
is flowing between the 2916 units, actual data 

is passed on an "as required" basis. This data 
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flow is controlled by a buffer in the remote 
2916-4. 


The LLA is provided with Extensive Diagnostic 
Programs, CD Panels, and maintenance plug- 
board to assist the Customer Engineer to main- 
tain proper operation. 


SUBMITTING TYPE III PROGRAM ABSTRACTS 


Initial abstracts for programs which are to be 
submitted to the Type III Library should be 
forwarded to the Application Programming 
Standards Department (APSD) DPD HQ. Prev- 
iously, these abstracts were mailed to TIE 
and were published in the TIE Catalog. 
Abstracts of Type III programs in development 
are no longer listed in the TIE Catalog - these 
abstracts are now broadcast daily via SECOM. 


The preferred time to submit an Initial Abstract 
is before development begins; however, they 
may be submitted any time prior to forwarding 


the program material to the Program Information 


Department (PID). 


The value of an Initial Abstract before the pro- 
gram is submitted is substantial because: 


1. The field is apprised through SECOM that 
the program is in development. This serves 
to reduce duplicate effort and may place you 
in contact with others interested in the same 
endeavor. In many instances collaborated 
effort has resulted. 


2. The review performed by DPD HQ on the 
Initial Abstract can save considerable effort 
if the program is judged ineligible for the 
Type III Library. Also, the review, in many 
instances brings forth suggestions which will 
enhance the program, or prevent delay in 
processing of the program when it is received 
by PID. 


In submitting an Initial Abstract, follow the 
general guidelines below: 


1. Use the Program Contribution Form 
(120-1420) for the Initial Abstract submission. 


2. Follow the instructions contained in the Type 
III Standards and Procedures for Initial 
Abstract submissions. 
and Procedures may be found in the DP Sales 
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Activity Section of the Branch Office Manual, 
or a copy may be obtained from the Appli- 
cation Programming Standards Department. 


3. Send the completed Program Contribution 
Form to the Application Programming 
Standards Department DPD HQ. 


Do not send completed program material to 


APSD. Program material should be shipped 
directly to PID. 


Questions regarding Type III program ahd 
abstract submission should be addressed to 
Mr. J. F, Schutty, Application Programming © 
Standards Department, 112 E. Post Road, | 
White Plains, N. Y. Telephone (914) 949-1900: 
Extension 5520 or IBM Dial Network 8-374-5520. 
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@ INFORMATION ABOUT THE NEWSLETTER NEW PUBLICATIONS ANNOUNCED BY PRL'S 


EVERY SALESMAN AND SYSTEMS ENGINEER’ The weekly PRL's (Publications Release Let- 
SHOULD RECEIVE ONE COPY OF THE NEWS- ters) are used to insure that all Salesmen and 
LETTER, Each FE Branch Manager should Systems Engineers are aware of new or revised 


receive five copies for distribution to Customer Marketing Publications. Normally, each issue 


Engineers. of the Newsletter will contain information from 


two PRL's, one following the other. The in- 
The IBM Installation Newsletter is distributed formation will be placed in the Newsletter in 


only to IBM locations and is not available to its original form with no rearrangement of 

customers. The Newsletter is separated into form numbers or titles. It is not intended to 
two parts. The first part contains information replace existing information and distribution 
which is intended only for IBM personnel and sources. You should be certain that you are 


the pages are labeled For IBM Internal Use aware of these sources. 
Only. THESE PAGES, OR REPRODUCTIONS 
OF THEM, ARE NOT TO BE GIVEN TO 
CUSTOMERS, However, using your own good NOTE: 
judgement, you may discuss pertinent informa- 
tion from these pages with a customer. The 
second part contains information which may 
be REPRODUCED by the Branch Office at their 
discretion and given to customers. These pages 
are not labeled with any restrictive classifica- 
tion. Note that when any abstracts for Type HI 
programs are given to the customer, he must 
be informed that the disclaimer for Type HI 
programs as contained in the Newsletter, ap- 

© plies. YOUR COOPERATION IN PROPERLY 
HANDLING THE CONTENT OF THE IBM IN- 
STALLATION NEWSLETTER IS NECESSARY 
FOR ITS CONTINUED PUBLICATION, 


Marketing Publications are obtained from 
The IBM Distribution Center 
Mechanicsburg, Pa. 


The Publications Requisition, form 
number M02-0618-2, is used for 
ordering. 


Changes to the quantity of the Newsletter ship- 
ped are to be made by the Administration 
Manager. (NOTE THAT EXTRA COPIES OF 
THE NEWSLETTER ARE NOT TO BE ORDERED 
FOR DISTRIBUTION OF INFORMATION TO 
CUSTOMERS.) He should update and send the 
DP Administration Managers' Communication 


Control card (form number N44-780) to DP 
Document Control, DPD HQ. 


Direct inquiries concerning the contents of this 
Newsletter to: 


W. P. Gaffigan, Editor 

IBM Installation Newsletter 
Installation Planning -#713 

DPD HQ 

112 East Post Road 

White Plains, New York 10601 
Telephone 914 WH9-1900 Extension 4781 
Tie Line 8-374-4781 
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FORM _NO. 


N20-0361, 30 


221-0386~3 
221-0399—-2 
221-0428-1 
221-0441~2 
221-0498-0 
270-0099-0 


320-0948~-0 
520-1300<1 
549-0003-1 
549-0202-2 
A26-3684-2 
A26-5 893-6 
C20-1693-0 
C24-5070-0 


E20~0306~-1 

H20-0475~1 
H20-0487~=1 
H20-05 14-0 
H20-05 15-0 


H20-05 16-0 


H20-05 28-0 
H20--05 32-0 


K20-0263-0 
N20-1864 


N20-1865 
N201870 


N21-0092 
N21-5090 
N22-0297 
N24-5 360 
N24-5 361 
N24-5362 
N33-1514 
N33-1515 


N33-1517 
N33~1518 
R20-1055<2 


R20-1067-0 
R20-8042-0 
R20-805 8-0 


R20~8062-0 
R20-9243-0 
Y20-0175-0 


PRL #26 June 28, 1968 


MARKETING PUBLICATIONS 
TITLE car 


IBM S/360 Mod 20 Re: A26-3565-4 


The 2701 Data Adapter 

The IBM 2020 Processing Unit 

The IBM 2703 Transmission Control 

IBM 2311 Disk Storage Drive, Models 11 and 12 
IBM System/ 360 Attached Support Processor (ASP) 
9950/54/65 Installation Instruction 


Proceedings of the 8th IBM Medical Symposium 1967 

Educating for Achievement 

Selectric-Composer Spec. Folder 

Composer Type Style Booklet 

IBM 1080 Physical Planning 

IBM 2560 Multi-Function Card Machine Component Description and Operating Procedures 
Functional Wiring Principles for IBM Punched Card Equipment | 

IBM S/ 360 BPS/BOS/ TOS/ DOS Tape Labels 


IBM S/ 360 1287 Input Conversion Program (360A-DR-07X) Application Description Manual 


IBM S/360 Automated Chemistry Program (360 ACP) for the 1080 Data Acquisition System Appi. Desc. 


IBM S/ 360 Requirements Planning Application Description 

IBM S/360 Model 44 Remote Access Computing System Application Description 

IBM S/ 360 Automated Chemistry Program (360ACP) for the 1080 Data Acquisition System (360A~- 
UH~12X) Program Description Manual 

IBM S/ 360 Automated Chemistry Program (360ACP) for the 1080 Data Acugisition System (360A~ 
UH-12X) Operations Manual 

IBM S/ 360 1287 Input Conversion Program (360A-DR-07X) Operations Manual 

IBM S/ 360 Power System Planning for the Electric Utility Industry Application Description Manual 


Mine Planning with the IBM 1130 System at Newmont Mining Co. 

TNL for System/ 360 Bill of Material Processor (360A-ME-06X) Application Description with N20- 
1020 Re: H20-0197~2 

TNL for System/ 360 Bill of Material Processor (360A-ME-06X) Operator's Manual with N20-1052 
Re: H20-0254-1 

TNL for System/ 360 Bill of Material Processor (360A-ME-06X) Version 2 - Programmer's Manual Re: 
H20-0246-1, - 2 with N20-1053 to -1 only 

2560 SRL TNL to A26-5893=6 | 

DOS/ TOS RPG Spec. TNI. Re: C26-3570-4, -S with N24-5195, N21-5055, N21-5077 & N21-5086 
Change to IBM S/ 360 Model 40 Functional Characteristics Re: A22-6881-2 

TNL to TOS Operating Guide Re: C24-5021-3 

TNL to IBM S/ 360 TOS Performance Estimates Re: C24-5020-4 

TNL to IBM S/ 360 TOS System Generation & Maintenance Re: C24-5015-5 

IBM S/ 360 Model 20 Introduction and System Summary Re: A26-5889-2 with N33-1514 

IBM S/ 360 Model 20 Installation Manual ~ Physical Planning Re: A26-5896-5, -6 with N26-0164, 
N33-1500, N33-1503, N33-1511, N26-0154, N26-0180, N33-1502, N33-1508 & N33=-1512 


IBM S/ 360 Model 20 Configurator Re: A26- 3572«5 
IBM S/360 Model 20 Configurator Re: A26-3572-S with N33-1517 


Customer Education - Course Selection Guide 


Fundamentals of Programming 

IBM 1130/1800 FORTRAN IV Workshop Education Guide 

IBM 1130 Computing System Continuous System Modeling Program (1130-CX-13X Type Il 
Application Program) Education Guide 

IBM Punched Card Data Processing, Accounts Receivable Education Guide 

IBM 1130 Basic FORTRAN IV for Commercial Users 

IBM S/360 Automated Chemistry Program (360 ACP) for the 1080 Data Acquisition System (360A- 
UH-12X) System Manual 
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DISPOSITION 


Scrap N20-0361. 29 


Scrap 221-0386-2 
Scrap 221-0399-1 
Scrap 221-0428-0 
Scrap 221-0441-1 
NEW 
NEW 


NEW 

Use 520-1300-0 

Scrap 549-0003-0 

Use 549-0202=1 

Scrap A26-3684-1 & N26-0187 
Scrap A26-5893-5 

Use A24-1007-1 

NEW 


Scrap E20-0306-0 
Scrap H20-0475-0 
Scrap H20-0487-0 
NEW 
NEW 


NEW 


NEW 
NEW 


NEW 


NEW 
NEW - Reinstated 


July 26, 


Y20-0210 


Y28-3080 
Y28-2016=1 


Y 28-3077 
220-1 866=1 


Z77-8061-0 
Z77=8062-0 


N20-0360. 48 


505-0010-0 
520-1966-0. 
5 20~2079=0 
520-2101-0 
5 20-2104-0 
A24~3073-5 


C24=3420-1 
C24~9000-3 
C24~9003—=3 
C26-5 882-4 
H19-0007-0 


N23-0620 
N33=8012 


N33=85 35 
N33~85 36 
N33=85 38 
R20-9259-0 
R29-0016=0 


V20-0169-0 
V20~0174-0 
V20-1077-0 
V20-0183-0 
Y20-0178-0 
Y20-0183-0 


Y20-0184-—0 
Y¥ 20-01 85-0 
Y20-0186-0 
Y20-0187-0 
Y20-0188-0 
Y20-0189-0 
Y20-0197-0 


Y¥20~0198-0 
Y20-0199-0 


1968 
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TNL for System/ 360 Bill of Material Processor (360A~ME-06X) Version 2 - System Manual Re: 
Y20-0099-0 

IBM S/360 Time Sharing System Assembler PLM Re: Y28-2021-0 with Y28-3058 & Y28-3067 
IBM S/360 Time Sharing System Access Methods PLM 


IBM S/ 360 Time Sharing System System Service Routines PLM Re: Y28-2018-0 with Y28-3056 & 
Y28-3070 


IBM S/360 Model 25 Preliminary Marketing Guide 


Share XXIX Talk on Modeling Large Systems 
Luncheon Address Given at GPSS User Conference 


PRL #27 July 5, 1968 


IBM S/ 360 SRL Newsletter Re: A22-6822 -11 


A Computer Glossary 

The Computer Comes of Age 

IBM 1892 Model 10/ Model 11 Operator Panels 

The IBM 2680 CRT Printer 

IBM S/ 360 Model 25 the new intermediate computing system with expanded capability 
IBM 1403 Printer Component Description 


IBM S/ 360 BPS, BOS, DOS, TOS Programming Systems Summary 

IBM S/ 360 Mod 20 Tape Programming System Control and Service Programs 

IBM S/360 Mod 20 Tape Programming System Input/ Output Control System 

IBM 1800 Assembler Language 

IBM S/ 360 Model 20, Requirements Planning and Inventory Control System, Application 
Description Manual 

1800 Data Acquisition and Control System (New Cover) Re: Z23-8004-0 

IBM S/ 360 Operating System: ALGOL Programmer's Guide Re: C33~4000-0 with N33-8000 & 
N33e8002 

IBM S/ 360 Mod 20 DPS/ TPS Tape Sort/ Merge Re: C26-3804=2 

IBM S/ 360 Mode 20 DPS/TPS Tape Utility Programs Re: C26=3808~2 with N33-8528 
IBM S/ 360 Model 20 UCS Utility Program Re: C26-3812-1, N33~-8503 & N33-8515 

DOS/ TOS Facilities Non-Programmers Course Description 

IBM Programming the 7070-7074 Handouts for Video Tape Lessons 


IBM Plant Automation - Production Monitoring (slides) 

IBM Operating System/ 360 MFT-II (slides) 

Introduction to Plant Automation Systems 

QTAM for Teleprocessing on IBM/ 360 

Advanced Life Information System (360A-IL~09X) Input Edit Program = System Manual 
Advanced Life Information System (360A-IL-09X) File Maintenance Include (R) Routines 
(Narratives)System Manual 

Advanced Life Information System (360A~IL~09X) File Maintenance Include (R) Routines 
(Flowcharts) System Manual 

Advanced Life Information System (360A~IL-09X) File Maintenance Call (S) Routines 
(Narratives) System Manual 

Advanced Life Information System (360A-IL~09X) File Maintenance Call (S) Routines 
(Flowcharts) System Manual 

ALIS (360A-IL~09X) File Maintenance Issues, Additions, Complex Changes, and Terminations 
Transactions - System Manual 

ALIS (360A-IL-09X) File Maintenance Simple Changes Transactions System Manual 

ALIS (360A~IL-09X) File Maintenance 36XX Financial Transactions - Payments System Manual 
Advanced Life Information System (360A-IL-09X) Output Analysis Program - System Manual 
Advanced Life Information System (360A-IL-09X) Transaction Register Program = System Manual 
Advanced Life Information System (360A~IL~09X) Status Print Program - System Manual 
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NEW 


NEW 

Scrap Y28-2016-0, Y28-3055 & 
28-3064 

NEW 


Scrap Z20-1866-0, 220-1868 & 
220-1871 

NEW 

NEW 


Scrap N20-0360.47 


NEW 

NEW-Use 520-2052-1 

Use A24-3073-4, N24-0398, N24- 
0403, N24-0410 & N24-0415 


Scrap C24=3420-0 

Scrap C24=9000-2 

Scrap C24-9003-2 

Scrap C26-5882=3 & N26-0512 
NEW 


NEW = Scrap R20-9176 
NEW 
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Y20-0200-0 
Y20-0201~+0 
Y20-0202-0 


Y20-0203-0 
Y28-3081-0 


277-8052-0 
Z77~8063-0 
Z77-8064-0 
Z77-8065~0 
277~8066-0 
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Advanced Life Information System (360A-IL-09X) Policy Accounting Journal - System Manual 
Advanced Life Information System (360A~IL-09X) Accounting Control Program ~ System Manual 
Advanced Life Information System (360A~IL-09X) Error Register Program = System Manual 


Advanced Life Information System (360A-IL-09X) Rate File Program - System Manual 

IBM S/ 360 Time Sharing System Resident Supervisor PLM Re: Y28-2012-0 with Y28-3052 & 
Y28-3062 

A Clinical Laboratory Information System Utilizing Card Model 20/1080 Systems 
Installation of IBM 1001 Teleprocessing Network in Hospital Patient Charge Coll. 
Teleprocessing Study and Design 

DOS BTAM Coding for Leased Line IBM 2780 Data Transmission Terminal 

General Guidelines for Installing a Standard CCAP Package 
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OS/360 GIS DATA MANAGEMENT CLARIFI- 
CATION 


GIS (Generalized Information System) uses 
OS/360 standard Data Management facilities. 

For user file processing, these facilities include, 
BSAM, QSAM, BISAM, and QISAM. Therefore, 
any file created by GIS can be processed using 
programs based on any other OS/360 language 

so long as the other language can properly 
access the internal structure of the file. This 
represents a rather trivial inter-dependence 

in most standard data processing applications. 
There are, however, some possible pitfalls. 

It is possible to create a GIS file which is 
hierarchically structured with nested sets of 
repeating data. Not all of the multiple levels 

of "occurs on'! dependencies. GIS files are, 
however, designed and created by the user 
using the GIS Data Description Language. 
user, not GIS, determines the hierarchical 
structure of GIS files. It is his responsibility 
to determine whether or not his file organiza- 
tion can be processed by another OS/360 
language. 


The 


If files are created by OS/360 languages other 
than GIS, and if the files can be described to 
GIS via the Data Description Language, then 
GIS can process and/or maintain these files. 
If the other languages, in creating the files, 
inserted slack bytes or if the other languages 
required slack bytes in processing the files 
created by GIS, then the user is totally respon- 
sible for describing the presence of or the 
requirement for these slack bytes to GIS via 
the DDT. These slack bytes are required for 


boundary alignment in other GIS than languages. 
A specific example is inappropriate since it 
would be dependent on the file organization 
required by the other language and the appli- 
cation being processed. 


DOS/360 RELEASE 16 QTAM PUTTING 1033 
IN TEXT MODE 


The user must supply circle D in front of his 
printable data to put the 1033 printer in text 
mode to print. He must also insert 3 blank or 
unprintable characters between each printable 
character. This can be done by using Pause 
statements, or by insertions in the processing 
program. 
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DOS/3690 COBOL RECOMMENDATIONS 


The following recommendations are intended 

to provide a concise reference to assist in 
achieving efficient DOS/360 COBOL compile and 
object run times: 


1. Open all files with one open statement and 
close all files with one close statement if 
possible. 


2. Have only one read instruction per Input 
file and only one write instruction per Out- 
put file; e.g., 19 write after advancing 
statements, will generate 280 instructions. 


3. Make recording F or U records a multiple 
of 8 bytes. Make recording V records an 
odd multiple of 4 bytes. 


4. Write after advancing cannot be used on 
blocked utility files. 


5. Initializing a record in the file section, e.g., 
move spaces, will not initialize subsequent 
records in the buffers. 


6. ''Read into'' and write from' - see MOVE. 
NUMERIC FIELDS 


7. “Zoned decimal fields on which no arithmetic 
will be done, should be picture ''X" even 
when they contain only numerics. 


8. Fields on which arithmetic will be done, 
should be Packed or Binary whenever possible, 
i,.e., except unit record files. Therefore, 
convert fields of present data files requiring 
arithmetic to Packed or Binary. 


9. Avoid mixed modes when possible. Move 
arithmetic display fields to working storage 
fields defined as Packed or Binary to avoid 
multiple conversion. 


10. Study the decimal requirements of your pres- 
ent files, and then align the decimals of 
related fields on the converted data file. 

NUMERIC LITERALS 
11. Write numeric literals with the same number 


of decimal positions as the receiving field. 


oe ees cE 
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ZONE STRIPPING 
12. Use a sign on numeric literals unless a 


hexidecimal F is required. The "'S' on the 26. To strip zones except lower order: 
receiving picture in a move statement, will 
not produce a hexidecimal C. Move from Unpacked to Packed 


Move back Packed to Unpacked 
PACKED DECIMAL 


CONDITIONAL BRANCHING 
13. In general, most commercial applications 


are safer with numeric fields in Packed 27. Different size fields require extra core in 
format. IF statements. 
14. Fields which have decimal positions should 28. "Go to depending on" is better than several 
be packed. IF statements. If the code values are 
irregularly spaced in the collating sequence, 
15. Fields that require print editing will save a Binary Table search of a code table to 
core if they are defined as Packed. obtain the value for the ''go to depending on'' 
parameter is still better than many IF state- 
16. Use Packed fields when the number of digits ments. 
exceeds 9 positions. 
MOVE 
17. If Packed is used, the picture should begin pe 
with 'S" and the field length should be an 29. Move short literal i.e., less than 5 charact- 
odd number. ers, better than move figurative constant 


BINARY or move all. 


18. Subscripts and ''depending on"! field of to 
go depending on and "occurs depending on" 
should be Binary. 


30. Different size fields require extra core in 
move statements. 


& 31. Avoid move more than 256 bytes at a time 
19. If Binary is used, the picture must begin ec 


with ''S' and the field length should be 4, unless a very large area is involved. 


9 or 18 with no decimal positions. 32. Avoid ''read into" and "write from'' if record 


FLOATING POINT exceeds 256 bytes unless very large record. 
20. Avoid floating point except for purely 33. Move group, including ''read into"! and "write 
Berar rie applications. from", containing "occurs depending on'! 
is controlled by the ''depending on'' parameter 
EDITING of the receiving field. 


21. Do not ask for total zero suppression if not 34. Move of a Packed field to an'"X" field will 
required. not Unpack. 


22. Floating edit symbols better than fixed. 35. Move of a Binary field to an "X"' field will 
not convert and Unpack. 


23. If the last character of a picture is a period 


or comma, a period or comma must follow. PERFORM AND ALTER 
SUBSCRIPTING 36. If possible, use alter and go to statements, 
Sores sete ee ey rather than perform, when minimum code 
24. Subscripts with literals when possible. is required. 


Resolved at compile time. 
| 37. An alter of coding other than a "go to" will 
25. Minimize subscripting. not diagnose at compile time. 


& GENERAL 


38. Keep statements simple. 
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39. If core is very restricted, remove all coding 
which causes include statements in the 
link edit listing, e.g., accept display exhibit 
stop literal. 


40. If still over core, use overlays which are 
very easily set up - see C24-5025. 


DOS/360 COBOL DYNAMIC CORE DUMP 
SUBROUTINE 


The following is a field contribution which has 
not been submitted to any formal IBM test. 
Potential users should evaluate its usefulness 
in their own environment prior to implemen- 
tation. 


It is sometimes useful to know the status of 
certain core areas during the debugging stage of 
a program. ''SNAPSHOT" is a subroutine which 
can be link-edited with a COBOL program to 
provide a partial core dump during main pro- 
gram execution. The main COBOL program 
calls the subroutine which, in turn, utilizes 

the PDUMP Assembler macro to dump core 
between any limits desired. Control is then 
returned to the COBOL program. SNAPSHOT, 
shown in Exhibit 1, may be called at any point 
in the COBOL program, and the limits of the 
dump can be altered under program control. 
Other points to note are: 


1. SNAPSHOT uses General Registers 0-3 
and so the contents of these registers as 
printed will differ from their contents 
during COBOL execution. 


23 If SNAPSHOT is catalogued to the Relo- 
catable Library, the Autolink feature of 
the Linkage Editor will include the SNAP- 
SHOT module without the need for an 
INCLUDE statement. 


Data Division working storage entries for the 
dump limits can be made as follows: 


01 LIMITS USAGE IS COMPUTATIONAL. 
02 LOWER PICTURE S$99999. 
02 UPPER PICTURE S99999. 


The use of the 01 level group entry assures full- 
word boundary alignment for the values of LOW- 
ER AND UPPER, The USAGE must be COM- 
PUTATIONAL and the VALUE clause may be 
used if fixed limits are desired. Note that the 
limits must be specified in decimal rather than 


4 
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hexadecimal, i.e., a dump between core lo- 
cations X'2000' and X'200C' would require that 
LOWER be assigned a value of 8000 and UPPER 
8012. 


Procedure Division entries needed to call SNAP- 
SHOT are: 


ENTER LINKAGE, 
CALL 'SNAPSHOT' USING LOWER, UPPER. 
ENTER COBOL. 


1130 COMMERCIAL SUBROUTINE PACKAGE- 
PROGRAMMERS REFERENCE CARD 


The new SRL manual for Version 3 of CSP con- 
tains an extremely useful item which should not 
be overlooked -- a programmers reference 
"card''. However, since it is not mentioned 
anywhere in the body of the manual, it may go 
unnoticed. 


This "card", printed on both sides of a standard 
8 1/2 X 11 manual page, contains the calling 
sequences for all the CSP routines, with com- 
ments on their use; the decimal equivalents of 
the various EBCDIC characters; SKIP codes 

for the 1132 and 1403; and several other often- 
used tables of parameters. 


Each copy of H20-0241-3, the CSP Program 
Reference Manual, contains two copies of the 
reference ''card'' -- one is on pages 195 and 196, 
the other (an unnumbered page) immediately 
following it. The second one is designed to be 
removed from the manual. 


CORRECTIONS TO SRL FORM NUMBERS 


Installation Newsletter 68-13 contained two 
articles referencing obsoleted form numbers. 


1. 'DOS/360 PL/I Coding Efficiency Reference 
List": (C28-6594-2 has been obsoleted by 
(C28-6594-3). 


2. 'S/360-20 DPS Use of DITFEN Ovlay": 
(C24-9007-3) has two TNLs to it, TNL- 
N33-9037, TNL N33-9030. 
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DOS/360 COBOL DYNAMIC CORE DUMP SUBROUTINE 

© STMT SOURCE STATEMENT 00S CL2-5 04/21/08 
L SNAPSHOT START O SNAPOOS 
2 BEGIN BALR 15,0 | SNAPOLO 
3 USING *_,15 SNAP OLS 
4, ENTRY SNAPSHOT ENTRY POENT FOR CALLING PROGRAM SNAPO20 
5 SAVE (145123 SAVE CONTENTS DF COBOL REGISTERS SNAPO25 
64% Z60N-CL-453 SAVE CHANGE LEVEL 2-0 
T+ STM 149129124+4%(1442-(14¢2)/16%16)(13) 
8 LM 253,0(L). LGAD ADDRESSES OF LIMITS INTO R2 AND R3 SNAPO30 
9 i 220(2) LOAD LOWER LIMIT INTO R2 SNAPOSS 
10 L 3,03) LOAD UPPER. LIMIT INTO &3 SNAPOSD 
tt POUMP (23,143) OUMP CORE BETWEEN UPPER AND LOWER LIMITSSNAPOG&S 
12+* 360N-CL-453 PDUMP CHANGE LEVEL 2-06 
13+ CNOP Ds% 
144 ST 2e*+16 
L5¢ 7 3,%*t16 
H+ LA 1,=CLS*$$BPDUMP® 
LT+ BAL Oy *+12 
18+ DC Ai2) ADBRESS 1 
19+ DC A(3) ADDRESS 2 
20+ Svc 2 
2k RETURN (14,12) RESTGRE CONTENTS GF COBOL REGISTERS SNAP OSG 
22+%* 360N-CL-453 RETURN CRANGE LEVEL 2-0 
23+ iM 14.129 2244%(1442-(1442)/16*16)(13) 
24+ BR 14 . 
25 END BEGIN SNAPOS5 
26 =CL8*S$BPOUMPS® 


DOS/360 COBOL DYNAMIC CORE DUMP SUBROUTINE 


LINE NOe SEQ. NO. SGURCE STATEMENT CBD CL2~-5 04/21/68 
1 IDENTIFICATION DIVISION. 
2 PROGRAM-ID. "TESTSNAP®*. 
3 ENVIRONMENT DIVISION. 
be CONFIGURATION SECTION. 
5 SGURCE-CCOMPUTER. IBM-360 E30. 
6 OBJECT-COMPUTER. I8N-360 E30. 
7 DATA DIVISION. 
6 WGRKING-STORAGE SECTIGN. ; 
9 Ol LIMITS USAGE IS COMPUTATIONAL. 
10 02 LOWER PICTURE $99999 VALUE 8192. 
it O2 UPPER PICTURE $99999 VALUE 9768. 
12 Ol TESTLEYT PICTURE X(10) VALUE *TOM STRONG*. 
13 PROCEDURE DIVISION. 
14 STERT. 
15 ENTER LINKAGE. 
1é CALL 'SNAPSHOT*® USING LOWER, UPPER. 
17 ENTER CG8CL. 
iS STCP RUN. 
Exhibit 1 
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NEW TYPE Ill PROGRAMS 


The following are the abstracts of programs which have been recently made available 
from the Type II library. 


The program, along with its complete abstract, will be incorporated in subsequent 
issues of the Catalog of Programs. 


Programs may be obtained by submitting a properly completed "General Program 
Request Card" (Form Number 120-1145-1) to the Program Information Department, 
40 Saw Mill River Road, Hawthorne, New York, 10532. 


These programs and their related documentation are distributed by IBM in the 
author's original form and have not been subjected to any formal testing. 


Any discussions of Type III programs with customers must 
emphasize the following points: 


Ie Type III (IBM employee-contributed) programs are 
provided by the IBM Corporation as part of its service 
to customers. 


2. Type III programs have not been subjected to any formal ' 
test. © 
3; Recipients of Type III programs are expected to make 


the final evaluation as to the usefulness of the programs 
in their own environment, 


4, There is no committed maintenance for Type III programs. 
However, any changes the author chooses to make will be 
announced in subsequent issues of the Catalog of Programs. 


oF IBM makes no warranty, expressed or implied, as to the 
documentation, function, or performance of Type III 
programs. 
wien: REVISION ----- eee ee eT ES... 


A PROGRAM FOR EMPTY FREIGHT CAR 


ALLOCATION. 1401 SIMULATOR FOR OS/360. This program 


allows the execution of 1401 programs ona 
SYSTEM/360 Model 30-75, under control of 

the Operating System, PCP, MFT, or MVT. 

No special hardware is required. 1401 features 
supported are advanced programming, sense 
switches, tapes, multiply, divide, 16K core, 
and all standard instructions except Select 
Stacker. Operator control is through the 1052 
and includes tape and sense switch assignment, 
load from cards or tape, display and alter core, 
start reset, start, clear core, write tape mark, 
and rewind. The program is written in OS/360 
Assembler Language. The minimum require- 
ments are the same as for OS/360 and must 


Program deck has been resequenced. No other 
changes. 


Ordering Procedure: Order File Number 
360D-29. 4. 002. 


The program material can be obtained in card 
form or on one 9 track or 7 track (Data Con- 
version feature required) Distribution Tape 
Reel (DTR). If not specified, a 9 track DTR 
will be provided. No tape submittal is required. 
The DTR will be provided by the Library. 
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include I/O devices used for simulation. If 
tape simulation is desired, tape drives must 
also be available. The simulator program 
requires approximately 70, 000 bytes of core. 
Ordering Procedure: Order File Number 
360D-11.1.019. 


The program material can be obtained on one 9 
track or 7 track (Data Conversion feature 
required) Distribution Tape Reel (DTR). If 
not specified, a 9 track DTR will be provided. 
No tape submittal is required. The DTR will 
be provided by the Library. 


DOS PROOF OF DEPOSIT TRANSIT. This 

set of programs is an expanded version of the 
S/360 Proof of Deposit Transit programs 
number 360D-19. 7.002. It will operate ina 
multiprogramming environment with one reader/ 
sorter, one printer and one disk per partition 
(maximum of 3 partitions under current version 
of DOS). It features: multibank capabilitity 
with float analysis by account and bank, full 
page approach, non-stop reader/sorter proces- 
sing with divider slips for triggering bundle totals, 
Pass to Pass control, Destination Headers for 
efficient sorting of high number of endpoints, 
DDA transaction capturing selective by bank 
with deposit analysis, automatic cash letters 
and selective multiple copy recaps, endpoint 
analysis, sort pattern generator and all file 
create programs needed for operation. 


Minimum configuration is a S/360 32K Mod 25 
decimal feature, one selector channel, 1419, 
1403, 2-2311's, 2540 (2450 not used during 
transit operation) and 1052 console. The 
source language is Basic Assembler under DOS. 
Ordering Procedure: Order File Number 
360D-19. 7. 008. 


The program material can be obtained on one 
9 track or 7 track (Data Conversion feature 
required) Distribution Tape Reel (DTR). If 
not specified, a 9 track DTR will be provided. 
No tape submittal is required. The DTR will 
be provided by the Library. 
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1092/93 KEYMAT DECODING WITH MEDICAL 
INFORMATION SYSTEM PROGRAMS. This 
program provides a means for decoding a key- 
mat for 1092/93 programmed keyboard for a 
MISP (Medical Information System Programs) 
installation. The 1092/93 Keymat Decoding 
Table Load Utility, DEPZMUDC, loads a for- 
matted 2311 data set from cards containing 
information associated with a specific button for 
a given keymat. The macro, MISLDCAN, enables 
a user to obtain this interpretative information 
using column and button numbers as search 
parameters. 


Both the Utility and the Macro are written in 
System /360 DOS Assembler Language. 


The programs may also be used with TESTMISP 
(360D-04. 4. 007). 
Ordering Procedure: Order File Number 
360D-06. 4. 002. 


The program material can be obtained in card 
form or on one 9 track or 7 track (Data Conver- 
sion feature required) Distribution Tape Reel 
(DTR). If not specified, a 9 track DTR will be 
provided. No tape submittal is required. The 
DTR will be provided by the Library. 


DOS/MICR SIMULATOR, This program is a. 
package of macro definitions and a relocatable 
module which will simulate for the user's pro- 
gram as many as three MICR reader/sorters. 
Functions normally performed by the DTFMR, 
DTFMR I/O macros, and DTFMR logic module 
are assumed by the simulator. Instead the user 
incorporates into his program the simulator'ts 
I/O Module and special macros which are 
functionally identical to those provided by the 
DOS system. Consequently, when the user no 
longer needs simulation services, his MICR 
program can be reassembled with the standard 
macros for software support. Simulated MICR 
input to the program is from a card reader and/ 
or aS many as two magnetic tape units. 


The simulator and its macro definition are 

coded in DOS/360 Assembler Language. Object 
machine requirements are the same as those 

for the DOS System to be simulated with the 
exception that a card reader or tape unit replaces 
each 1419 to be simulated. It is not required 
that the user's DOS Supervisor have the MICR 
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option. 


Ordering Procedure: Order File Number 
360D-11. 2.002. 


The program material can be obtained in card 
form or on one 9 track or 7 track (Data Conver- 
sion feature required) Distribution Tape Reel 
(DTR). If not specified, a 9 track DTR will be 
provided. No tape submittal is required. The 
DTR will be provided by the Library. 


CONVERTING A NUMBER TO ITS WORD 
EQUIVALENT ROUTINE (CANTIWE). This is 
a routine that allows the user to ''write out" any 
number up to seven digits (including two decimal 
places) in its equivalent word representation. 
For example, the amount $1125. 32 would be 
printed, 'ONE THOUSAND ONE HUNDRED 
TWENTY FIVE AND 32/100 DOLLARS. This 
routine can be very useful when printing Pay- 
roll Checks, Accounts Payable Checks, or any 
commercial application that involves amounts 
to be printed. 


The routine is written in RPG and can be insertec 
into any RPG program for any S/360 operating 
system with minimum core capacity of 8K. 


Ordering Procedure: Order File Number 
360D-06. 5. 004. 


The program material can be obtained incard 
form or on one 9 track or 7 track (Data Conver- 
sion feature required) Distribution Tape Reel 
(DTR). If not specified, a 9 track DTR will be 
provided. No tape submittal is required. The 
DTR will be provided by the Library. 
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TOTAL OPERATOR ORIENTED BICAR 
APPLICATION, This 1130 package consists 

of generalized programs for billing, inventory 
control, accounts receivable and sales analysis 
using the 4K-1130 Computing System. The 
application is designed to be operator oriented 
using the 1130 paper tape-disk system. The 
creation of invoices, the updating of inventory 
receipts, and the applying of cash to the accounts 
receivable is accomplished by the operator 
entering the necessary information from the 
console keyboard. Asa result of these oper- 
ations all records are updated and all other 
reports can be automatically produced on the 
console printer. Some of the reports included in 
in this package are a below minimum, stock 
status, sales analysis by item, by customer, 

by salesman, and by product class, aged trial 
balance and aged statements. The system is 


designed to utilize the console switches to 


tailor the system to a particular customer. 

All major programs are written in FORTRAN 
for easy modification. Estimated volumes are 
2,000 customers, 6,400 inventory items, 750 
invoice lines/day, and 8,000 open accounts 
receivable records. 


Ordering Procedure: Order File Number 
1130-28. 2.001. 


Distribution will be in card form only. 


t 
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SELECTED SHORT SUBJECTS 


The purpose of Selected Short Subjects is to 
bring together and highlight concise, factual 
and timely information which will indicate 
that action is to be taken by the IBM repre- 
sentative whose accounts are affected. 


1, OS/360 COBOL E USE OF OCCURS AND 
REDEFINES 7 


There is an article in this issue of the 
Newsletter titled ''DOS/360 COBOL Use of 
OCCURS and REDEFINES" which also 
applies to OS/360 COBOL E., 


2. 2740/41 Print Quality Considerations 


If you have a 2740/41 on order or 
installed you should read the article with 
the above title in this igsue of the 
Newsletter. 


OS/360 - PLCS TO REDUCE HARD WAIT STATES 


Installation Newsletter 68-10 contained, on page 
6, an article on the above subject. The follow- 
ing information presents the current status on 
PLG's to reduce hard wait states and is an 
extension of the article in 68-10. Issue 68-10 
used the term PTF. This article uses the term 
PLC (Program Logic Change). The difference 
is that PTFs are correlated to APAR numbers 
while PLC's are not necessarily so correlated. 
Hence, PLCs can not always be associated with 
a particular APAR. However, PLCs are 
ordered by a '' PTF" number. 


There are now Program Logic Changes (PLC's) 
available to address the problem of system wait 
states in OS/360. The PLC's are designed to 
maximize software system availability through 
the implementation of a "fail soft'' technique. 

The PLC's increase system availability by 
reducing the impact of system wait states, e.g.,. 
F03 wait states, on system operation. The 
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increase in system availability is achieved by: 


1. Isolating the ABENDing region (MVT) or 
partition {MFT) when a system wait state 
would have occurred, and 


2. Allowing the other regions and partitions to 
continue processing. | 


The net result is a fail soft effect accompanied 
by the unavailability of certain system resources. 
The ABENDing region or partition remains in 
the same state as existed when the ABEND 
occurred, thereby permitting the problem to be 
analyzed when a stand-alone core dump can be 
taken. The computer operator is informed of the 
system's damaged state by a message on the 
console typewriter indicating the ABENDing task 
name Gr partition identification and the wait 
state code that would have occurred. 


These PLC's have been tested in a number of 
customer environments and have proven to 
substantially reduce the number of re-IPL's, 
as well as allowing the user in most cases to 
re-IPL at his convenience. 


Exhibit 1 contains a chart of applicability of the 
fail soft PLC's. The correct PLC can be 
determined from the chart. Use the number 
indicated as a PTF number and order by normal 
PTF procedures. 


NOTE: PTF 12205 will bypass the current job if 
the ABEND occurs in the scheduler and refresh 
the scheduler to continue reading the input 
stream. 


OS/360 PCP/MFT-II/MVT JOB STREAM 
CONSIDERATIONS - CORRECTION 


Installation Newsletter 68-11 contained an ar- 
ticle on the above subject. The following is 
a correction to item #11, page 9, Multiple 
OPEN's for Sysin or Sysout. 


The information regarding handling of Sysout 
Data sets is incorrect and should be replaced 
by the following. 


Sysout data sets are opened with an assumed 
disposition of MOD. Each time a Sysout data 
set is opened, writing will begin from the end 
of the last record written. All data written to 
a Sysout data set, regardless of the times 
closed and opened, will be processed by the 
Output Writer. 
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OS/360- PLCS TO REDUCE HARD WAIT STATES 


Option - 
OS/Release EMFT 
13 11943-13 
14 11943-13 
15 | “s 


"FAIL SOFT" 


PTF APPLICABILITY 


MFT I MFT I MVT 


11943-13, 12205-13 - 


12721-14 


11943-13, 12205-14 - 


ss 11943-15 12721-14 


Exhibit 1 


OS/STRAM READ/WRITE MACRO RECOMMEN- 5, Conversion to BTAM/BSC will be facilitated. 


DATION This is an important factor since STR term- 
inal equipment is being displaced by Binary 
OS/STRAM provides two levels of macro Synchronous equipment. 


instructions for transmitting data to and from 
STR terminals -~ the basic macro level (READ/ 


WRITE) and the queued level (GET/PUT). The DOS/360 MULTI- PROGRAMMING - REDUCING 
READ/WRITE level is recommended for new/ 1952 CONTENTION 


rewritten programs for the following reasons: 


The following is a field contribution which 


1. Considerable less core storage (approximately hae nee been Submitted t6 any formal IBM 
2.0 to 2. 5K) is required for STRAM; this test. Its usefulness in the user's own environ- 
storage can be used by the problem program. ment should be evaluated prior to implemen- 


tation. Nomaintenance can be expected. 


2. By using OS/360 Buffer Management at the 


READ/WRITE level, buffer storage require- At times it is necessary for the problem pro- 
ments are reduced and user buffer- -manage-~ gram to request an operator action or Heciaion 
ment programming requirements are simpli- before continuing to process. The console 

fied significantly. (For example, the queued typewriter is an ideal means of Sechaneiae thé: 
level imposes a user requirement to retrieve required information. This caubes Srebleee 
data in all buffers that have been filled but not = o¢ contention for the console which es 

yet written when an1/O error occurs while critical in a multi-programming environment. 
writing a prior buffer.) At most installations, Using the following technique, the console will 
double buffering at the READ/WRITE level | not be tied up with a pending read while the 
will provide line utilization equivalent to operator performs the requested action or 


the GET/ PUT level. 


3. Less CPU time is required to process a 


message. 


4. Maintenance problems are reduced because 
the user program does not have to operate 
in conjunction with the complex Ring Channel 
program required by the queued level. 


decision. The operator enters his answer 
upon completing his action and the console has 
been free in the meantime. The following 
‘numbered items correspond to the circled 
numbers in Exhibit 1. 


1. At beginning of program use STXIT to set 
operator communications exit. 
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2. After output of desired message branch to 
operator wait routine. 


3. Operator wait routine (OPWAIT) issues a 
wait which is not satisfied. 


4. When operator interrupts control passes to 
operator communication routine (OPCOM). 
Routine requests operator to ''Enter 
Response" previously asked for and executes 
a NOP to satisfy wait issued in (3). Control 
then returns to supervisor. 


5. CCB with a NOP CCW for console (SYSLOG) 
and save area for supervisor useage. 


DOS/360 QTAM AUTOPOLL AND CPU UTILI- 
ZATION 


Newsletter issue 68-14 contained on page 5, an 
article on the above subject. The following 
replaces that article in its entirety. 


Autopoll feature considerably reduces the 


amount of CPU time used in polling leased lines. 


However, the CPU does not go into the WAIT 
state turning off the CPU METER. If the users 
polling list is sufficiently long, and he is neg- 
ative polling, he will go into the WAIT state 
when QTAM is just polling. At the end of the 
poll list he will go out of the WAIT state to re- 
start the polling list. Repeating polling entries 
and thus, creating a long polling list will save 
CPU time when one is doing only negative 
polling. 
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DOS/360 MULTI- PROGRAMMING-REDUCING 2740/41 PRINT’ QUALITY CONSIDERATIONS 
1652 CONTENTION 
Our 2740/41 customers are concerned not only 


with the entry, storage, retrieval and updating 
of information, but also with the quality of the 
final printout. Much of the success of the IBM 
Selectric office typewriter is due to its 
ability to produce sharp, clear copy and many 
customers may expect the same results on the 
2740/41. 


It should be clearly understood, however, — 
that the 2740/41 is not just like a typewriter. 

It was designed to be a communications termi- 
nal and certain features that assure high quality 
printing on a typewriter are not the same on 
the 2740/41. For example, it does not use the 
dual impression mechanism for impression 
control. This mechanism is used to provide the 
space function. Because of these mechanical 
differences, it is not realistic to expect Field 
Engineering to be able to raise the impression 
quality to the level designed into the IBM Selec- 
tric office typewriter. 


To obtain the best possible print quality on the 
2740/41 the following should be considered: 


1. Use a good quality, rag content paper, 
minimum #20. 


2. Keep the element clean. Certain characters 
tend to fill up with dried ink and dust. This 
prevents sharp character definition. 


3. Use a fresh ribbon. No typewriter can 
produce better quality than the quality of the 
ribbon and paper. Fabric ribbons tend to 
deteriorate more rapidly than others and 
should be changed as they do so. A darker 
ribbon than usual (no erasure smudge) and 
the IBM #60 Superior Write ribbon will 
provide darker print. 


4. Photo-offset and multilith mat work quality 
are highly dependent upon uniform impres 
Sion impact. This cannot be maintained on 

tie aaa ie ‘ the 2740/41 at the ar quality as it 

cae ot is on the IBM Selectric office typewriter. 
3 ees ++ ee If multilith mats must be used, keep the 
ee - : following in mind: 


Operation 


a. The customer must be cautioned 


not to expect the same WB 
available on IBM Selectric 
office typewriters. 
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b. Do not have the impression 
control on 5. A light impression 
may suffice as long the impres- 
sion is affixed to the mat (with 
a greasy ink, such as the All 
Purpose Nylon ribbon or Plate 
Writing ribbon). The higher 
setting aggravates the embossing 
of small, sharp characters. This 
can be counteracted to some 
extent by moving the multiple 
copy control lever one or two 
notches back. | 


Under no condition should Vellum or parch- 
ment paper be used. 


. Wax stencils also require extremely critical 


impression control and are not recommended, 
although the level of quality desired with © 
stencils is usually not high. The same 
applies to Ditto masters. 


. A carbon ribbon is used to enhance print 


quality on the IBM Selectric office type- 
writer. A carbon ribbon mechanism is not 
available on the 2740/41, pending availability 
of an RPQ which has been submitted. RPQ 
information is obtainable through your 
Regional Special Equipment Engineering 
Department. | 


IBM 2740 BASIC TERMINAL DESIGN 
CONSIDERATIONS 


When considering the use of IBM 2740 basic 
terminals (with or without the Record Checking 
feature), be aware of the following limitations: 


1, 


Under DOS and OS/BTAM support, there is 
a possibility of unsent messages if the appli- 
cation requires the sending of unsolicited 
messages to a terminal which has a READ 
INITIAL operation outstanding. A RESETPL 
is not valid for this operation due to a PRE- 
PARE command active to the channel. 
Therefore, a WRITE operation can only be 
issued if a READ is not pending. 


. SECOM entry 360S-cq-519-030 contains the 


following regarding QTAM support: 

2740 basic or checking-only (2740 types 1 

& 6) connected to a leased-line facility is 
supported in a manner similar to that pro- 
vided for a switched line. Since the terminal 
is non-selectable by the CPU (via polling or 
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addressing), output is deferred until the 


remote station has initiated transmission by 
sending a message to the CPU. 


TELEPROCESSING PLANNING 


The following outline is reprinted from a 


Chicago SD & I Center Newsletter. 


It was 


developed as a basic guide to the steps necessary 
for the design and implementation of a Tele- 
processing system. 


*Step One 


1. 


Decide whether the application should be 
on-line and if so, if it must be "real-time", 


a. Is inquiry a part of the application? 

b. What is the response time requirement? 

c. Can the customer justify the on-line hard- 
ware cost? 

d. Is the programming staff adequate for the 
job? 

e. Must the on-line system process data in 
"real -time''? Can it collect input, 
batch process and distribute reports? 


. Select the right terminal or terminals. 


a. Determine volumes, both normal and peak. 

b. Plan for expansion - both normal expansion 
and that generated by the availability of 
on-line data. 

c. Determine I/O device requirements- 
keyboard, printer, card reader, etc. 

d. Consider the impact of terminal speed 
on communication line costs. 

e. For data entry systems use the Data 
Entry Marketing Guide 220-0841. 


. Decide on the way in which ‘the CPU will be 


used. 


a. Dedicated to Teleprocessing for high 
volume applications with large proces- 
sing requirements. 

b. Dedicated to Teleprocessing where program 
support requires it. 

c. Multiprogrammed for best use of the CPU. 

d. A two computer, front end/back end, 
System should receive the following 
considerations: 


1. Hardware cost. 
2. Program support for the 


front end/back end system. 
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3. Reliability requirements. 2. Make arrangements with another user 
4. Back-up. with a similar configuration for use 
| of his system for batch processing 
4. Plan early for backup hardware and procedures of input/output. _ 


3. Provide program facilities for card 
input to replace terminal input and 
printed output to replace terminal 


a. Provide for use of nearby terminal as 
alternate, or provide other means of 


getting data to and from remote 


location. output. | 
; ; 4, Using a remote CPU for backup may | 
b. Provide line backup if possible. be difficult because of: 


1. In dial systems backup is easy. 

2. Leased lines can be backed up by use 
of dial facilities, but costs of data 
sets, switching equipment 2701/2/3 


a. Lack of up-to-date master files. | 

b. Added costs of lines and line switch- 
ing equipment. 

c. Lack of experienced operators. 


adapters and core storage for added | d. Cost of 2701/2/3 stand-by at remote 
program functions can be signifi- CPU 
cant. | a | 


5. Difficulties in updating local files to agree 
with transactions processed at remote 
back-up CPU. 


3. Cost of duplicate leased lines may 
eliminate this as a possibility. 


c. Back-up 2701/2/3 for very high avail- 5. Select an operating system. Although many 
ability systems. non-Teleprocessing factors affect an oper- 
ating system selection, some Teleproces- 
d. Back-up DASD devices as needed. Sing considerations are: 
a. BPS or BOS for support of a minimum 
1. A second 2841 with 2311 switching will storage CPU as a remote terminal. 
provide backup in a 2311 environ- b. DOS for low core storage requirements 
ment. and ease of installation and operation. 
2. A 2844 provides effective 2314 controj c. OS for added functions and facilities such 
unit backup. as RJE, multitasking, DASD manage- 
3. Switching 2311s or 2314s from an off- ment, cataloged data sets, etc. 
line system can be done with 8100 
series features. 6. Select the right Teleprocessing programming 


support. Highlights of this support are: 
e. Plan to use a second CPU for backup if 


there is one in the installation. a. CCAP for minimum cost, single purpose 
teletype message switching systems. 
1. If core on backup CPU is smaller, b. BTAM for low entry Teleprocessing sys- 
consider this in program design. tems and for support of high speed term- 
2. If CPU performance is less, plan for inals. 
handling of priority transactions c. STRAM for support of STR terminals. 
only. d. QTAM for complex systems using low 
3. Provide for switching of 2701/2/3 speed terminals. 
and DASD devices. e. Industry oriented packages when appli- 
f. If a second CPU is not already installed, cable - SHAS, ALIS, ATS, etc. 


f. Type III programs where Type lor Type Il 


consider how to cost-justify a stand-by CPU. : 
| support is not available. 


1. Consider a terminal or terminals as 

| CPU backup to send and receive 7 
priority input/output; or plan for 
moving input/output data in some 


Use the available design tools. 
a. CNDP for communication network design. 


other way. b. TPAD for hardware configuration and for 
file organization and layout. 
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c. CSS for performance evaluation through 
modelling. 
d. Performance evaluation literature such as: 


1. Terminal timings in SRLs for 1050, 
2740, 2780, etc. 
2. BTAM timings in DOS performance 


3. QTAM performance reports at SD & I 
Centers. 

4. 2260 data entry performance data in 
Installation Newsletter. See the 
Newsletter KWIC Index in Issue 
68-11 under 2260. 


8. Select the best access methods. 


a. Index sequential for ease of use and for 

combined random-sequential capability. 
b. Direct access for fastest access to data. 
c. Combined techniques: 


1. Sequential with user created indices in 
core or on disk. 

2. Index sequential tag file pointing to 
direct access master records. 


d. Special, such as Bill of Material Processor 


organization. 


9. Develop recovery procedures along with the 
system. 


a. Build controls on transactions such as 
sequence numbers, batch totals and 
source terminal identification. 

b. Provide transaction logging where 

required. 

Provide for master file backup. 

Use available checkpoint/restart facilities 
(such as, those provided by QTAM) if 
applicable. | 

e. Provide special restart facilities as 
required to avoid duplicate file up- 
dating or loss of transactions. 

Provide messages to terminal operators 
to inform them of system status. 

g. Develop and publish well defined operating 
procedures for recovery - both at term- 
inals and at CPU. 

h. Plan to use terminal test facilities of 
BTAM/QTAM. 


Q 


= 


Ee 


10. Plan a step by step testing program 


a. Testing of processing program logic with 
dummy transactions. 

b. Simulating terminals with card input and 
printed output. 
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c. On site or datacenter testing with one or 
two locally installed terminals. 

d. Datacenter use of TEST for thorough 
testing, peak volume checkout and 
throughput determination. 


Steps One Through Ten 


Keep it simple. Wherever possible, 
choose the straightforward over the 
complex technique of program design, 
file design, recovery, testing, etc. 


REVISED TYPE III PROGRAM STANDARDS AND 
CONTRIBUTION FORM 


Revised Type III program standards have been 
distributed in Branch Office Manual Revision 
#068-201, dated August 8, 1968. 


A new Program Contribution Form is now avail- 
able from the IBM Distribution Center, 
Mechanicsburg, Pa. The new form has an order 
number of 120-1424-3. The unit of measure is 
01. 


The changes in the Type III Standards funda- 
mently deal with the use of the new Program 
Contribution Form; however, there are many 
other changes and clarifications to the standards 


and procedures for Type III program submissions. 


Programs received at PID and Initial Program 
Abstracts received at APS after September 

15, 1968 will be returned unless they use the 
new Program Contribution Form and follow the 
new Type III Standards. 


Questions regarding the new material may be 
addressed to Mr. Jack Schutty, Application 
Programming Standards Department, DPD HQ 
White Plains, Phone (914) 949-1900 Extension 
5520 or tie line 8-374-5520. 


SUBMITTING NEW TYPE III PROGRAM 


ABSTRACTS CORRECTION 


The article which appears under the above 
heading in issue number 68-14 of this newsletter 
erroneously indicated that the Type III Program 
Contribution Form was form number 120-1420. 
The correct order number for this form is 
120-1424. Please make thenecessary correc- 
tion on page 6, the second paragraph from the 
bottom of the page, of Installation Newsletter 
68-14. 
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INFORMATION ABOUT THE NEWSLETTER 


EVERY SALESMAN AND SYSTEMS ENGINEER 


SHOULD RECEIVE ONE COPY OF THE NEWS- 
LETTER, Each FE Branch Manager should 
receive five copies for distribution to Customer 
Engineers. 


The IBM Installation Newsletter is distributed 
only to IBM locations and is not available to 
customers. The Newsletter is separated into 
two parts. The first part contains information 
which is intended only for IBM personnel and 
the pages are labeled For IBM Internal Use 
Only. THESE PAGES, OR REPRODUCTIONS 
OF THEM, ARE NOT TO BE GIVEN TO 
CUSTOMERS. However, using your own good 
judgement, you may discuss pertinent informa- 
tion from these pages with a customer. The 
second part contains information which may 

be REPRODUCED by the Branch Office at their 
discretion and given to customers. These pages 
are not labeled with any restrictive classifica- 
tion. Note that when any abstracts for Type III 
programs are given to the customer, he must 
be informed that the disclaimer for Type III 
programs as contained in the Newsletter, ap- 
plies. YOUR COOPERATION IN PROPERLY 


HANDLING THE CONTENT OF THE IBM IN- 
STALLATION NEWSLETTER IS NECESSARY 
FOR ITS CONTINUED PUBLICATION, 


Changes to the quantity of the Newsletter ship~- 
ped are to be made by the Administration 
Manager. (NOTE THAT EXTRA COPIES OF 
THE NEWSLETTER ARE NOT TO BE ORDERED 
FOR DISTRIBUTION OF INFORMATION TO 
CUSTOMERS.) He should update and send the 
DP Administration Managers! Communication 
Control card (form number N44-780) to DP 


Document Control, DPD HQ. 


Direct inquiries concerning the contents of this 
Newsletter to: 


W. P. Gaffigan, Editor 

IBM Installation Newsletter 
Installation Planning-#713 

DPD HQ | 

112 East Post Road 

White Plains, New York 10601 
Telephone 914 WH9-1900 Extension 4781 
Tie Line 8-374-4781 
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NEW PUBLICATIONS ANNOUNCED BY PRL'S 


The weekly PRL's (Publications Release Let- 
ters) are used to insure that all Salesmen and 
Systems Engineers are aware of new or revised 
Marketing Publications. Normally, each issue 
of the Newsletter will contain information from 
two PRL's, one following the other. The in- 
formation will be placed in the Newsletter in 
its original form with no rearrangement of 
form numbers or titles. It is not intended to 
replace existing information and distribution 
sources. You should be certain that you are 
aware of these sources. 


NOTE: Marketing Publications are obtained from 


The IBM Distribution Center 
Mechanicsburg, Pa. 


The Publications Requisition, form 
number M02-0618-2, is used for 
ordering. 
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FORM _NO, 


N20=1853~-0 


270-0026-1 
270-0160-0 
504-7301-0 
520-1261-1 
543~0066-0 


570-0414—0 
570-0415~0 


A22-6889-2 
A24-3255-7 
C20-1690-0 
C26~3715=3 
H20-0368~1 
J20-0038=1.. 
1L22-6926-0 


N20~1096 
N21-0094 


N22-0306 
N28-0244 


N33-1519 
N33-1520 


R20-9011-3 
R26-9679-2 
R20-9083-2 
R20~9154<1 
R20-9234-0 
R29-0152-3 


V20-0164-0 
V20-0176-0 
V20-018i-0 
V20-01 84-0 
V20-4627-9 
V20-606 3-0 


X20-1772-0 
Y20-0213-0 
Y20-0217-0 
Y20-0222-1 
Y20-0223~1 
Y20-0224-0 
Y20-0225-0 


| Y¥26=3726-0 
Y26-8015-0 


14 


1968 


PRL #30 July 26, 1968 
REFERENCE SOURCES 


TITLE 


TNL to BAP = Distribution Industries ~ Re: H20-0522~0 


MARKETING PUBLICATIONS 


9951/56 Instruction Maintenance Manual 

9370 Service Index 

IBM's Relationship with Employment Agencies and Search Firms 
IBM S/ 360 for Scientists and Engineers 

Selectric Short Course Booklet 


Information Recorder Layout Form W/ Numbers 
Information Recorder Layout Form 


IBM S/ 360 Model 75 Functional Characteristics 

IBM S/ 360 Model 30 1401/ 1440/1460 Compatibility Feature 

IBM 1130 Computing System User's Guide 

IBM 1130/1800 Basic FORTRAN IV Language 

IBM S/ 360 Continuous System Modeling Program (360A-CX~16X) Operator's Manual 

CALIL/ 360: DATATEXT Operator Reference Manual 

IBM Airlines Reservation System Custom Feature Description 1977 Terminal Unit Model i-- 
RPQ 828027 

TNL for Advanced Life Information System Policy Master Record Code Book Re: H20-0483-0 
1231/1232 TNL Re: A21-9012-6 


TNL - Change to C22-6820-8 (1287 Models 3 & 4, 1288) 

IBM S/ 360 Disk and Tape Operating Systems: COBOL Language Specifications Re: C24= 
3433-4 to -3, N24-5188, N28-0232, N28-0237, to ~3 & -4, N28~0241 

IBM S/ 360 Model 20 Functional Characteristics Re: A26-5847-4 

IBM S/360 Model 20 Installation Manual - Physical Planning Re: A26-5896-5, -6 with -5, 
N26-0154, N26-0164 & N26-0180 with -5 & -6, N33-1500, N33-1502, N33-1503, N33-1508, 
N3321511, N33-1512 & N33-1515 

1401 DPS Executive Course _ 

407 Accounting Machine Operation and Wiring Programmed Instruction 

IBM 519 Document - Originating Machine Operation and Wiring Programmed Instruction 
IBM S/ 360 DOS Communications Coding ~- BTAM 

IBM S/ 360 Continuous System Modeling Program 

402-3 Operation & Wiring Notebook 


IBM 50 Magnetic Data Inscribed and IBM 2495 Tape Cartridge Reader (slides) 
IBM 2760 Optical Image Unit for the Insurance Industry (slides) 

IBM CALL/ 360: BASIC (slides) 

IBM 1288 Optical Page Reader (slides) 

"For Your Information” (movie) 

IBM CALI/360: BASIC (flipchart) 


IBM 402, 403, 407 and 419 Accounting Machine Instructions 

Student Scheduling System/ 360 The Scheduler Program (360A-US-07X) System Manual 
TNL Re: Y20-0161-0 Service for Consultants Update 

Insert (less Programming) 

Inserts (Programming only) 

IBM Managers Manual Binder, Index Tabs, and Corporate Inserts 

DP/FE/IR/OP Inserts Managers Manual 


IBM 1800 Muitiprogramming Executive Operating System PLM 


DM S/ 360 Disk and d Tape Operating System Assembler (D) Re:. Y26«3642=1 with Y26~-8003 & 
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DISPOSITION 


NEW 
NEW 
NEW 
Scrap 520-1261-0 
NEW 
NEW 
NEW 


Scrap A22-6889-1 
Scrap A24-3255-6 
-_NEW 

Scrap C26-3715=2 
Scrap H20-0368-0 
NEW 

NEW 


NEW 


NEW 


Scrap R20=9011-2 
Scrap R20-9079-1 _ 
Use R20-9083=i 
Use R20-9154-0 | 
NEW 

Scrap R29-0152=2 


Use X24~6296 & X24-6300-1 
NEW. 
NEW 
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OS/360 DATA RETRIEVAL FROM DASD - 
CLARIFICATION 


Installation Newsletter 68-06 contained an 
article, on page 4, on the above subject. The 
following should be inserted just before the 
discussion of the ''Other procedures that may 
improve performance are: page 4. 


'Caution: When creating a Fixed or Fixed 
Block data set, it is possible for the last 
record, if truncated, to be written on the 
same track as normal length records. If 
the data set is then processed using Fixed- 
Block-Standard, the last record becomes 
an extra record onatrack. The Access 
Method will not be looking for this record, 
and, therefore, the last record of the data 
set will be lost. To avoid this possibility, 
it is suggested that, instead of truncating 
the last record, it should be padded so that 
record uniformity may be maintained 
throughout the data set.'' 


OS/360 COBOL F ISAM FILE ERROR HAND- 
LING 


The following is a field contribution which has 
not been submitted to any formal IBM test. 

Potential users should evaluate its usefulness 
in their own environment prior to implemen - 
tation. No maintenance can be expected. As 


the author states, the subroutine has been used 
successfully under OS/360 Release 13. Release 


14 has since become available and Release 
15/16 announced with availability in August, 


1968. Changes to COBOL F in future releases 


may affect the use of this approach. 


When using OS/ 360 COBOL F to process ISAM 


files, two mutually exclusive options are 


available to the COBOL programmer for hand- 


ling errors. This subject is discussed in the 
COBOL F Programmer's Guide (C28-6380). 


This reference does not adequately discuss the 


the subject. Two problems involved in using 


the declarative option follow. First, COBOL 


does not pass the DECB address for a BISAM 
file, but the DCB address. The DECB hasa 
Hex Displacement of 100 past the DCB if the 
declarative section is used. Second, if the 
BISAM file is opened as an I-O file, a read 
statement which results in a record not found 


condition prevents a record from being added 
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to the file until a successful read has been 
made followed by a rewrite. After a read, 
COBOL stores the record address from the 
logical record field of the DECB ina BLI cell. 
It then loads the file's base register from this 
cell. Ona no-record-found ondition, this 
address consists of binary zeros. Therefore, 
no record can be constructed for this file. 


Exhibit 1 contains an example of a subroutine 
approach which serves two functions. It is 
called by the declaratives section for both 
BISAM and QISAM file error processing. The 
standard errors are determined and set a 
condition code for COBOL to test. In addition, 
if a no-record-found condition is determined 
for a BISAM file, it obtains core for the rec- 
ord and modifies COBOL's BLI cell and base 
register before returning to COBOL. 


This subroutine has been used successfully 
under OS/360 Release 13. 
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OS/360 COBOL F ISAM FILES ERROR HANDLING 


_*** THIS ROUTINE [S CALLED BY COBOL FROM THE DECLARATIVES SECTION TO ¥** 
— #%* PROCESS ERRORS CN ISAM FILFS. IT HAS TWO ENTRY POINTS, STGRE AND ** 


er ee a a ee ee 


Exhibit 1 


*ke ANALYSIS. THE CALL FROM THE COBOL PROGRAM MUST BE CODED AS SHOWN ** 
*** BELOW, DEPENCING ON THE MONE OF PROCESSING. * * 
* * 
* FCR QISAM FILES CNLY * 

USE AFTER ERROR ON FILE-NAME x 
ENTER LINKAGE * 
CALL aSICRE@ * 
ENTER COPGL * 
ENTER LINKAGE % 
CALL @ANALYSIS@ USING FILE-NAME, PARAMETERL * 
_ ENTER COROL * 
WHERE FILE-NAME IS THE NAME ON THE COBOL FO STATEMENT AND * 
PARAMETER] IS A 1 BYTE ALPHA-NUMERIC FIELD IN WORKING STORAGE * 
* 
FOR BISAM FILES ONLY ; * 
USE AFTER ERRCR ON FILE-NAME * 
: ENTER LINKAGE ® 
CALL @ANALYSIS@ USING READ-STMNT PARAMETER IL * 
ENTER COPROL * 
WHERE READ-STMNT IS THE NAME OF A PARAGRAPH IN WHICH THF FIRST  % 
STATEMEAT IS READ FILE-NAME. FILE-NAME IS THE BISAM FILE. % 
PARAMETERL IS THE SAME AS FOR QISAM FILES DISCUSSED ABOVE. * 
& 
CCOES RETURNEO TQ CCBCL IN PARAMETERIL ARE AS FOLLOWS x 
CCDE DESCRIPTION COBOL ACTION * 
l LOWER LIMIT ON SETL NOT FOUND CHECK KEY AND RETRY * 
2 SPACE NOT AVAILABLE CLOSE FILES, TERMINATE * 
3 INVALIO REQUEST CLOSE FILES, TERMINATE * 
4 UNCORRECTIBLE INPUT ERROR CLOSE FILES, TERMINATE — * 
5 UNCORRECTIBLE OUTPUT ERROR CLOSE FILES, TERMINATE * 
6 UNREACHABLE BLCCK CLOSE FILES, TERMINATE % 
7 OVERFLOk RECCRD AS REQUIRED BY COBOL LOGIC * 

3 SEQUENCE CHECK CHECK KEY, RETRY, ETC 
) DUPLICATE RECORTE AS REGUIRED BY COBOL LOGIC * 
A! NO RECORD FCUNC AS REQUIRED BY COBOL LOGIC ¥* 
B RLI CHECK INVALIN RLI, IF CORRECT ABEND * 
% C OCB CLCSED NO FILE OPERATIONS ALLOWED * 
* BLANK NO ERRCR INDICATORS SET SHOULD NOT OCCUR SAFETY + 
*** FOR BISAM FILES RESULTING IN CODES 24549596, AND €, THE DECB FOR *¥** 
xee THE FILF WILL GE CISPLAYEN ON THE CONSOLE. FOR QISAM FILES ks 

EX RESULTING IN CChES 34495969 AND Cy THE LOCATION OF THE STATUS *#* 
*x** BYTES, BUFFER AND DCH WILL BE DISPLAYEC ON THE CONSCLE. THESE ee 
**&e DISPLAYS USED IN CONJUNCTION WITH A DUMP WILL AIO IN DEBUGGING *** 

ISEG 7380 | 
STGRE START 0 
SAVE %14,120 STANDARD SAVE 
USING STCREL5 ESTABLISH ADCRESSIBILITY 
ST™ O,yl SAVE STORE SYNAD RETURN REGISTERS 
MVI SAVE ,Cawa 
BR 14 RETURN TO COBOL 
ANALYSIS SAVE 214,120 STANDARD SAVE 
USING ANALYSIS, 15 ESTABLISH ADDRESSIBILTILY 
L REG3,STGREADR POINT REG3 TO FIRST INSTRUCDIOUN 
USING STORE,3 ESTABLISH ADDRESSIBILITY 
DROP 15 DROP PREVIOUS BASE REGISTER 
ST REGL3,SAVEBLK+4 STORE HIGH SAVE IN SUBROUTINE 
MVC 824,13 0,ASAVEBLK STCRE SUBROUTINE SAVE IN HI SAVE 
LA REGL3,SAVEBLK POINT TO SUBROUTINE SAVE 


Issue No. 68-16 


-ANLYOOOC | 
ANLYOCOS 
ANL YOO10 
ANLYOOLS 
ANLYOO2C 
ANLYCO25 
ANL Y0030° 
ANLY0035 
ANLYOO4C 
ANLYC045 
ANL Y0050 
ANLYO055 
ANLYOO6C 
ANLY0065 
ANLYOO70 
ANLYOO75 
ANLYOO8O 
ANLYCC85 
ANL Y0090 


ANLYOO95S © 


ANLYOLOC 


ANLYOLOS 


ANLYOLLO 
ANLYOLL5 
ANLYO12G 
ANLYO125 
ANLYOL30 
ANLYOL35_ 


-ANLYOL4C 


ANLYO145 
ANLYO150 


ANLYOLSS 


ANLYO16C 
ANLYO165 


ANLYOLTO _ 


ANLYOL75 


ANLYOLB8O 


ANLYO185 
ANL YO 190 
ANLYO195 


ANLYO20C 


ANLYO2C5 
ANL YO 210 


ANLYO2L5 © 


ANLYO220 
ANLYO3CC 
ANL YO 305 
ANLYO31L0 
ANLYQ31L5 
ANL Y0 320 
ANL Y0325 
ANLYO336C 
ANLY0335 
ANL YO 340 
ANLY0345 
ANLYO350 
ANLY0O355 
ANL YO 360 
ANL Y0365 
ANLYO37C 
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SAVEBLK 

ASAVEBLK 
SAVE 
STOREADR 
REGC 
REGL 
REG2 
REG3 
REG4 
REGS 
REG6 
REGT 
REG8 
REG9 
REG1O 
REGILI1 
REG12 
REGI3. 
REGI14 
REGI5 


BEGIN 


BI SAM 


EXEC a 


1968 


8 
DC 


CC 
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OS/360 COBOL F ISAM FILES ERROR HANDLING 


BEGIN 


18Fa0a. 
AZSAVEBLKa 
2F aCa 
AZSTOREU 


BONA MN DWN SC 


ANALYSIS 


REGS, REG6,OZREGIO 


SAVE,CaGa 
QISAM 
REGL,SAVERBLK44 
EXEC+2%2n0,2%50 
EXEC4+? »Xa0Fa 
EXEC#+2,xa1l0a 
RES4,RELS 
REGS,CZC,REGIO 


PROGRAMAS 


START PRCGRAM 
SAVE AREA 


SYNAD REG © AND 1 SAVE AREA 


BASE REGISTER 


PCINTS TO OCB OR REAC STATEMENT 
PGINTS TO RETURN CODE 


LOAD PASSED PARAMETER ADURESSES 
WAS STORE ENTERED 

YES, FILE IS QISAM _ 

GET REGL3 ENTRY VALUE 


HOLD POINTER TO READ 


THE ABOVE 5. “INS TRUCTICNS RESULT IN REGISTER 5 CCNTAINING THE ADDRESS 


OF THE 


% tH HH 4 


DECK. 


WHICH GENERATED A L 


EXEC INSTRUCTION. 
REGISTER L wHICH WAS LOADED WITH VALUE COECL HAD 


™ 


24YREGSG, XABCa 
O%REG60,CaAa 
CHANGE 
249REC5O, X20RO 
TESTTYPE 
24%REGSD,Xa04a 
GOZREG60,Ca6a 
PRINT 
242REGH5SL, XD01a 
OZREG60,Ca9G 
RETURN 
24UREG5SO, Xa20a 
OZREG60,Ca2a 
RETURN 
24%REG5SU pXa40a 
O3RFG60,CaBAa 
PRINT 
2428REGSH,XalNa 
OFREG60 ,CA3a 
PRINT 
247REGSO, XD07a 
O®REG60,CaTa 
RETURN 


THE AND AND OR 


REGISTER 5 ORIGINALLY POINTEO TC A CGBOL READ STATEMENT 
ReGX»sCISPLO,REGI30 INSTRUCTION. 
INSTRUCTION MOVES THE StCGND OPERAND TO THF SECOND GPERAND OF THE 

INSTRUCTINS CHANGE THE BASE REG TCO 


THE ABOVE MVC 


[IN REGISTER 13. 
TEST FCR RECORD NOT FOUND 

SET RFCORD NOT FCUND CODE 

IF SQ, GO TC GETMAIN RGUTINE 
TEST FOR UNCORRECTABE I-C ERROR 
IS SO, TEST FOR I GR O 

TEST FOR UNREACHABLE BLOCK 

SET UNREACHABLE 8LUOCK CODE 

IF SO, GC TO PRINT DECB ROUTINE 
TEST FOR DUPLICATF RECORD 

SET CUPLICATE RECORD CODE 

IF SQ, RETURN TCO COBOL 

TEST FOR SPACE NOT FOUND 

SET SPACE NOT FOUND CUDE 

{F SO, RETURN TCO COBOL 

TEST FOR RLI CHECK. 

SET RLI CHECK CODE 

IF SQ, GC TO PRINT CECB ROUTINE 
TEST FOR INVALIO REQUEST 

SET INVALID REQUEST CCDE 

IF SO, GC TO PRINT DECB ROUTINE 
TEST FOR OVERFLOW RECORD . 

SET GVERFLOW RECGRO CODE 

IF SC, RETURN TO COBOL 


Exhibit 1 (Continued) 


ANLYO375 
ANL Y0380 
ANLYO385 
ANLYO39C 
ANLYO395 
ANLY0400 
ANLY0405 
ANLYO410 
ANLYO415 
ANLY0420 
ANLY0425 
ANLY043C 
ANLY0435 
ANLY0440 
ANLY0445 
ANLY0450 
ANLY0455 
ANL Y0460 
ANLY9465 
ANLYO470 
ANLY0475 
ANLY0480 
ANLYO500 
ANLY 0505 
ANLYO510 
ANLYOSL5 
ANLYO0520 
ANLY 0525 
ANLY 0530 
ANLYO531 
ANLY0535 
ANLYC54C 
ANLY0545 
ANLY0550 
ANLY0555 
ANLY056C 
ANLY0565 
ANLY0570 
ANLYO575 
ANLYC58C 
ANLY0585 
ANL Y0590 
ANLY0595 
ANLY 06CC 
ANLY0605 
ANLYO6LO 


ANLYO615 


ANLY062C 
ANLY0625 
ANL YO630 
ANLYO635 


— ANLY 0640 


ANLY0645 
ANL Y0650 
ANLY0 655 
ANLY 0660 
ANLY0665 
ANL YO670 
ANLYO675 
ANLYCO8G 
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0S/360 COBOL F ISAM FILE ERROR HANDLING 
_MVI sss O%REGEa,Ca a SET NC ERRORS FOUND CODE 
B RETURN RETURN TO COROL 
TESTTYPE TM 5SAREGIO,gXaA0a TEST PECBTYP2 FGR READ OPERATION 
_ MVE OZREGE6Q wl a4a SET UNCORRECTABLE INPUT ERROR 
BM PRINT IF SO, GC TO PRINT DECB ROUTINE 
MV I OZREG60,CaA5a SET UNCORRECTARLE CUTPUT ERROR 
PRINT. _BCTR REGS gC DECREMENT DECB POINTER 
LA REG7 26 ESTABLISH DECB BYTE COUNT 
LA REG8,51 ESTABLISH OUTPUT INDEX VALUE 
_ LAS REGO, WTO POINT TO OUTPUT AREA 
LA REGL2_,XLATE 
SR REGIG,REGIO CLEAR REGISTER 
INSERT IC REGLO,OYREGT»REGSO PICK UP RIGHT BYTE OF CECB 
LA REG6,2 ESTABLISt SHIFT CCUNT 
SHIFT SROL REGLQ,4 SHIFT LOW ORDER HALF BYTE TO 11 
SRL REGI1228 RIGHT ADJUST REGILI 
STC REG11] ,OXREGB,REGIO PLACE IN OUTPUT AREA 
BCTR REG8,O DECREMENT INDEX 
; BCT REGS, SHIFT DO HIGH ORDER HALF BYTE 
BCT REG7,INSERT ANY MORE TC SHIFT 
BR REGL2 
XLATE | TR. WTO, TABLE NO»e TRANSLATE OUTPUT 
WTO MFHZE,MSGIO PUT OUT MESSAGE 
MV I wT C,XaQGa CLEAR MESSAGE 
MVC WTO+1lL 2510, wil AREA 
B RETURN RETURN TO COPOL 
CHANGE L REG2 » 82C,REG4SU GET OCR ADDRESS 
L REG2 ,40%0 »REG20 GFT LPECL FLELD FROM DCB 
SLL REG2 ,16 CLEAR CUT 2 GARBAGE BYTES 
SRL REG2,19 ANC GIVIDE CY 8B 
A. REG], #Fa3a ADD 3 TO INSURE ADEQUATE SPACE 
SLL REG2,3 MULTIPLY BY & 
C REG2,SIZE WAS LAST GETMAIN LARGE ENOUGH 
BNH ALTER YES 
CLC CORELCC, #Fa0a HAS A GET MAIN BEEN ISSUED 
BE GETMAIN NO 
L REGL,CCRELOC LOAD PREVIOUS GETMAIN ADDRESS 
L REGO,STZEASK LOAD PREVIOUS GETMAIN SIZE 
FREEMAIN R,»LV#ECO AMZ U FREEMAIN 
GETMAIN L REGC yREG2 PLACE REQUESTED SIZE IN REGO 
GETMAIN 2,LV#2Z00 ISSUE GETMAIN 
ST REGL,»CORELOC STORE ADDRESS OF AREA 
_ $T. : REGO ,SIZEASK STORE SIZE OF AREA 
A REGL,A#Fal 6a PCINT TO CCRE RETURNED PLUS 16 
ST REG1,LOC SAVE LOCATION FOR COBOL 
S REGO,AaF alba SUBTRACT 16 BYTES FROM SIZE 
ST REGO,SIEZE STORE REDUCED STZE 
ALTER MVC CCBCLST+2 420, 36ZREG4O 
NI CCBOLST+4+2,5 Xd0F a 
O! COBOLST+2,Xal0a 
L REGL,SAVEBLK+4 
L REGOsLOC 
COBCLST ST REGO ,O%u,REGITO 
* THE ABOVE 6 IKASTRUECTIONS RESULT IN THE GETMAIN ADDRESS BEING STORED 
* IN THE CCBOL PROGRAMAS BLI CELL. REGS POINTS TO THE COBOL READ 
* STATEMENT. THE 34TH BYTE OF THIS EXPANSION IS THE START OF A 
* ST REGX,DISPSCy,REGLI3N INSTRUCTICN. THE ABOVE MVC INSTRUCITON MOVES 
* THE BASE AND CISPLACEMENT TO THE COBOLST INSTUUCTION. THE NI AND OI 
* INSTRUCITONS CFANGE THE BASE REGISTER TCO REGIL WHICH WAS LOADED wITH 
* THE VALUE COBCL HAU IN REGISTER 13. 
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ANLYO68 5 
ANL Y0 690 
ANLYO 700 
ANLYC705 
ANLYOTLO 
ANLYOTLS 
ANLYO72C 
ANLYCT25 
ANL YO 730 
ANL YO 735 
ANLYO 736 
ANLYCT40 
ANLYO745 
ANL YO 750 
ANLYO755 
ANLYC760 
ANLYOT65 
ANLYO770 
ANLYOT775 
ANLYC7B8O 
ANLYOT781 
ANLYO785 
ANLYO79C 
ANLYO795 
ANL YO800 
ANLYO805 
ANLYOBIC 
ANLYOBLS 
ANLY0820 
ANL YO 825 
ANLYO €30 
ANLYC835 
ANLY08 40 
ANLYO845 
ANLYO85C 
ANLYO855 
ANL Y0860 
ANLYO865 
ANLYO87C 
ANLYO875 
ANL YO880 
ANLYO885 
ANLYO89C 
ANLYCSCU 
ANL Y0905 
ANL YOOLO 
ANLYOOLS 
ANLYO920 
ANLYO0925 
ANL Y0930 
ANLYO935 
ANLYC94C 
ANLY0945 
ANL Y0950 
ANLY0955 
ANLYOS6C 
ANLY0965 
ANLYO970 
ANLYO9T75 
ANLYC9B8O 
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OS/360 COBOL F ISAM FILE ERROR HANDLING 


LREG2sREG2 
REG2,3940,REG4Q 


REG2s4 
REG2 92 
REG2 ,#F aS 8a 
STORELT 
RETURN 


CLEAR REGISTER 
GET BASE REG OF COBOCL@S LOAD 
SHIFT OFF INCEX REG 

MULTIPLY BY 4 

WAS BASE REG OVER 12 

NO 

IF CVER 12, THE VALUE CANNOT BE 


* STCRED. IT IS ASSUMED COBOL WILL LOAD REG14 € 15 FROM THE BLI CELL 
* WEEN THE COMPILER IS FORCED TO ASSIGN REG14 & REGIS GN A TEMPORARY 


* BASIS 
STOREIT 


ST 


REGO,204REG2,REGI10O 


STORE LOC ADDR IN CORRECT SAVE 


* THE ABOVE 5 INSTRUCTIONS. CHANGE THE COBOL FILE@S BASE REGISTER IN 


Ho OH 4 oe st 


QISAM 


PRINT2 


L BASEREG,DISP%0,RIG130. 


THE COBOL SAVE AREA SO THAT IT IS LOADED PROPERLY ON RETURN. 
INSTRUCTION PICKS UP THE BASE REG FRO® THE COBOL INSTRUCTION 
THE INDEX REGISTER IS SHIFTED OFF. THE BASE 
REG DESIGNATICN IS MULTIPLIED BY 4 AND REG2 BECOMES AN INDEX REG. 

REGL POINTS TC THE COBOL SAVE AREA. 
REGO SAVE LCCATION 


RETURN 

SAVE »XadCOa 
BLFREGHSO, xXdaBNG 
OZREG6U,Ca8a 
RETURN 
BOZREGSN, Xa2 0a 
OTREG6,Ca2a 
RETURN 
BLEREGS,XaA40q 
OZREG6U,CA9IA 
RETURN 
BOZREGSL, Xad08a 
OFREGOU,Ca4a 
PRINT2 
SGFREGSO, Xd04a 
OZREGOU,C ada 
PRINT 2 
BOZREGSEL, XaCCa 
O%REG6N, Cala 
RETURN 
BOZREGSU »Xa02a 
OZREG6U,CaA6a 
PRINT2 
BOZREGS GH, XalOwe 
OZREG60 ,Ca 3a 
PRINT2 
BLEREG SU, Xda7Nd 
O2REG60,CaCS 
PRINT2 
BLIFREG5SQ, Xa1L0G 
OREGEN,CaTA 
RETURN 
O@REG6D,CaA a 
RETURN 
REGI,STATUS 
REGT,3 

REGS »SAVEBLK 
REGS» SAVE 
REG8,d 

REGL2, INSERT 
REGI,BUFFER 
REG7,3 


THE IC 


THE 20 DISPLACEMENT POINTS TO 


CLEAR QISAM INDICATOR 

TEST FOR SEQUENCE CHECK 

SET SEQUENCE CHECK CODE 

RETURN TC COBOL 

TEST FOR SPACE NOT FOUND 

SET SPACE NOT FOUND CODE 
RETURN TU COBOL 

TEST FOR DUPLICATE RECORD 

SET DUPLICATE RECORD CODE 
RETURN TO COBOL 

TEST FOR INPUT ERROR 

SET INPUL ERROR CODE 

PRINT ADCRESSES 

TEST FOR OUTPUT ERROR 

SET CUTPLT ERROR COCE 

PRINT ADDRESSES 

TEST FOR LOWER LIMIT NOT FOUND 
SET LOWER LIMIT MOT FOUND CODE 


TEST FOR UNREACHABLE BLOCK 
SET UNREACHABLE BLOCK CODE 
PRINT ADORESS ROUTINE 

TEST FOR INVALIG REQUEST 
SET INVALID REQUEST CODE 
PRINT ACDRESS ROUTINE 

TEST FOR DCB CLOSED 


SET CCB CLOSED COCE 


PRINT ADDRESS ROUTINE 
TEST FOR OVERFLOW RECORD 
SET OVERFLOW RECORD COCE 
RETURN TO COBOL 

SET NO ERROR FOUND CODE 


POINT FO OUTPUT 

ESTABLISH BYTE COUNT 

SAVE DCB ACDORESS 

PINT TO REGO SAVE FIELD 
ESTABLISH OUTPUT INDEX COUNT 
GON TO CONVERSION ROUTINE 
POINT TO OUTPUT 

ESTABLISH BYTE COUNT 
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_ ANLYLOOO 


ANLY1005 
ANLY 1010 
ANLYLO15 
ANLY1016 
ANLYLOL7 
ANLY1018 
ANLY1019 
ANLY1020 
ANLYLO21 
ANLY 1022 
ANLY1025 
ANL Y 1036 
ANLY1035 
ANLY1040 
ANLY1045 
ANLY1050 
ANLY1055 
ANLY1060 
ANLY1100 
ANLYLLOS 
ANLYLL1O 
ANLY1115 
ANLY1120 
ANLY1125 
ANLY1130 


ANLY1135 


ANLY1140 
ANLY1145 
ANLYLL5O 
ANLYL155 
ANLY1160 
ANLY1165 
ANLYLL70 
ANLYL175 
ANLY1180 
ANLYLL85 
ANLY1190 
ANLY 1200 
ANLY1205 
ANLY121L0 
ANLY1215 
ANLY1220 
ANLY1225 
ANL Y1230 


— ANLYL235 


ANLY 1240 

ANLY1245 
ANLY1250 
ANLY1255 
ANLY1260 
ANLY1265 
ANL Y 1300 
ANLY1305 


ANLY 1306 


ANLY1310 
ANLY1315 
ANLY1320 
ANLY1325 
ANLY1330 
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LA REGS, SAVE+4 POINT TO REGL SAVE FIELD ANL Y1335 

_ LA REGS, ESTABLISH OUTPUT INDEX COUNT ANLY134C 

BAL REGL2,INSERT GO TO CONVERSION ROUTINE ANLY1345 

LA REGI»0CB POINT TO OUTPUT ANLY1L350 

LA REG7_3 ESTABLISK BYTE CCUNT ANLY1L355 

LA REGS » SAVEBLK POINT TO STORED CCB ADDRESS ANLY136C 

LA REG6 25 | ESTABLISH CUTPUT INDEX COUNT ANLY L365 

~ BAL  REG1L2, INSERT GO TO CONVERSION ROUTINE ANLYL370 

TR STATUS» TABLE CHANGE THE THREE ANL YL375 

TR BUFFER,TABLE GQUTPUT FIELDS TO ANLYL38C 

TR OCB, TABLE A HEX FORMAT ANLY1385 

wTO ME4#%E,MSG20 ANLY1390 

B RETURN 6O TO COBUL ANL Y1395 

TABLE CC Ca0123456 7B9ABCDEFa ANLYL40C 

OS OF ANLY1405 

MSG1 oc AL2%MSGIEND-"SG lo ANLYL410 

oe Oc Hada ANLYL415 

DC Cancchha ANLYL42C 

KTO DC 5 2xa004a ANLY1425 

MSGENDL EQU * ANLY1430 

SIZE DC Fa0a wILL CONTAIN THE GETMAIN BYTE SIZE MINUS 16 ANLY1445 

CORELOC OC Fa0a WILL CONTAIN THE GETMAIN CORE LOCATION ANLYL45C 

SIZEASK DC FCa WILL CONTAIN THE GETMAIN BYTE SIZE ANLY1455 

LCC DC Fa0a wiLl CONTAINS THE GETMAIN CORE LOCATION PLUS L6ANLYL460 

MSG2 OC AL2%MSGZEND-—’SG20 ANLYL465 

OC Hada ANLY1L470 

OC CaSTATUS BYTES AT a ANLYL475 

STATUS DE CL6éa@ a ANLY1L480 

oc Ca BUFFER AT a ANLYL495 

BUFFER OC CL4a a ANLY149C 

OC Ca DCB AT a ANLY1495 

 pcB~—OC CL6a a ANLY1496 

MSG2END €QU * ANLYL497 

END STORE ANLY1494 
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DOS/360 CATALOGING COMPILER OUTPUT TO 


OS/360 MFT-II AND MVT LABELED TAPE 
Ppa na ee RELOCATABLE LIBRARY 


CONSIDERATIONS 


Labeled Tapes The following is from the IBM WTC Field 


Support Center, Sydney, Australia. It has not 
The following should be considered when been submitted to any formal IBM test. Poten- 


planning the installation of a multijobbing system tial users should evaluate its usefulness in 

in a fully labeled installation. their own environment prior to implementation. 

1. Labeled data tapes used by jobs are part of 
the criteria for establishing job classes in 
this environment. 


A convenient program testing technique consists 
of assigning SYSPCH to disk or tape and put- 
ting object programs onto magnetic storage. 
SYSIPT can then be assigned to the tape or disk 
extent concerned, and the object programs may 
be cataloged to the relocatable library without 
being punched into cards. 


Indiscriminate assign- 
ments can result in performance degrada- 
tion due to concurrent jobs requesting the 
same tape volume. Asa result, one or 
more of these jobs will have to wait for that 
tape to be released. 

However, for this technique to work, a CATALR 
modname card is required immediately preced- 
ing the object deck. Techniques for producing 
this card DOS/360 are outlined below. 


2. The same situation can exist with labeled 
scratch tapes if programmers are allowed 
to call for them by specific volume serial 
number, i.e., two concurrent jobs in two 
partitions both requesting a labeled scratch 
tape by VOLUME=SER=001. 


ASSEMBLER - use a PUNCH statement in the 
assembly. 


August 23, 1968 


PL/I - Set UPSI Switch 0 on (Version 3). 


COBOL, RPG, FORTRAN - No direct facility 
exists. 


The most common solution in this case is to 


execute a small assembly immediately preced- 
ing the compilation: e. g. 


// EXEC ASSEMBLY 


PUNCH ‘ CATALR modnane' 
END 


|x 


DOS/360 - EXECUTION OF 14K OR 44K 
ASSEMBLER IN BG 


The following technique is a field contribution 
which has not been submitted to any formal IBM 
test. Potential users should evaluate its use- 
fulness in their own environment prior to imple- 
mentation. No maintainance can be expected. 
Some DOS/360 users with a 64K S/360 Model 

30 when operating in a multiprogramming envir- 
onment may not be able to use the 44K Assem- 
bler (Release 17) because of the size of the 
background partition. The following technique 
allows execution of the 14K or 44K Assembler 
depending upon the size of the background 
partition. 


To obtain maximum throughput on Assemblies, 
both the 14k variant of the Assembler and the 
44K Assembler should be cataloged to the Core 
Image Library. The former can be used when 
multiprogramming (i.e. when the background 
area is less than 44K) and the later can be used 
when not multiprogramming (i.e. when the 
background area is greater than 44K). 


In order to continue using the // EXEC ASSEM- 
BLY job control statement; 


1. The module IJQD32 should be punched from 
the Relocatable Library (private or system) 
and re-cataloged with the phase name in 
the second card changed from ASSEMBLY 
to ASSEM B14. 


2. Likewise, the module IJYASM should be 


punched from the private Relocatable Library 


and re-cataloged with the phase name 
changed to ASSEMB44. 


Issue No. 68-16 


3. IJQD32 and IJYASM should be Link- Edited 
and cataloged to the Core Image Library. 


4. The subroutine shown in Exhibit 1 should be 
cataloged to the Core Image Library with 
the phase name ASSEMBLY. It will interro- 
gate the Communication Region for the size 
of the background area and FETCH the cor- 
rect Assembler. 


DOS/360 COBOL USE OF OCCURS AND RE- 
DEFINES 


The restrictions on the use of OCCURS with 
REDEFINES, as stated in the SRL 'DOS/TOS 
COBOL Language Specifications" (C24-3433-4), 
page 58, have been and will continue to be in 
effect. These also apply to OS/ 360 COBOL E. 
In earlier releases, most of the illegal com- 
binations of OCCURS and REDEFINES were 

not diagnosed, and, if diagnosed, a warning 
message was issued. In DOS/360 Release 17, 

a correction was made to issue an E-level diag- 
nostic ifa REDEFINES clause appears in an 
item immediately subordinate to an item con- 
taining an OCCURS clause. For planning pur- 
poses you are advised that present plans are 
that a subsequent release will diagnose the use 
of a REDEFINES clause in all levels subordinate 
to an item with an OCCURS clause. This change, 
if made, will be when and as provided through 
the normal IBM documentation procedures. 


For users who will be impacted by this correc- 
tion, the following suggestion may be helpful. 
Note that this is a recommended programming 
technique, in any case, for improving program 
efficiency when dealing with subscripted data 
items. 


Define, in Working Storage, an image record 
of the OCCURS portion of the master-record. 
The image record may contain any necessary 
redefinitions. Then move the OCCURS item 

to the image record and perform any necessary 
operations, working with non-subscripted data 
items. 


For example, see Exhibit 1. 


DOS/360-EXECUTION OF 14K OR 44K ASSEMBLER IN BG 


LOC) 6oOBJECT CODE ADDRI ADDR2 STMT SOURCE STATEMENT 


DOS CL3—1 08/01/68 
OO4000 QUST ART 168 G 
004000 0520 2 BEGIN BALR 2,0 
004002 3 USING *,2 
4 x wa 

5S * THE COMMUNICATION REGION CONTAINS THE UPPERMOST BYTE OF THE 8G AREA 

6 * IN LOCATION 32 AND THE FIRST BYTE OF THE BG AREA IN LOCATION 10 

| 7_* | ee 


8 COMRG 


aay dame 


9+* 360N—-CL-—453 COMRG CHANGE LEVEL 3-0 
~ON 4002 SARIO 000 og 
004006 OA21 11+ Svc 33 
004008 S830 1020 00020 12 L 3532%0.10 LOAD AODRESS OF UPPERMOST BYTE OF 8G AREA 
010400 O55 e OEey: OFeEe kes - | = ) 0 * oBE.9: -BBIBIS 8 2S «1 s = :¥° 
004010 5930 2036 04038 14 Cc 32#F045055@ COMPARE RESULT TO SIZE OF 44K ASSEMBLER 
004014 4740 201E 04020 15 BL ASSEMB14 MINUS ONE 
eee ETCH ASSEMRAGQ 
17#* 360N-CL—-453 FETCH CHANGE LEVEL 3-0 
004018 18+ DC OH@0a 
004018 4110 D2 04 02 8 g A oi 3 a) A MF 4 
00401C 1800 20+ SR 020 
OO401E OA01L 21+ SVC 1 
a2 ASS EMBL 4 FETCH ASSEMAI4 0 
234% 360N—-CL—453 FETCH CHANGE LEVEL 3-0 
004020 24+ASSEMB14 DC OHdD0a 
004020 4110 202E 04030 25+ _ LA 1.fCiLS8aASSEMB1423 
004024 1800 26+ SR 0,0 
004026 OA01 27+ SVC i 
004028 CLE2E2CSD4C2F4F4 29 #CLB@ASSEMB44a 
004030 CIE2E2CSD4C2F 1F4 30 #CL8@ASSEMB148 


004038 OOOOAFFFE 3) HE 450559 si 


Exhibit 1 


8961 ‘Ez ysndny 


"ON onss] 


91-89 
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DOS/360 COBOL USE OF OCCURS AND REDEFINES 


(FD in File Section) 


$1 REC. 7 
$2 PART-1 OCCURS 18 PICTURE X (20), 


WORKING-STORAGE SECTION. 


$1 REC-IMAGE. 
$2 A PICTURE S9 (5) COMPUTATIONAL-3. 
$2 B REDEFINES A PICTURE X (3). 
@2C. 
$3 D PICTURES 9. | 
$3 E REDEFINES D PICTURE X. 


PRCCEDURE DIVISION. 
PERFORM PARA VARYING N FROM 1 BY 1 
UNTIL N GREATER THAN 18. 


PARA, MOVE PART-1 (N) TO REC-IMAGE. 


(coding to perform operations using A, B, D, E etc.) 


Exhibit 1 
DOS/360 DISK EXTENTS FOR COBOL DOS/360 RELEASE 17 RPG - NEW ERROR 
PROGRAMS SRL CORRECTION CODES 
The DOS/360 COBOL Programmer's Guide DOS/360 Release 17 contained ISAM load and 


C24-5025-4 is in error on page 26 in discussing add facilities in RPG. The TNL Y21-0005 to 


the use of the new DLBL and EXTENT cards for the PLM Y26-3701-1 contains seven new error 


DOS. codes which may have caused a program to 

terminate as a result of HO. Users who do not 
The 'filename' in the //DLBL statement must receive the PLM's should know of these addi- 
be in SYS nnn format as was necessary in pre- tions which are contained in the updated HO 
vious VOL statements, not the 1 to 7 char- chart shown in Exhibit 1. 


acters as the manual indicates. 


The SRL will be corrected with the next TNL 
or revision. 
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DOS/360 RELEASES 17 RPG - NEW ERROR CODES 


HALT INDICATOR (HO) ANALYSIS AID 


Displacements in Decimal From GR3 


Condition That Turned HO On 


Initialized on of on due to programmer request 
Invalid chaining request 

Undefined record type 

Collating sequence error (matching records) 
Record sequence error (predetermined sequence) 
DAM (record not found) 

DAM (data check) 

DAM (wrong length record) 

ISAM (invalid key length) 

ISAM (OASO error) 

ISAM (wrong length record) 

ISAM (illegal EOF-within limits) 
ISAM = Load (prime data area full) 
ISAM = Load (master index full) 

ISAM - (duplicate record) 

ISAM - Load (sequence error) 

ISAM = Add (overflow area full) 

ISAM - (no record found) 

ISAM = Load (cylinder index orea full) 


@ 


(A) = Chaining identifier 
(B) = Address of JORB 


(C) = Address of OTF tabie 7 
Exhibit 1 


288 289 290 


Resulting Byte Combinations Set 
(Hexadecimal) | 


‘ez ysnsny 


896T 


917389 “ON, ONS ST 
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DOS/360 RELEASE 18 PL/I PLANNING INFOR- 
MATION 


The following information is provided for plan- 
ning purposes. The actual availability and 
specifications will be as provided through the 
official IBM procedures, the Program Announce- 
ment and formal documentation. 


1. With Release 18, the priority of the conca- 
tenation operator has been changed from 
level 7 to level 4. (Between INFIX + and 
the Logical Operators). 


2. It will be necessary to read the various PL/I 
TNLs prior to designing a file with the new 
I/O facilities available in release 18 (as it 
was in the past). For example, if the rules 
for fixed length blocked records with READ 
SET or LOCATE statements (record size 
must be divisible by 8) were not noticed, a 
redesign of a system might have been neces- 
sary. 


3. Version 3 of PL/I in DOS Release 18, also 
incorporates some important optimization 
improvements in the area of fixed decimal 
arithmetic and structure assignments. To 
take advantage of the fixed decimal improve- 
ments, declare all FIXED DECIMAL fields 
with an odd precision. Within each expres- 
sion and/or assignment, keep the scale and 
precision of the operands the same. The 
receiving field should be large enough to 
accommodate the expression results (as 
determined by the implementation precision 
rules). 


4. To take advantage of structure assignment 
optimization, the relative structuring and 
internal representation of the elements must 
be identical. (This optimization will not be 
effected with structure expressions.) A 
similar optimization for array assignments 
can be effected by declaring the array asa 
single element structure. For example, 
the following will generate and execute one 
MVC command where before it would have 
generated a loop executing 100 MVCs. 


Declare 
1 A, 2 B(100) character (2), 
1 C, 2D (100) character (2); 
B=D; /* generates 1 MVC. */ 
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BPS/360 REDUCING CORE IMAGE LIBRARY 
SIZE FOR BAL 


The following was developed by an IBM customer 
and contributed to the Newsletter. Potential 
users should be aware that it has not been sub- 
mitted to any IBM test and should evaluate its 
usefulness in their own environment prior to 
implementation. | 


Installation Newsletter 68-03 contained, on page 
3, an article concerned with reducing Core Image 
Library size for DOS/360 by storing repetitive 
type modules only one time in the CIL. After an 
IBM Systems Engineer showed it to one of his 
customers, they developed another idea for 
reducing the size of the CIL. The idea was 

not to store the I/O areas for BAL programs on 
the disk. Exhibit 1 illustrates the technique. 
Essentially what it amounts to is assigning core 
storage for I/O areas at execution time. This 

is particularly advantageous when large blocked 
records are used by the processing program. 


August 23, 1968 


Issue No. 68-16 


BPS/360 REDUCING CORE IMAGE LIBRARY SIZE FOR BAL 


How to save core image library when writting in B. A. L. , end to have the post. list 


and eny cors dump to coincides 


Put the I/O areas immediately efter the start statement es equate entries. 


EXAMPLE: ANSAl EQI #-3602 


Equate each 1/0 area to #=(the length of the t/o area PLUS the length of all other 


1/o areas already equated). 


Te last equated amount is divided by eight (8) and the difference between the 


remainder and eight (8) is added to the last equated emount to egual AMOUNTX. 


(This is to elign on double word boundary). 


AMOUNTX plus ‘length of supervisor - (8192)) plus (length of label checking area) 


3s the anount to put in the start statement. 


ANCUNTX is the emount to put in the PHASE carde 


EXAMPLE: | Equated to 
Double word lengta 56_ ARDA3 
AREAL 3602 bytes 70 
oh 

AREA2 1500 bytes 62 

8 56 
AREL3Z 1200 bytes —6<— 6 ag 

2 —____—_—_—_———_ > + 


J/ LBLTYP NSD(3) = Ay, bytes (label checking re 630], = aMOUNTX 
+ Uys l 


End of supervisor ——> t+ 5192 


Su NOpUi Ona). te ee ee 


START  116)0 
AREAL EQ #=3602 
AREA2 EQU #-5102 (1500 plus 3602) 
AREAZ EQU *-6302 (1200 plus 1500 plus 3602) 


PHASE progname,S+630h <—— __(Requi red) 


Exhibit 1 


S/360 20 DPS ADDRESSING OVER 4K, 8K, 12K 


OR 16K 


The following is a field contribution which has 
not been submitted to any formal IBM test. 
Potential users should evaluate its usefulness 
in their own environment. 
be expected. 


No maintenance can 


T meneaeantl 


The purpose of the BSREG macro is to provide 
Model 20 Assembler language programmers | 
the ability to address over 4K, 8K, 12K or 16K 
by means of one programmer-written statement. 
The format of that statement is described in 
Exhibit 1. 


The BSREG macro definition is shown in 
Exhibit 2. Examples of its use including gener- 
ations are shown in Exhibit 3. 
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S/360 20 DPS ADDRESSING OVER 4K, 8K, 12K OR 16K @ 


OPHRATION OPERANDS 
CODE (IN ANY SEQUENCE) 


14 


Blank or 
Asseubler . 
Symbol 


Allowable 
Svecifi- 
cation 


Any valid 
Model 20 
register 


(8-15). 


Any valid 
Model 20 


resister 


(8-15). 


f Any valid 
f Model 20 
register 
| (8-15). 


i} Any valid 
f Model 20 
i register 


(8-15). 


Remarks 


Indicates core size 
in terms of multiples 
of 1,024 bytes. If 
omitted, 4 is assumed. 


specifies the resis- 
ter to be used to : 
address the first 4K. | 
If omitted, 10 is 
assumed. 


Svecifies the regis- 


| ter to be used to 


address the second 
4K. If omitted and 
K=8 or nore, 11 is 
assumed. 


specifies the rezis- 


| ter to be used to 


address the third 
4K. If omitted and 
K=12 or more, 12 is 
assumed. 


specifies the regis-~ 
ter to be used to 

address the last 4K. 
If omitted and K=16, 


13 is assumed . 
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S/360 DPS ADDRESSING OVER 4K, 8K, 12K OR 16K 


*#Programmer's Note: 


The BSREG Macro Definition, Including the 
DPS Job Control Cards Necessary to Catalog It. 


Be Certain the END Card is processed! ** 
Otherwise you may clobber SYSRES in subsequent runs. 


4/ LOG ann 


Lf. 3JQB MMAINT 


44 OATE 68277 
44 EXEC 


MODEL 20 DPS —MACRO MAINTENANCE PROGRAM— VERSION O1 MOO-LEVEL 02 


// CATAL 
MACRO 
STMNT NOs MACRO DEFINITION STATEMENT 
ENAME ESREG &K#4,ER181C, ER2H11,ER3012, ER4H13 
BSREGOOL = EAL SETA &K 
BSREGOO2 —s & BLL SETB ZEAL1 EQ 40 
BSREGCO3 AIF ZECLLO.CK 
__BSREGOOS GBLl  SETB %EAL1 EQ 8a 
BSREGOOS AIF  %€BL15.0K 
_BSREGOO6 = EBL SETB ZEAL1 EQ 120 : 
BSREGOOT AIF %€BL10.0K 
__BSREGOOS —-E BL SETB GALI EQ 160 
BSREGOOS AIF  NCT GBLIO.ERR 
BSREGOLO  .CK —_—sANOP 
BSREGOL1 €NAME  BASR ER1,0 
BSREGOI2 _USING #,&R1 ; 
BSREGCIS AIF ZEALL EQ 40.LAST 
BSREGOT4  AESYSNOX ECU 4 | 
BSREGOIS USING A&SYSNDX +4096, ER2 
BSREGOL6 LH _ &R2eBESYSNOX : 
BSREGOLT AIF €AL1 EQ 80.BC 
__BSREGOLB USING AESYSNCX4819296R3 
BSREGO19 LE ER3,CESYSNDX 
BSREGC20 AIF GALL EC 120.BC 
BSREGO21 USING AGSYSNCX4#12268,ER4 
_BSREGO22__ LH &R4, DESYSNOX 
BSREGO23 AIF 6AL1 EQ 160.8C 
__BSREGO24 —s ERR MNOTE O,aINCCRRECT SPECIFICATION CF CORE SIZE AS EAL1@ 
‘BSREGO25 MEXIT 
BSREGO26  ~&C BC 15,€6SYSNOX 
BSREGO27 —BESYSNDX DC —YZAESYSNOX*#4096n 
BSREGOZ8 AIF €AL1 GT 80.GENI2 
__BSREGOZ9 _ AGO ENE 
BSREGO30 .GEN12 ANOP 
BSREGO31 —CESYSNOX CC —Y2AESYSNOX+81920 
BSREGO32 AIF ALL GT 120.GENI6é 
BSREGO33 AGO ENC 
BSREGO34  .GENI6 NOP 
BSREGO35 O&SYSNOX CC _—~Y2AESYSNOX+122e80 
BSREGO36 ~~ END ANOP 
BSREGO37_—sEESYSNDX EGU *# 
BSREGO38 <LAST NENT 
47 END Exhibit 2 
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S/360 20 DPS ADDRESSING OVER 4K, 8K, 12K OR 16K & 


Examples of the use of the BSREG macro, including 
actual generations- 


EST RE — " 
PPE 1000 (BSREG with label but no overands. 


* USING *#30 Notes: =A and R1=10 were assumed.) 
HERE BSREG K#lé (BSREG with label and only the 

+ oC core size svecified. Registers 

ad USING #,1C 10-13 were assumed.) 

#AQ004 EQU * 


USING AC00444C96,11 
LH 11,8C004 

USING ACCC44+8192,12 
LH 12,C0004 

USING ACC04412288,13 
Lk 13,0CC04 

BC 15,ECO04 
*BC004 oC YZAC004*4C960 
*C 0004 CC YTACCC4+81S20 
#00004 DC YZACCO04412288n 
#ECO04 EQU * 


BSREG K#12,R189,R2815 (BSREG without label, core size 
Saat Li Gia Fi ceeemammiinaen of 12 requested, but only 2 reg- & 
USING #,9 isters suvplied. Register 12 is 
acool ECU * assumed for R3.) 
USING ACGCO1+4096,15 
Lk 15,8CCC1 
USING ACCC148192,12 
LH 12,CC001 
BC 15,EC001 
#80001 oC YZACCC1+40S6n 
*C cool cc YZACCO1+8192n 
*ECO01 equ = 


(BSREG without label, core size 
a of 8 requested, both necessary 


oe Hd He Oe 


Ho He Oe Ole 


? 
* USING #13.  £vregisters supplied.) 
*ACQ002 EQU * 
* USING A000244096,14 
* LH 14,B8C002 
* BC AS eECCC2 


*B0002 cc YZACCO02+40960 
*EC002 EQU * 


(Generation suppressed due to 
incorrect core specification. ) 


SE aie pias S — er : 


TESI6 Bea be File 
* N ECT SPECIFICATION OF CORE SIZE AS 15 


Exhibit 3 
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S/360 AND 1401 7 AND 9 TRACK TAPE 
CHARACTERISTICS 


The following is a field contribution. It has 
been helpful in one installation as an aid in con- 
verting from 7 to9 track tape and selecting the 
S/360 Hex Code. See the chart contained in 
Exhibit 1. 


5/360-44 FORTRAN I/O DEVICES NOT CLOSED 
CORRECTION 


Installation Newsletter 68-13 contained, on page 
6, an article on the above subject. The follow- 
ing errors should be corrected: 


1. In the first line of the second paragraph, 
change WZ to W2. 


2. In the suggested fix change WZ to W2 in the 
first two lines. 


3. In the suggested fix (last line), change 
BOCO8215 to BOCO8005. 


The fix is an S/360-44 PS V-3 Assembler 
subroutine for execution under FORTRAN. The 
fix follows the label IOTEST1 at BOCO6360 and 
is for the purpose of proper closing of I/O 
devices by BOAFIOCS. 
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1800 USER INFORMATION IN 1130 USER'S 
ee ee NOY VOPR 2 
GUIDE 


The 1130 User's Guide (C20-1690), just 
released, contains a wealth of material for 
both scientific and commercial 1130 users. 
Despite its orientation toward the 1130, though, 
many of the topics covered will be of interest to 
1800 users as well. In fact, because of the 
Similarities of the hardware, the I/O devices, 
and the programming systems, it is possible to 
read some sections as if they were written for 
the 1800 rather than the 1130; other sections 
require some knowledge of the differences be- 
tween the two systems. 


Here are some of the key topics which can be 
used by 1800 users with little or no change or 
interpretation: (items marked with an asterisk 
are generally applicable, except for a few ob- 
vious 1130/1800 differences) 


Section Title 

15.10 Data - on disk or cards? 

15.20 How to safeguard your disk 

disk data files 

20. 20 Forms design 

20. 30 Card design 

20. 40 Design of disk data files 

30.00 Testing 

60. 10* Disk storage layout 

60. 20% Increasing the amount of space 
available to the user 

60. 30% Disk Utility Program 

65. 10% The logical layout of core storage 

70.10 Arithmetic considerations 

70. 40 Character handling techniques 

70. 50 FORTRAN core savings tips 

80. 00 Use of the disk for data storage 

90-00* Improving your system -- 


performance 
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$/360 AND 1401 7 AND 9 TRACK TAPE CHARACTERISTICS 


1401 Mode on a $/360 requires 6 bits per character. 
§/360 Mode requires 8 bits per character. 


8961 ‘Ez }snsnYy 


* Two useless bits of the 8 are dropped when read into core. Dummy bits are added when written. _ 


** For example: Data conversion always requires 4 characters on tape for every 3 in core — 


Exhibit 1 


ON TAP 


#or #or #OFTAPE | $/360 

MODE TRACKS BITS FRAMES DENSITY HEX DESCRIPTION PARITY FEATURE 

1401 a An i ] 800 A8 TRANSLATE EVEN N/A 

1401 7 6 ] 556 68 TRANSLATE EVEN N/A 

1401 9 g* 1 800 CO 5/360 ODD SINGLE DENSITY 
1401 9 ge 800 C8 5/360 ODL DUAL DENSITY 
1401 9 g * 1600 CO 5/360 ODD EITHER WAY 
5/360 7 8 11/3 ** 800 90 DATA CONVERT ODD N/A | 
5/360 9 8 800 CO 5/360 ODD SINGLE DENSITY 
-§/360 9 8 800 C8 5/360 ODD DUAL DENSITY 
5/360. 9 8 1600 CO 5/360 ODD EITHER WAY 
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NEW TYPE Il PROGRAMS 


The following are the abstracts of programs which have been recently made available 
from the Type II library. 


The program, along with its complete abstract, will be incorporated in subsequent 
issues of the Catalog of Programs. 


Programs may be obtained by submitting a properly completed ''General Program 
Request Card" (Form Number 120-1145-1) to the Program Information Department, 
40 Saw Mill River Road, Hawthorne, New York, 10532. 


These programs and their related documentation are distributed by IBM in the 
author's original form and have not been subjected to any formal testing. 


Any discussions of Type III programs with customers must 
emphasize the following points: 


1. Type III (IBM employee-contributed) programs are 
provided by the IBM Corporation as part of its service 
to customers. 


Les Type III programs have not been subjected to any formal 
test. 
2. Recipients of Type III programs are expected to make 


the final evaluation as to the usefulness of the programs 
in their own environment. 


4. There is no committed maintenance for Type III programs. 
However, any changes the author chooses to make will be 
announced in subsequent issues of the Catalog of Programs. 


5. IBM makes no warranty, expressed or implied, as to the 
documentation, function, or performance of Type III 
programs. 
-~--Revision--- ---Revision--- 
TRANSPORTATION PROBLEM. STUDENT SCHEDULING SYSTEM/360, DOS 
VERSION. An errata sheet has been added to 
New documentation and machine readable the progrm documentation - instructions for 
material. overcoming problems associated with the 
assembly under DOS Release 15 and subsequent 
Ordering Procedure: Order File Number DOS releases. 


360D-15.2.002. 

Ordering Procedure: Order File Number 
The program material can be obtained in 360D-15. 0.001. 
card form or on one 9 track or 7 track (Data 


Conversion feature required) Distribution Tape Order documentation only. 
Reel (DTR). 


If not specified, a 9 track DTR will be provided. 
No tape submittal is required. The DTR will 
be provided by the Library. 
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-~--Revision--- 


1130 BILL OF MATERIAL MAINTENANCE AND 
RETRIEVAL SYSTEM. 


Revised documentation and machine readable 
material. 


Ordering Procedure: Order File Number 


1130-23. 3.001. 


Distribution will be in card form only. 


--Revision-- 
1800 STORAGE CRT DISPLAY SYSTEM. 


Revised program documentation and machine 
readable material. 


Ordering Procedure: Order File Number 
1800-03. 4. 006. 


Distribution will be in card form only. 


COS-VERSION 5, LEVEL 1 COMPATIBILITY 
OPERATING SYSTEM 360D-05. 1.005. 
(Replaces Version 5, Level 0). 


Documentation and machine readable changes. 


Significant Differences from Earlier Version 
of ''COS"' 


This release of the Compatibility Operating 
System incorporates many corrections to the 
existing version as well as additional support 


and performance enhancements in certain areas. 


Users of earlier versions of the Compatibility 
Systems should pay particular attention to the 
following items which are implemented under 
this release in a different manner. 


1. Includes support for the simulation of the 
1400 card reader, card punch, and printer 
on 2314 disk extents. 


2. Includes support for the simulation of up to 
five (5) 1311's on 2314 disk storage. As 
many as four (4) 1311's may be simulated 
on a single 2314 module. 


3. Includes support for the simulation of a 1301 


module on two and one-half (2 1/2) modules 
of 2314 disk storage. 
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Ordering Procedure: 


. Includes support for the simulation of 1401/ 


Issue No. 68-16 


. Includes support for the simulation of one or 


two modules of 1405 disk storage on 2314 
disk storage. Each 1405 module on separate 
2314 modules. 


. Includes support for the simulation of disk 


file scan operations utilizing the File Scan 
Feature (#4385). When the number of 
sectors to be scanned exceeds 20, a perfor- 
mance improvement will be realized over 
previous versions. 


. Includes support for selective 1405 disk 


verification on a drive for drive basis con- 
sistent with 1311 support. 


. Includes support for an additional] (optional) 


1400 control card parameter enabling the 
user to specify at execution time the instruc- 
tion address of the normal 1400 end-of-job 
Halt instruction. Upon encountering this 

halt, control will be automatically transferred 
to DOS Job Control. 


. Includes an improved Program Mode Switch 


Supervisor Call interrupt handler. 


1440/1460 Write and Space Suppresses oper- 
ation and 1401/1460 Write Word-Mark oper- 
ation. 


Includes an improved simulation technique 
for the simulation of 1400 carriage control 
operations. 


Includes performance enhancements for the 
simulation of 1402 card reader stacker 
select operations. 


Includes support for the simulation of 1401/ 
1460 Read Column Binary operations with 
optional translation of the binary data in the 
normal card input area. 


Order File Number 


360D-05. 1.005. 


The program material can be obtained in card 
form or on one 9 track or 7 track (Data 
Conversion feature required) Distribution 
Tape Reel (DTR). 


If not specified, a 9 track DTR will be provided. 


No tape submittal is required. 
be provided by the Library. 


The DTR will 
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DEMONSTRATION INFORMATION SYSTEM. 
This is designed to demonstrate the functions 

© and capabilities of IBM terminals operating on 
line with System/360 under the control of DOS/ 1051-1 Control Unit 
QTAM.in a multi-programming environment. 


1050 Data Communications System 


4408 lst Printer Attachment 


Separate applications are provided for each of 4410 lst Punch Attach t 
as Meh 


the terminal devices supported as follows: 4411 lst Reader Attachrent 

(1) 1030 Receiving and Production Reporting; 6384 2nd Reader Attachment 

(2) 1050 Inquiry on stock status and accounts 4770 Keyboard Request 

receivable, Order Entry, Shipping Confirmation; 4795 Liné Correction 

(3) 2260 sales analysis; (4) 2740 conversational 5465 Open Line Detection 

entry in purchasing environment; (5) 2780 order 4605 Home Component Recognition 


entry and invoicing (using BTAM). 9114 Data Set Attachment-WE 103A 


DIS requires a S/360 Model 30 64K. (See the 


- Printer-Keyboard 
following configuration list for machines and L052-] yooe 
features required.) The source language used 5465 Open Line Detection 
for all applications is 360 Basic Assembler 
Language. 1054-1 Paper Tape Reader 
See the following lists. 1055-1 Paper Tape Punch 

1056-1 Card Reader 


Ordering Procedure: Order File Number 
360D-30. 1.001. 


The program material can be obtained in card 
form or on one 9 track or 7 track (Data Conver- 

© sion feature required) Distribution Tape Reel 
(DTR). 


2260 Visual Display 


If not specified, a 9 track DTR will be provided. 
No tape submittal is required. The DTR will 2260-2 Display Station 
be provided by the Library. 
4760 Alphameric Kavboard 


nn en ee eiectaenenieeehhatnedinanimmentimendindbeammematencadl A ee ty a a 


1030 Data Collection Svstem 


1031-A4 Input Station 
or 
1031-A5 
1279 1033 Printer Attachment 
1033-1 Printer 
9575 Standard Printing Element 
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2260 Visual Display - Local 


2260-2 


1053-4 


2848-2 


2848-1 


2740-1 
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Display Station 


2780-2 
4766 Keyboard, Alphameric 


Printer 
1006 Accelerated Carrier Return 
9104 Character Spacing 10/Inch 
9354 Line Space 6 LPI Holes 8 
9435 Line Feeding, 6 Lines/Inch 
9509 Pin Feed Plater, Regular 


9571 Dual Case PR EL~S/360 


Display Control 
3356 Display Adapter for Model 2 
3858 Expansion Unit-Models l, 2 
4787 Line Addressing 
5340 Non-Destructive Cursor 
5341 Non-Destructive Cursor Adap. 
7927 1053 Adapter for Model 1, 2 


9011 Channel Adapter 
Display Control 


3356 Display Adapter for Model 2 
4787 Line Addressing 


9012 Data Set Adapter - 1200 BPS 


2740 Communications Terminal 


Communications Terminal 
3255 Dial-Up 
6114 Record Checking 
8028 Transmit Control 


9114 Data Set Attachment-Wh 103A 
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Data Transmission Terminal 
1340 Automatic Answering 
1350 Automatic Turnaround 


5010Multiple Record Transmission 


5800 Printer Horizontal Format Control 


5820 Print Line for 120-Characters 
5682] Print Line for 144-Characters 
6400Selective Character Set 
909847 Char. Set for 6 Bit Trans. 
9110Data Set Att-WE 201A3 
9710For Commun. W. Processor Sys. 


9760Transmission Code-6 Bit Trans. 


APL/360 is a conversational time-sharing 
system based on a mathematical programming 
language first developed by K. E. Iverson. 

The language is concise and has a simple syn- 
tax. It has a large set of primitive operations 
which work directly on arrays. The implemen- 
tation provides a simple immediate-execution 
mode and a convenient program definition 
facility. It has fast response, and uses succint 
diagnostic messages. It provides the ability 
to save work between sessions, to create pro- 
gramming packages, and to exchange programs 
and data between users. Uses of the system 
include mathematical and statistical calcula- 
tion, symbol] manipulation and general data 
processing. It has been used extensively in 
computer-related instruction, and in the design 
of hardware and software. 


Minimum configuration: 256K storage; univer- 
sal instruction set; a 2314 or three 2311's; 

one 2702 or 2703; and 2741 or 1050 terminals. 
Additional storage, disks, and transmission 
controls are supported. A typical Model 50 
configuration supports 60 terminals. The 
system is written in Assembly language, incor- 
porates a modified DOSIII, and allows standard 
DOS background operation. 


Ordering Procedure: Order File Number 
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360D-03. 3. 007. 


The program material can be obtained on 
magnetic tapes as follows: 


1. For 231l users - 2 magnetic tapes are 
required. 


2. For 2314 users - 3 magnetic tapes are 
required. 


Submit the appropriate number of reels of 2400 
foot magnetic tape. Specify whether 7 or 9 
track recording is required. If not specified, 
9 track recording will be provided. The re- 
quired tapes may be ordered from IBM or 
supplied with the request for the program. 


Customers wishing to use the 2311 system with 
Teleprocessing components of DOS must 

order the DOS Teleprocessing components 
separately. 


The following SRL publications would be help- 
ful to users of this program: 


1) €24-5022 - DOS Operation Guide; 2) C24- 
5033 - DOS System Generation and Maintenance; 
3) ©€24-5036-System Control and System 
Service Program. 


The above SRL publications should be ordered 


from the IBM Distribution Center, Mechanicsburg 


and will not be distributed with this program 


or available from PID. 
Sa ee ee 


ELECTRONIC SYSTEM CONVERSION OF 
AUTOCODER PROGRAMS, This program 
translates 1401, 1440, or 1460 Autocoder 
source programs to S/360 DOS ALC or S/360 
Mod 20 DPS or TPS source programs and is 
not a demonstration program. The program 
is submitted to help users get into 360 mode 
exclusively. 


Any system using DOS with 32K and the Packed 
Decimal feature is sufficient to execute this 
program. 


This program is written in 360 DOS Assembly 
Language. 


Ordering Procedure: Order File Number 
360D-12. 2. 006. 


The program material can be obtained in card 
form or on one 9 track or 7 track (Data Conver- 
sion feature required) Distribution Tape Reel 
(DTR). 
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If not specified, a 9 track DTR will be provided. 
No tape submittal is required. The DTR will be 
provided by the Library. 


ENGINEERING SPOOLING PROGRAM. The 
Model 44 Engineering Spooling Program (ESP) 
modifies the S/360 Model 44 Programming 
System to permit I/O requests for the card 
reader printer, and punch to be intercepted 
and satisfied by high speed core-to-core trans- 
fers. Jobs which involve I/O operations at 
the read/write level can operate without 
change. This program attempts to read cards 
ahead of their actual use, storing them in inter- 
nal core buffers and on a disk. Printer and 
punch records are also similarly queued. Up 
to 200 cylinders of a 2311 or SDSD can be util- 
ized for reader, printer, and punch image 
queuing. The ESP Package is written in 44PS 
Assembler Language and requires from 25K 

to 41K, depending on User-Specified buffer 
sizes. A 128K or 256K CPU is required to 
satisfy the combined requirements of 44PS 

and ESP. Unique device addresses for reader, 
printer, and punch are required. Users with 
a card-disk 44 PS system should order the 
program in card form. Users with a tape- 
disk system should order the program in tape 
form. About 4000 source statements are 
included in the necessary distributed material. 


Ordering Procedure: Order File Number 
360D-03. 4. 023. 


The pregram mater?.:! can be obtained on one 
9 track or 7 track (Data Conversion feature 
required) Distributior Tape Reel (DTR). 


If not specified, a 9 track DTR will be provided. 
No tape submittal is required. The DTR will 
be provided by the Library. 
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1130 FORTRAN DOCUMENTATION AND 
FLOWCHARTING PROGRAMS. Program 
documentation and flowcharting is often a prob- 
lem in smaller data processing installations. 
Because of the desirability of having good docu- 
mentation, these programs were written. Input 
to these programs is in the form of FORTRAN 
source statements and comments cards. 

Output from these programs is a complete 
flowchart of the FORTRAN program. These 
programs are a modification of 360D-00.2.001, 
BPS/BOS FORTRAN Flowchart Program, for 
the use on an 8K, 1 disk, 1130 system operating 
under control of the 1130 Disk Monitor System. 
(Version 1 and Version II). 


Ordering Procedure: Order File Number 
1130-00.2.001. 


Distribution will be in card form only. 


A CARD UTILITY PROGRAM FOR 1800/ TSX. 
The Card Utility Program for 1800/TSX pro- 
vides a series of functions to list, reproduce, 


sequence number and convert Hollerith/EBCDIC 


data codes. The program, written in Assem- 
bler Language, runs as a non-process core- 
load under TSX Version 2 or Version 3 (1800- 
OS-001). The 1800 must have a 1443 Line 
Printer in addition to the minimum require- 
ments for TSX. 


Ordering Procedure: Order File Number 
1800-00.1.001. 


Distribution will be in card form only. 
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OS/360 TIMER ACCURACY 
The problem can be overcome by changing to © 


The use of the interval timer under OS/360 to 
measure very small intervals should be under- 
taken only after careful consideration of factors 
which may affect its accuracy. These factors 
are: 


another version of IBCDMPRS. A more 
serious problem has occurred if it is neces- 
sary to recover information dumped using one 
of the above versions of IBCDMPRS. 


Exhibit 1 contains an example of a subroutine 
approach designed to recover a dump ofa 2311 
pack using the Release 13 version of 
IBCDMPRS. Input consists of the dump tape 
which is to be restored, and output is a tape 
that can be used with the Release 13 
IBCDMPRS to correctly restore the pack and 
set the appropriate flag bits which indicate 
record overflow. 


1. The theoretical resolution of the timer 
is not exactly 26 microseconds as stated 
in the Supervisor and Data Management 
Macro Instructions SRL, rather it is 
26.041666 microseconds. This amounts 
to a 0. 16% variance. 


2. The timer is impulsed at the frequency 
of the alternating current used to power 
the machine (either 50 or 60 cps). Line 
frequency can fluctuate by several cps. 
This will cause the timer to exhibit 
equivalent fluctuations. 


3. Under certain contention Situations, a 
memory cycle may not be taken, with the 
result that the timer may not be decre- 


mented. 
The occurrence and the effect of factors 2 and 
3 cannot be predicted. Therefore, use of the ® 


timer to measure very small intervals may 
not result in the desired accuracy. 


OS/360 RELEASE 13 AND 14 UTILITY RECORD 
OVERFLOW SOLUTION 


The following is a field contribution which has 
not been submitted to any formal IBM test. 
Potential users should evaluate its usefulness 
in their own environment prior to implemen- 
ab tation including maintenance and the current 
availability of OS/360 Release 15/16. 


Be 


Versions of the independent utility program 

IBCDMPRS included in OS/ 360 Releases 13 

and 14 do not correctly support record over- 

flow on the 2841 control unit. This occurred 

in an installation when a data set using record 

overflow would not restore correctly ona 

2311. There was no indication of this until | , 
the data set was used. © 


ie eS he 
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se em ee -,, -~ --+@8/360 RELEASE 13. AND 14 UTILITY RECORD OVERFLOW ____. 
© PRINT NOGEN 
A START O 
SO OC Oa 
BALR 5 4) 
TTT STING 
ST 13 ySAVE+4 
ee CR 
LA 13ySAVE 
| a 
x USUAL LINKAGE CONVENTIONS HAVE BEEN MADE 
— OPEN “IDATATNS CINPUT YY 
— OPEN {(UTPUT, (OUTPUT) ) 
GET OATAINCHANPG OT 
* THIS GET OBTAINS THE PARM RECORD FOR DUMP-RESTORE : 
C OT+ 7DATAING C HE EN 
PUT OUTPUT ,CHANPG- 
TT SWAT OP AR A RECORD WRITTEN 
STEPONE GET DATAIN,CHANPG 
TMV CT CHA NLENTS) yp DAT AL NF BE 
— GET  DATAIN,DATA 
? 
* THE CHAN PROG AND TRK IMMAGE ARE NOW IN CORE 
~~~ CLE DATAF1S (27, UE29 — —— TS” THE TRK~ COMPLETELY FULD 
BNE WRITE 
TT CLT CHAN PGES By ROT 
BE RECOVER 
TTT ER NDP 
BC 15,E0J 
SND TT WT SYN TO RE 
BR 14 
© SND SZ WT SYN AD ON WRT 
8R 14 


RETUVER MVI CHANPGOT56O,xX OLS 

x THE CHAN PROG TO RESTORE THIS TRK HAS BEEN CHANGED TO 
SET TO —— TN CATE WRITE SPECIAL COUNTS KEY> DATA VICE WRITE 
WRITE MVC OUTPUT+82 (4) »,CHANLEN 


——— SS GD eee! Gee GoD GREE GE Gee ORE TENET ERTS GEE OR cre elmer me SES Gen em oe erm ee em een ie mere te Sn 


ee ee SS ec Nene ee Ee ee hn 


MVC QUTPUT+82(4) ,DATALEN 

U3 tL ? | 

BC 15,STEPONE 
EDS ~~ “CLUSE TOUTPUT,DIS Py 
CLOSE (DATAIN,DISP) 


SOU ND NE NS NS A NS LS A LY Se en Seo mete Sinan mum cunmnn moenaten —eemmete autrwatn ontenenn <unemt crummtnD cwemoum cunts 


A A ES A SS ST A NS ND SRE GS Se NE RS NS I SEY em eS qe Sn SE «emcee een one 0 


ae 13,SAVE+4 
“RE TURN (14,12) . 

DATAIN OCB BUFNO=1,BLKSIZE=4000,DDNAME=TAPEIN,MACRF=(GM),DEVD=TA, XXX 

—e ~~~ "DSURG= PS; EUUADEE WU; ERUPT ACC SYNADESNDT 

* exe THBO6G3 DDNAME SHORT-PADDED TO 8 CHAR 
CUTPUT DCB” SUENO=217 SLRST ZE=4OUD > DONAME=T AP EOUT > MACR FETPM Tp DEVOETAY XXX CO ~ 
DSORG=PS ySYNAD=SND2 
CH ARLEN DSF 


SAVE i OS 18F 


SLANE i 5c Cll? 
TO Rt re 
CHANPG = OS CL500 
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hos/360 BASIC PL/I AND COBOL SUPPORT 


The following is a field contribution. Exhibit 1 
contains a chart on the Direct Access Capability 
for PL/I and COBOL, current as of DOS/ 360 
Release 18. Additional information on the new 
capabilities for Basic PL/I is contained in 
Program Announcement Letter P68-114, dated 
August 15, 1968. 


DOS/360 BASIC PL/I AND COBOL SUPPORT 


DIRECT ACCESS CAPABILITY 


PUT COBOL 


GENERAL 
DEVICES 2511, 2314, 2321 


ORGANIZATION IS, REGIONAL(]), REGIONAL(3) 


ee oe 


FEATURES 


<r O° rE ee eee 


tne ee Pees. em ang ee + EE sete SED + ete ements ee oe ee 


2311, 2514, 2321 

S, IS, DIRECT, 5 

VERIFICATION NOT ASSUMED, SPECIFY BY KEY ASSUMED, MAY CHANGE BY 
WORD 


BIT IN DTF TABLE 


INDEX SEQUENT 1 TAL 


ee mene a ee see ee ee eo oe een 
aa —. ements epee S ciatien’s Loneie a tad . ae ee ee wee oe ee A ent Oe m8 on a ee 8 one ee ne es a ee owes ame et 


MASTER INDEX | YES NO- MUST CHANGE BIT IN DIF 


a —— - ee eee em me me et ee me ee ee ee. eer tee Sear ee ee 
ee A A aa Od De ee ee ee te = | ee ee eee Oe nem ee . ee en 


; 
| 
73 


“close time. in 


DI RECT ORGAN I ZAI Tou 


nn ee ttre cern mans ete. ere enema = ee comin en tes ae ee ee. = wre me ee ert eee ere eo ee ee ae ewes. 


; RETRIEVED BY RELATIVE RECORD 
NO, DIRECT-RECORDS CREATED 


{ REGIONAL (3)-RECORDS LOADED, 


, RETRIEVED BY RELATIVE peace KEY AND ACTUAL KEY (8 
T RECORM ne BYTE TRACK ADDRESS) 


| ene teehee ee 2 Ma: ener prune 2 cece Leelee oe aenepennin’ he cellent 


ee we ee eee eee eee - ee et ee eee me we ee ne re ee ee ee ee ee em 


EXHIBIT 1 
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SEPARATE ROUTINE MODIFYING 


TABLE THRU SEPARATE 
| ROUTINE 
| INDEX LOC | MAY SPECIFY DIFFERENT DEVICE | NO- MUST CHANGE BIT IN DTF 
| | TYPE, EX PRIME DATA ON 2321, |TABLE THRU SEPARATE 
| | INDEX ON 2311 ROUTINE 
IN CORE | YES NO SUPPORT 
‘vai INDEX | 
! FULL TRACK ADD . YES NO SUPPORT 
i 
| OVFLO TRACKS ' USER MAY SPECIFY STANDARD 20% ASSUMED, CAN 
| Be Changed Only By Modifying 
| BIT IN DTF TABLE THRU 
| SEPARATE ROUTINE 
SETL/ESE TL | YES : Limited-SETL can be done only 
| | 
[ 


once at open time and _ESETL at : 


| REGIONALCI)~ RECORDS LOADED, | NOTHING EQUIVALENT | 
{ 

: AND RETRIEVED BY SYMBOLIC 

| 


October 18, 
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DOS/360 BILL OF MATERIAL PROCESSOR The phase cards generated by BMP for the 


LINKAGE EDITOR TECHNIQUE 


The following is a field contribution which has 
not been submitted to any IBM test. 
users should evaluate its usefulness in their 


overlay point at XZ$OVLY must be discarded 
from the I/O Process and Open/Close modules, 
and the similar one for Dearux may be deleted 
Bopenal by doing an RSERV, discarding, and re-catalog- 
ing the module. 


own environment prior to implementation. 


When cataloging a load module to the Core Image 
Library with the same phase name as one already 
in the library, only the latest phase is access- 
This applies to Bill of Material 


able to DOS. 


The I/O Root module generated by BMP is core 
location dependent when used from one program 
to another, so it is placed first in the root phase. 
See Exhibit 1 for a Sample Linkage Editor run. 


Processor phases for I/O Open/Close, I/O 
Process, and Dearux when several programs 

of a system use these same modules. Three 
approaches may be used to link edit these pro- 
gram phases to the CIL to assure proper execu- 


tion of the desired program. 


First, the phase names may be changed, along 
with the corresponding Fetch Operand, so thata 
unique phase name exists for each program's 
I/O Open/Close, I/O Process, and Dearux over- 
lays. This wastes space in the CIL, since each 
Similar phase consists of the same code, except 


for address constants. 


Changing and keeping 


the various fetch operands and phase names 


correct is a tedious job. 


Second, the three overlay phases may be link- 
edited at the same location in high core, instead 
of beginning at XZ$OVLY, since the location 

of XZ$OVLY is variable from program to pro- 
gram. This technique results in each of the 
three phases in the CIL only once and under the 
Same name at the same executable core location. 
Of course, they must be high enough in core so 
that a future program's root phase that uses them 


will not be overlaid. 


Third, and the suggested tehcnique is to link 

edit the three overlay phases immediately follow- 
ing the label area, with the main or root phase 
following the end of the largest of the three phases. 


This technique makes use of 2 desirable prop- 


erties of the DOS Linkage Editor. 


Only the 


necessary number of bytes fora C.I.L. phase 
are brought into core, not necessarily a full 


block (1728 or 1688 bytes). 
shortest overlay possible. 


This results in the 


Also, core is not cleared from the end of the 


fetched phase to high core. 
phase would be cleared. 


If it were, the root 
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| mem cast Gum cme cant MnP GanD ee Wane GD GOD thn OED SEND GELD SEED san GED SED SD SED Were SE SRD SON RD GRD COND SEED SAD SCD GD SO ERED SR GONG SND GD SRE SD GD GED SSNS SAND OE SS GY SS SD SD En SD EES NEG ME ED SP AS OD WD cnt eh Sat SE WD GED SEND SEND We Gam SS GS Sn AD GES SD GET ED SD SNP GUND GD GED GENS GRD I MY GED GD GSD SHED SEND SUD GND COND GH OD MP US GY GONE GED CUD NED SOY GND GED GND SOND Gem SEND UN GRE SD EP eA mn oom 


S/ OPTION CATAL | 
ee OT VON DE iB 
ACTION MAP 


eee eee ee we eee ea MD ES GED Se en SE SD ES SY Se SD SO EN aD ene ED SE SE SNS SY OS ce ane SD ED SRN GH GE GEE WD GSE SES Ga WEED GE END uND GED ENE GST GO SU ES GEE GD NT SRD GAN SEED GE SY OED SED GONE SED SET SONS EE ET AD STP GE SIRT GID GERD RY GED SE Sy te SD GOT Dy YY ND GEN GED cH COND 


ee me eee Cee Se ee ae aD Cte Oe Bee Ce me OS me ee 0s Om ew Om Oe OSD ee Ce De em cm CD ne mm am 0 0 nm a Oe Cm a 8 om Ce 8 ED Cae OD PD RD OE  -8G D D 80 0 OD FF ED ED OF ON ED OD On OS OF OD Oe PO OP ee 


INCLUDE 10010200 

__ PHASE 1001030D,DEARUX,NOAUTO 
INCLUDE 10010300 

__-. PHASE PACIO100,# eee ee eT ere eT PERE N aaeea ne ene ae | 
INCLUDE 10010100 

INCLUDE EERE 

JLABITYP NSD{3) 

// EXEC LNKEDT 


meee eres ce ee Meme ee anne EO MY RES ESD SD GE SNES OO Mi AOD ae SED SD nt) YO GE SED ED SEND GID FOND SD GD ELA GOR Sees SOY SRD SD Sm SD Ge MY SED ENS Gee SAS GE ED Si nm GE SUE Se GD ee TD me cee cee SN ts com eas ue eae re me eee SEY ae se SE ee NY CE ED aD SD DO Ce Mw SOS NE GD SE OES SD GUD GOED GE GED GED GRD GEE GED Ste ume GOS OS Se cee en GE ee es te OO OS ee eS me ee Oo 


JOB MAC 08/28/68. DISK LINKAGE. EDITOR DIAGNOSTIC. OF INPUT ..._____-_______-___--_--. 


ACTION TAKEN... MAP..CLEAR. 0 02. 
LIST PHASE DEARUX,*,NOAUTO 
LIST  __... PHASE 1001020D,DEARUX,NOAUTO.. 
LIST INCLUDE 1001020D 
eS Viet. (PHASE TODI0F00 + DEARUX fNOAUT D ssint nin tunes ete se nl es es eet ed ® 
LIST INCLUDE 10D1030D 
SEAT ST 2 cis PHASE PACT OY OD gn a cs 
LIST INCLUDE 10D1010D 
SE PST Bee ANC CIE POG 0 UO eine ne tg tia A Spear a N  ee 
LIST INCLUDE 1HDO2100 : PAC10001 
_-LIST.._-INCLUDE.1HD03700_-----------2 pene tadee e oeeee N e PACIOON2 - 
“LIST  AUTOLINK  GETDATE. 
wa AS 1s te RON IG EY DO een et 
LIST AUTOLINK  IJCFZO14 
LIST | AUTOLINK.. IJDFAPIZ 
LIST  AUTOLINK IJGFOZZZ 
i: (ice career 3h 5, reed ene 


rere an er canner a me ee RE ne Se te te EE CS SLIT ce 


aaeree mosh Sais pe me ee ec cae am na mee meme me meee a et we a ee ce ee ee en ee ee ee ee ee mn cree meee ee me ime ee em ae ee eee ee ne ee ee ete ee ee ee 


ee ee ee ee ee me wee ee ie ee ee re a ee eee een ere ee ee ee re re en eee ee em em eee wee eee mm ce ee re cy cee wre we we ree ee ren cme cree cre ee ee ee cee ee em me ie ee eee ie eee ee ee ee cee ee oe See me ee See ee em ee te ee 


fee ee ee me me me rm ere me me te ee me ree cre eee nme ee ne mm eee ee Oe cee ee re ee ee ee ee ee cee ee em ee ee me re ee ee ee ee ee ee ee Om ete en ee me em ee ee re ee em ee ee ee ee Fe Oe ee ee eee ee 
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© _DOS/360 BILL OF MATERIAL PROCESSOR LINKAGE EDITOR TECHNIQUE 
._08/28/68.... PHASE.__XFR—-AD.  LOCORE HICOQORE  OSK-AD....ESD TYPE  tABFEIL  _ LOADED. RBEL-FR 


ee 10D1020D_ 002890 002890. 0030CE.3F 02 1. CSECT....__InD1020D._02899 on2A890..__ 
ENTRY YA$RT 002890 
10D1030D 002890 002890. OO310F 3F 03 1 CSECT a 1ND10300 002890 002890 
PACLOLOD 007304 003110 008661 3F 04 1. CSECT INN10109 003110 093110 
i ee ENTQY XA$Q2ETL 003174 
ENTRY XL$COMM 003238 
a oe ENTRY BM$PIQ9onal10 
ENTRY  MS$GRT 003199 
ee | * ENTRY X7$0VLY 00552F 
eee oo. SECT... 19C1010D O05EER ONSEFR 
pe wee SECT UU BMPOPEN OO61FEO. OO5FER | 
oo oo ee CSECT  BMPCALL 006280. O05FER 
oo oe SECT _BMPGET __006338 O05FER __ 
ECT BMPSTKY.__ 004388 OOSFER. 
oe (oe ___..... -CSECT...... BMPSTDA..._ 004380. 005FEa.___ 
oe ee  -CSECTRMPEQEpn4ang noseFR 
ee CSECT.______IHD02100._.004410.__006410.___- 


ENTRY IHD02101 006410 
CSECT IHD03700 0064C8 0064C8 
we ENTRY 03701 onsecR 
* ENTRY IHND03702 006408 


aan ne ENTRY. IHN03706.n0665¢... 
oe cone ee _.. CSECT...._. PACI010D.._006768.._006768____. 
pe OSECT CCLICEZ7ITIO 008108 OO8INDR 
ee oY 7) LUGENZ2772.._008440._ 0084460. 
ne oe ee SECT. GETDATE..._ 90B1C0 o081f0 ___ 
* ENTRY GETDAT 0081C0 
CSECT + IJDFAPIZ 008348 008348 
ee it ENTRY _ILJDEAZI72.._ 008348... 
en oo 7 LUCEZ014...098260 008260 | 


EXHIBIT I (Cont'd) 
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$/360-20 TRANSLATING PAPER TAPE INPUT = §/360-25 1440 COM PATIBILITY 
TO EBCDIC © 
To run 1440 programs ona Model 25, a 1442 
The following is a field contribution. KPQ's attached to a selector channel is necessary at 
are required which must be approved by your the present time. To run these same programs 
Regional Special Equipment Engineering depart- on a Model 25 with only a 2540, the card and 
ment prior to making any customer commitment. printer routines need to be changed to reference 
The usefulness of the approach used in this a 1402. The program then becomes essentially 
contribution should be evaluated in the potential a 1401 program and 1401 Compatibility would 
users own environment prior to implementation. be used. 1442 emulation on a 2540 was 
announced in a DP Product Announcement Letter, 
This article includes an example which illus- #268-58 on July 8. It will be available January 
trates the use of a translate table in translating 1, 1969. . 


8-track paper tape to EBCDIC using the 3903-4 
Paper Tape Reader (RPQ Y95017). A Paper 
Tape Reader Adapter (RPQ Y91034) is also 
required on the 2020. 


The 3903 can read 5, 7 or 8 track paper tape 
and can be interfaced with a S/360-20 as an 
input device. In the following example, 8-track 
paper tape code is translated into EBCDIC. 


The 127 byte table shown in Exhibit 1 must be 
generated to contain the characters of the 
EBCDIC Code in order by the binary sequence 
of the characters of 8-track paper tape code. 


NOTES: 


1. The unused bytes within the table could 
be filled with some character (i. e., FF) 
which could be used as a check. 


2. Additional characters could be added to 
the table using the following scheme: 
tape tracks, 8, 7, 6, 5, 4, 3, 2, and 1 
correspond to EBCDIC bits 0, 1, 2, 3, 4, 
5, 6, and 7 respectively. 


Specifically, the 3903 Paper Tape Reader can 
utilize this translate table as shown in Exhibit 2. 
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S/360-20 TRANSLATING PAPER TAPE INPUT TO EBCDIC 
Address of —  v.;._}O”MoMD'e.’VWOMVGMCMVMMN ——osxsxwnsahun— 


©} Translate 
Table-~ x x00 a 


xx1l0- 


ol | | 3) [sj 6 {| [ol | fe, 
xx20 
cof | tot fv] | fal | [el | 
Fivis| [ol | [xfef | fot | 
FERRER Pat | ole 


xx30 


xx40 


xx50 


xx60 


xx70 


EXHIBIT I 


Location into which Number of characters 
characters are read to be read 


O(X'UF' ,9) ,30 where UF = 02 for regular read 
where the number of characters 
to be read is indicated by the 
second operand (30 in this example) 


|| 8 
4 
ae: 


where UF = 04 for modified read 
where the number of characters 
read is terminated by an End of 
Record character or length count 
= 1. 


Number of characters Location of 
to be transmitted characters 


TR 0(30,9), TABL <«——Label of 
translate table 


TABL DC X'PFFLF2FFF4F FFFF7F8FFFF7BFFFFFF 
DC X'FF4OFF , ETC. 


NOTES : 


Ls With the DELETE switch on, fields with all eight tracks punched 
are bypassed. This may be used to correct errors in the tape. 


2% Tne E.O.R. punch is an eight punch; this character is read but 
not transmitted to the CPU. Therefore, it isn't part of the 
field, as far as length count is concerned when you use modified 
read. The number 8 E.O.R. switch must be on to take advantage 
of modified read. 


or The residual count (difference between length count and E.O.R.) 
is located in X'A4', X'AS'. 


EXHIBIT 2 
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INFORMATION ABOUT THE NEWSLETTER 


EVERY SALESMAN AND SYSTEMS ENGINEER 
SHOULD RECEIVE ONE COPY OF THE NEWS- 
LETTER. Each FE Branch Manager should 
receive five copies for distribution to Customer 
Engineers, 


The IBM Installation Newsletter is distributed 
only to IBM locations and is not available to 
customers. The Newsletter is separated into 
two parts. The first part contains information 
which is intended only for IBM personnel and 
the pages are labeled For IBM Internal Use 
Only. THESE PAGES, OR REPRODUCTIONS 
OF THEM, ARE NOT TO BE GIVEN TO 
CUSTOMERS, However, using your own good 
judgement, you may discuss pertinent informa- 
tion from these pages with a customer. The 
second part contains information which may 

be REPRODUCED by the Branch Office at their 
discretion and given to customers. These pages 
are not labeled with any restrictive classifica- 
tion. Note that when any abstracts for Type III 
programs are given to the customer, he must 
be informed that the disclaimer for Type III 
programs as contained in the Newsletter, ap- 
plies. YOUR COOPERATION IN PROPERLY 
HANDLING THE CONTENT OF THE IBM IN- 
STALLATION NEWSLETTER IS NECESSARY 
FOR ITS CONTINUED PUBLICATION, 


Changes to the quantity of the Newsletter ship- 
ped are to be made by the Administration 
Manager. (NOTE THAT EXTRA COPIES OF 
THE NEWSLETTER ARE NOT TO BE ORDERED 
FOR DISTRIBUTION OF INFORMATION TO 
CUSTOMERS.) He should update and send the 
DP Administration Managers' Communication 
Control card (form number N44-780) to DP 
Document Control, DPD HQ. 


Direct inquiries concerning the contents of this 
Newsletter to: 


W. P. Gaffigan, Editor 

IBM Installation Newsletter 
Installation Planning-#713 

DPD HQ 

ll2 East Post Road 

White Plains, New York 10601 
Telephone 914 WH9-1900 Extension 478] 
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NEW PUBLICATIONS ANNOUNCED BY PRL'S 


Information is extracted and condensed from the 
weekly PRL's (Publications Release Letters) to 
insure that all Salesmen and Systems Engineers 
are aware of new or revised Marketing Publications. 
Normally, each issue of the Newsletter will 
contain information extracted and condensed 
from two PRL's, one following the other. The 
information will be placed in the Newsletter in 
its original sequence with no rearrangement of 
form numbers or titles. It is not intended to 
replace existing information and distribution 
sources. You should be certain that you are 
aware of these sources. 


NOTE: 


Do not use the condensed Newsletter 

information to order publications. Most 

but not all (for example, some films and 

slide sets) of the items are available 

from Mechanicsburg. To receive the items 

you need without delay, prior to ordering 

check the REQ (Requisition From) code in 

the "Accumulative Supplement to IBM Pub- 
lications Current Price List (Z20-0100)"' 

which is attached to the weekly Publications 
Release Letter (PRL) and distributed to your 
Administration Manager. For an explanation of 
the REQ codes and other publications information 
see the first few pages of the "IBM Publications 
Current Price List (Z20-0100)"'. 


The Publications Requisition, form number 
MO2-0618 is used for ordering items from 
the IBM Distribution Center, Mechanicsburg, 
Pa. 


(IBM World Trade Corporation has its own 
distribution center and procedures.) 
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FORM NO, 


N20-0013-15 


N20-0015-15 
N20-0030=22 
N20-0031-18 


N20-0360.50 
N20=1852=2 


270-0092=0 
540-0504-0 
543=0062=0 
543-0511-0 
543=0512=0 


570=0295=3 
570-0417-0 
570-0418-0 
570-0419-0 
570-0420-0 


570-0421-0 
570-0423-0 
570-0424-0 
570-0425 


H20-0255=2 
H20-0256-2 


H20-0461-1 
H20-055 1-0 
H20-055 20 
N21-0095 

R20=41 20-0 
R20-41 24-0 
R20-907202 
R20-926 8-0 


V20-0016~0 
V20-0101~0 
X20=1770-0 
Y20-0232 


Y20-0234 


Y20-0244 
Y20-0250-0 
Z20=1897=29 


Z77-8084-0 
Z77=8095-0 
Z77~8096-0 
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PRL #38 September 20, 1968 
TITLE 


Catalog of Programs for 1240-1401-1420 and 1460 DPS ~- September 1968 Supplement to 
C20-1601-9 

Catalog of Programs for IBM 1620 and 1710 DPS September, 1968 Supplement to C20-1603-9 
Catalog of Programs for IBM S/ 360 = September 1968 Supplement to C20-1619-5 

Catalog of Programs for 1130 Computer System and 1800 Data Acquistion System - September 
1968 Supplement to C20-1630-4 

IBM S/ 360 Newsletter Re: A22-6822-11 

Catalog of Programs for IBM S/ 360 Model 20 September 1968 Supplement to C20=1691-1 


MARKETING PUBLICATIONS 


Issue No. 68-20 


DISPOSITION 


Instructions, Jacketed Page Holder 
Certificate of Completion 

Model "D" Short Course Booklet 
RR MT/ST Instruction Manual 

RR Mt/ ST Instruction Card 


One«Half Inch Mag. Tape Spec, Booklet 

DP Accessories Folder = System/ 360 Mod 25 
DP Accessories Folder = System/ 360 Mod 30 
DP Accessories Folder - System/ 360 Mod 40 
DP Accessories Sheet = General Purpose Cards 


DP Accessories Sheet = Ind Application Cards 
DP Accessories Sheet = DP Ribbons 

DP Accessories Sheet = Paper Forms 

DP Accessories Sheet - Magnetic Tape 


IBM S/ 360 Wholesale IMPACT Program Library (360A-DW-05X Version 2, and 360V-DW-06X) 
Program Description Manual 

IBM S/ 360 Wholesale IMPACT Program Library (360A-DW-0SX Version 2, and 360V-DW-06X) 
Operations Manual 

IBM S/ 360 Model 20 Wholesale IMPACT Program Library (360V-DW-06X) Application Description 
1450/1259 Deman Deposit Conversion Program (1450-FB~20X) Program Descritpion Manual 
1450/1259 Demand Deposit Conversion Program (1450-FB=20X) Operations Manual 

1287 Optical Reader SRL TNL Re: A21~9064=2 

IBM S/ 360 Operating System Utilities for Operators (Learner's Guide Text) 

Intermediate Course for Application Programming (ICAP) 

IBM 82 Sorter Operation «- Programmed Instruction 

Intermediate Course for Application Program (ICAP) Course Description 


IBM Inventory Management Simulator (slides) 

IBM Operating System/ 360 - Data Management (slides) 

BPS/BOS/ DOS/ TOS Sort/ Merge Reference Card 

TNL for ALIS (360A-IL-09X) File Maintenance Run Executive Program ~ System Manual Re: 
Y20-0181-0 

TNL for ALIS (360A-{L-09X) File Maintenance Include (R) Routines (Narratives) System Manual 
Re: Y20-0183-0 

TNL for ALIS (360A~IL-09X) Output Analysis Program = System Manual Re: Y20-0197-0 
1450/1259 Demand Deposit Conversion Program (1450-FB-20X) System Manual 

RPO Reference List #29 


Generating a Disk Operating System Version 3 
Modifications to OS/ 360 to Allow Use of 2301 the Drum with 2361 Large Core Storage 
The Use of the Compatibility Operating System for Upgrading of Card Systems to Disk 
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NEW 
NEW - Scrap 54020501 
NEW 
NEW 
NEW 


Use 570-0295 =2 


NEW 
Scrap H20-0255=1 


Scrap H20-02561 


Scrap H20-0461-0 & N20-1849 


Scrap R20~9072-1 
NEW 


Revised Abstract 
Revised Abstract 
NEW 
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PRL #39 September 27. 1968 


N20-1440-52 and N20-7070-34 which are announced in Publications Release Letter #39 
are not available for shipment at this time and will be shipped at a later date. 


FORM NO. TITLE DISPOSITION 
N20=1440,52 1440 SRL Newsletter Re: A24-3005-5 Scrap N20-1440,51 
N20-7070, 34 7070 SRL Newsletter E: A22-6699-4 Scrap N20-7070, 33 
Z20~1708—2 Bibliography of IBM Classified Marketing Aids Scrap Z20-1708=1 
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OS/360 DATA SET NAMING 


Data set names that begin with the letters SYS 
and have a P as the nineteenth character of 
the name should not be used. Data sets with 
such names are deleted when the IEFHPROGM 
utility is used and the SCRATCH utility control 
statement is specified with the VTOC and 

SYS keywords. 


OS/360 MESSAGES TO THE OPERATOR 


The following contribution has not been sub- 
mitted to any formal IBM test. Potential 
users should evaluate its usefulness in their 
own environment, including maintenance, 
prior to implementation. 


Under OS/360 MVT, messages to the operator 
are buffered using main storage in the system 
queue area (SQA) for buffers. Both the maxi- 
mum number of buffers (at 144 bytes each) 
and the initial size of the SQA are specified 
when the system is generated, using respec- 
tively the WTOBFRS parameter of the 
SCHEDULR macro instruction and the 
QSPACE parameter of the CTRLPROG macro 
instruction. Default values are 100 buffers 
and a 20K SQA initially. (The size of the SQA 
may be set to a larger value when the 
Operating System is loaded; thereafter, if 
additional space is required, the SQA will 
expand in 2K increments. ) 


The program shown in Exhibit 1 provides an 
example of a technique for monitoring the 
number of buffers actually used at an instal- 
lation. Several factors influence the maximum 
number of message buffers required at any 
one time. One, of course, is the number 

and frequency of WTO macro instructions 
issued by the programs being run. Another 
factor is the number of volume mounting 
messages generated by the system to fulfill 
the device allocation requirements of the JCL 
it is processing. A third is the number of 
jobs in the system when the operator issues 

a DISPLAY N command (including jobs 
waiting to be initiated and those which have 
been executed but whose output has not yet 
been processed by an output writer, as well 
as those currently running). A fourth is the 
number of tasks active when a DISPLAY A 
command is issued. 


Zz 
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Frequent use of these DISPLAY commands is 
recommended in the SRLs to provide the 
operator with status information. Note, 
though, that in addition to generating a string 
of messages which occupy the buffers, that 
when the system is responding to a DISPLAY 
command and is also trying to issue an opera- 
tor-intervention message (suchas a volume 
mounting instruction), the action message will 
not be written to the console until all lines of 
output have been written in response to the 
DISPLAY command. Having only a few jobs 
in the system or a few active tasks can cause 
a delay of twenty seconds or more until the 
action message is seen by the operator. 


The program is useful for monitoring the 
number of buffers required at a particular 
installation, taking into consideration all of 
the above factors. Running it in conjunction 
with both a user's workload and his operating 
procedures (suchas the frequency of issuing 
DISPLAY commands and the number of 
reader, initiator, and writer tasks he starts) 
will provide data that could be used to 
calculate the parameter values to specify at 
system generation time and to devise better 
operating procedures. Sample JCL to run 
the program is shown within the program 
listing. 


This program has been used to demonstrate 
(a) that the use of the various DISPLAY 
commands drastically increases the extent of 
the backlog of messages to the console, (b) 
that if sufficient buffers are not provided to 
handle the backlog, the time to processa 
jobstream is increased proportionately to the 
amount of typing wait time introduced, (c) 
that a guideline for an adequate number of 
buffers is: three times the number of active 
initiators plus the maximum number of jobs 
expected to be in the systern at any one time, 
and (d) that the consequence of allowing too 
many buffers is trat the SQA will attempt to 
expand to accommodate them as they are 
filled, but if the SQA cannot expand (the next 
adjacent 2K area of storage is in use by a 
task in the dynamic region) the system is put 
into a wait state and must be reloaded. 
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OS/360 MESSAGES TO THE OPERATOR 


WTOCHEK CSECT 
WRITE TO OPERATOR BUFFER UTILIZATION MONITOR -— WTOCHEK 


THIS PROGRAM IS DESIGNED TO RUN UNDER OS/360 MVT. IT 

RUNS AS A BACKGROUND JOB DURING THE EXECUTION OF A 
CONTROLLED JOBSTREAM FOR THE PURPOSE OF ACCESSING THE 
CELLS CONTAINING THE CURRENT WTO MESSAGE AND REPLY BUFFER 
COUNTe ALL STATISTICAL INFORMATION IS PRINTED OUT WHEN THE 
JOBSTREAM BEING RUN HAS COMPLETED AND ALL. INITIATORS 

HAVE BEEN STOPPED. 


INPUT/CONTROL STATEMENTS 
PARM FIELD OF EXEC STATEMENT MUST CONTAIN A 4 DIGIT 
DECIMAL NUMBER REPRESENTING THE TIME INTERVAL» 
IN HUNDRETHS OF SECONDS» AT WHICH @WTOCHEK@ WILL 
RECEIVE CONTROL THROUGH AN INTERVAL TIMER INTERRUPT. 


A DD STATEMENT SPECIFYING THE SYSOUT DATA SET FOR 
OUTPUTTING STATISTICAL DATAS DDNAME#AWTODAT 


//STP1 EXEC PGM#AWTOCHEK »PARM#@0200@ 
//WTODAT DD SYSOUTHAsDCBAOLRECL#121 sBLKSIZE#121* 


OPERATOR MESSAGES- 
A MESSAGE IS WRITTEN TO THE OPERATOR AT INITIALIZATION 
AND IN THE EVENT THAT THE DATA STORAGE AREA OVERFLOWS. 
PROCESS LOOP 


e@STIMER@- SET TIME INTERVAL TO RECEIVE CONTROL 
AT SET INTERVALSe 
e ACCESS WTO BUFFER COUNTS THROUGH CVT 


° CVTe100 POINTS TO UNIT CONTROL MODULE oUCM* 
% *# & % % & UCM OFFSETS * * * * # * = ¥ 
* 


OFFSETHDEC*® SIZE CONTENTS oBIN* 
* * 
UCMe52 * 2BYTES *CURRENT REPLY 
* *BUFFERS IN USE 
* 2BYTES *CURRENT MESSAGE 


* *BUFFERS IN USE 
He RH HHH HH HR HH HH HH H 


UCMe54 


* OK OK ok Ok kK OK 
*% OK OK OK ok OK Ok 


* CVTe148 POINTS TO MASTER SCHEDULER RESIDENT 
DATA AREA 


MSRDAe42 CONTAINS 1 BYTE CELL oBASTPNIT* 
CONTAINING THE STOP INITIATOR COUNT 


e WHEN ABOVE CELL CONTAINS A COUNT GREATER THAN 0 
OR WHEN BUFFERS OVERFLOW THE GETMAIN BUFFER AREAs 
WTOCHEK COMPILES AND OUTPUTS ALL STATISTICS 

IT IS NECESSARY TO MANUALLY SET THE CELL TO nl1* 

IN RELEASE 15 MVT OR LATERe IN PRIOR RELEASESs THE 

INITIATORS BEING STOPPED WILL SET IT TO 1 OR MORE 


Ok Ok OK OK Ok Ok Ok Ok Ok ok ok Ok ok ok ak ok ok ok ok ok OK ok ok ok Ok Ok ak ok Ok Ook 2K Ok Ok Ok ok Ok Ok ok OK OK OK ok KK Ok ok Ok ok ok OK ok 2k 
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1968 
0S/360 MESSAGES TO THE OPERATOR 
e STORE BUFFER COUNT DATA IN GETMAIN AREA 
e IF THE DATA COLLECTION AREA BECOMES FULL 
DURING EXECUTIONs THE PROGRAM WILL AUTOMATICALLY 
PURGE ALL DATA AND TERMINATEe THE AREA USED FOR 
DATA COLLECTION SHOULD BE INCREASED IN SIZE 
OUTPUT 
e REPORT OF BUFFER UTILIZATION 
* INTERVAL* WTO BUFFERS IN USE * 
NUMBER MESSAGE REPLY 
¥& * * % 
1 01 01 
* 2 % 03 # 00 * 
3 06 02 
* 4& * 04 * 02 * 
* % % * 
e e eo 
* * *% % 
e CLOSE SYSOUT 
e REINITIALIZE AND CONTINUE OR TERMINATE UPON 
OPERATORS REPLYe 
REQUIRED CONFIGURATION AND REGION 
e INTERVAL TIMER 
e 30K MINIMUM REGION O25KGETMAIN ALLOWS 
WTOCHEK TO GAIN CONTROL 
129500 TIMES TO MONITOR 
BUFFER COUNTS* 
EQU 0 
EQU 1 
EQU 2 
EQU 3 
EQU 4 
EQU 5 
EQU 6 
EQU T 
EQU 8 
EQU 12 
EQU 13 
SAVE 914512*%s »WTOCHEK 
BALR RB2»RO 
USING *»RB 
ST 132SAVARe4 
LR 10913 
LA 13esSAVAR 
ST 1398n010* 
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OS/360 MESSAGES TO THE OPERATOR 


L R2s0n0R1* GET TIME INTERVAL FROM 
PACK WKAR1¢404*52049R2* PARM FIELD AND 

CVB R3sWKAR1 CONVERT FOR TIME 

ST R3eTIMINT INTERVAL MACRO 

L RO»sMAIN 

GETMAIN RoLV#¥n0* GET STORAGE 

ST R1l»DATBUF FOR DATA 

ST R1lsBUFPTR INITIALIZE START PTR 

L R2sMAIN COLLECTION 


AR R2s9R1 
ST R2sENDBUF 


% INITIALIZE POINTER TO CELLS IN UCM 
L R29X@10@6 CVT POINTER 
L R3s100HR2* UCM POINTER 
LA R4s52n0R3* BUFFER COUNT CELLS IN UCM 
ST R4sUCMPTR SAVE POINTER 
L R3s148o0R2* MS RESIDENT DATA AREA 
LA R4s420R3* ADDR OF 1BYTE STOP INITIATOR COUNT 
ST R4esSITCTR SAVE POINTER 
% 
% WTO MESSAGE AND ENTRY FROM SYSOUT PROCESSING 
* 
WTOC] EQU % 
% NOTIFY OPERATOR OF STATUS AND WAIT FOR REPLY 
WTO @BEGIN WTO BUFFER ANALYSIS AT SET INTERVAL@ 
*% 
* BEGIN ANALYSIS LOOP YES 
% 
WTOC2 LM RlsR4sBUFPTR 
* RETRIEVE INFORMATION FROM UCM 
MVC OolsR1l*.1laR3* MOVE REPLY BUFFER COUNT 
MYC lolsR1i*>s3oaR3* MOVE MESSAGE BUFFER COUNT 
LA Rle2uRli* 
ST R1»sBUFPTR SAVE NEW BUFFER POINTER 
CLR R1l»sR2 END OF AVAILABLE SPACE 
BNL WTOC3 YES 
CLI OOR4*»Xe00e NOs INITIATORS STOPPED. END OF J/Se 
BNE WTOC31 YESe PREPARE FOR PRINTOUT 
STIMER WAITsBINTVLATIMINT NOe SET TIMER AND WAIT 
B WTOC2 
* 
* OUTPUT ROUTINE- ALL DATA IS OUTPUTTED AT THE END OF A RUN OR 
* WHENEVER THE BUFFERS ARE FULL. 
t 
WTOC3 LR R6eR1 
* NOTIFY OPERATOR OF END OF AVAILABLE BUFFER SPACE 


WTO @DATA COLLECTION AREA FULLs PURGING TO SYSOUT e 


* OUTPUT DATA TO SYSOUT 
*% 
B WT0C311 
WTOC31 LR R6eR1 LAST DATA STORED 


WTOC311 EQU * 
OPEN NDCBOUT sHOUTPUT ** READY OUTPUT D/S 
LA R891 
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OS/360 MESSAGES TO THE OPERATOR 


L R5 »sDAT BUF TOP OF DATA AREA 
WTOC32 GC WKBUF »WK BUF 
XR R3sR3 
NI LSWsX@FE@ 
MVC WKBUFR50*sHDR SET UP HEADER 
PUT DCBOUT » WKBUF 
2s R7sLINCNT LINE COUNTER 
WTO0C33 XC WKBUF »WKBUF 
Ic R3sO0nR5* PICK UP REPLY COUNT 
CvD R3sWKARI CONVERT COUNT 
UNPK WKBUF.44n3*.WKAR1.602* FOR 
OI WKBUF e465X@F 0@ OUTPUTTING 
t 
Ic R3s]1o0R5* PICK UP MESSAGE BUFFER COUNT 
CvD R3sWKARI CONVERT COUNT 
UNPK WKBUF e2603*»WKAR1-602* FOR 
QO! WKBUF «28 »X@F 0@ OUTPUTTING 
CvD R8sWKAR]I] CONVERT INTERVAL COUNTER 
UNPK WKBUF .405* »WKAR1.404*# 
OI WKBUF «8 sX@F0@ 
LA R8s10OR8* UPDATE INTERVAL COUNT 
BcT R7sNEWLIN 
O] L SW »Xxe01@ SET FOR NEW PAGE 
t 
NEWLIN PuT DCBOUT »WKBUF OUTPUT RECORD 
LA R5s20R5* UPDATE BUFFER POSITION 
CLR R5sR6 LAST SET OF DATA OUTPUTTED 
BNL WTOTERM YES 
TM LSW»XxXe01e NOs CONTINUEee NEW PAGE @ 
BO WTOC32 
B WTO0C33 NOs NEW LINE 
% 
% TERMINATION ROUTINE 
% 
WTOTERM L RO»MAIN SIZE 
L R1sDATBUF ADDRESS 
FREEMAIN RoLV#nN0* sA#n1]* 
CLOSE DCBOUT 
L 139401] 3* 
SR 15915 
ST 15916013* 
RETURN 014012*sRC#0O15* 
* 
* 
WKARI DC Deve 
WKAR2 DC Deve 
MAIN DC F@12288@e 
SAVAR DS 19OF 
DAT BUF DS F 
TIMINT DS F 
BUFPTR DS 4F 
ENDBUF EQU BUFPTRe4 
UCMPTR EQU BUFPTRe8 
SITCTR EQU BUFPTRel2 
LINCNT DC Fe4s8e 
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OS/360 MESSAGES TO THE OPERATOR 
WECB DC Fedve 
WREP DC Fe@0®@ 
L SW DC x@00e 
HOR DC C@LINTERVAL NO» MESSAGE-BUFFERS REPLY BUFFERS@ 
DS OD 
WKBUF DS CL121 
* 
DS OF 
DCBOUT EQU * 
DCB DSORG#HPS »sMACRF #PMsEROPT HACC » * 
RECFM#F SA» x 
DDNAME #WTODAT 
END 
/* 
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OS/360 SPECIFICATION OF FIFO OR PRIORITY 
QUEUEING FOR I/O REQUESTS 


The IO REQUE option of the IO DEVICE SYS- 
GEN macro specifies the type of I/O request 
queueing to be provided by the supervisor for 
the device. FIFO specifies first-in-first-out 
queueing. PRIORITY specifies queueing accord- 
ing to task priority. Ona given channel, I/O 
requests for those devices which have been 
specified as PRIORITY will, as a group, have 
channel priority over I/O requests for those 
devices which have been specified as FIFO. 
Within the group of devices specified as PRIOR- 
ITY, I/O requests are assigned channel priority 
according to the priority of the associated tasks. 
Within the group of devices specified as FIFO, 
I/O requests are assigned channel priority on 

a first-in-first-out basis. 


PRIORITY queueing is most useful for devices 
associated with tasks which require high 
response and fast turn-around time. Telepro- 
cessing applications are a group that might fall 
into this category. 


It should be noted that an I/O bound task using 
devices which have been assigned PRIORITY 
queueing can monopolize the channel for an 
extended period. If this happens, lower priority 
tasks using PRIORITY devices on that channel, 
and all tasks using FIFO devices on that channel 
will have to wait and their throughput will be 
degraded. 


It is recommended that a detailed study of its 
impact be made to justify the use of PRIORITY 
queueing in the normal batch environment. 


OS/360 MSGLEVEL = 1 DEFAULT OPTION 
FOR MVT SYSTEMS CLARIFICATION 


Installation Newsletter issue 68-17 contained, 
on page 2, an article on the above subject. 
The article contained some typographical 
errors and is reprinted below and replaces 
the article in issue 68-17. 


The following contribution has not been sub- 
mitted to any formal IBM test. Potential users 
should evaluate its usefulness in their own 
environment prior to implementation. 


The Super-Zap fix shown below will 

allow a MSGLEVEL = 1, a default option. 
This avoids the need to punch MSGLEVEL =1 
in a job card, 


SYS LIB DD DSNAME=SYS1. LINK LIB 


NAME [EF VHA IEFVJA 
VERIFY 0036 D100, 8007, CO19 
REP 0036 921x, 8007, 0700 


Where ''x'' is the hexadecimal default 

priority specified in the reader procedure for 
jobs. The above has not been checked against 
the coding for MF T-II. 
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OS/360 CREATING MULTIPLE PDS FILES 


OS/360 RELEASE 16 FORTRAN GSP SPEC A ON A VOLUME WITH IEHMOVE 


GRAPHIC SUBROUTINE ADDITION 


Multiple PDS files on a single volume - The 
Utility Program IEHMOVE will create a 
second or subsequent data sets ona standard 
label tape if the correct utility control state- 
ments are used. The data set sequence 
number ona tape volume must be specified 
in the utility control statement as specified 
in the Identification Parameters section of 
For example, the oe subroutine PSGMT fhe Utiaties SR ic. ospes 24-25 tenn 
generates the graphic orders to draw vectors 608-0 s0020:, and shoulder setaweci aed in 
on the 2250 screen; the pre-defined status for ha Tei TO OB eistanenk. 
this routine is LOAD. If the programmer 
CALL's PSGMT only once in his program it 
would enhance overall performance to LINK 

to the routine; the copv would then be deleted 
after the vector orders were generated, 
resulting in additional core being available. 
SPEC may be CALL'ed at any point in the 
program and as many times as desired. 
Therefore, through the use of SPEC, a signi- 
ficant improvement in performance may be 
realized. See SRL OS/360 GPS for 

FORTRAN IV (C27-6932) for more information. 


With OS/360 Release 16 the FORTRAN user 
has the ability to change the pre-defined LINK- 


LOAD status of GSP (Graphic Subroutine Pack- 
age 360S-LM--537) subroutines. Use of this 


subroutine can optimize the core vs. speed 
tradeoff. 


However, this 
point is not clearly defined in the Utilities 
SRL and a mistake could be made. 


OS/360 ADVANCED OPERATOR TRAINING 
COURSE 


The S/360 OS Advanced Operator Training 
Self-Instruction--is now available. This course 
is provided for System Operations personnel 
who perform the specific function of analyzing 
Operational situations requiring corrective 
action and executing such action. It is intended 
to be conducted on the user's site. The course 
consists of a series of PI and Student Texts 
which the student will read before performing 
hands-on exercises or participating in scheduled 
group discussions. The complete guideline for 
the conduct of this course and the recommended 
Sequence of modules is contained in the Oper- 
ator Training Discussion Guide (R20-4122) 
which also outlines the topics of the planned 
discussion sessions. This guide will be used by- 
the course administrator who should be fully 


where: n = number of indexed files opened. qualified in OS Operations and capable of moni- 
toring this training program. 


OS/360 PL/I ISAM FILE PROGRAMMING TIP 


Even though ISAM files always have recorded 
keys, if the KEY or KEY TO option is not 
used on a READ, DO NOT specify the KEYED 
attribute for SEQ INPUT and/or UPDATE files. 
This will reduce core requirements by keeping 
the QISAM SETL routine from being loaded at 
OPEN time. The storage saved can be 
approximated by the following formula: 


1816 + 320n 


All elements of the course may be ordered by 

the IBM Branch Office from Mechanicsburg on 
standard requisition forms. The number of the 
course description is R20-9244+-0, and the number 
of the Discussion Guide which details the course 
conduct is R20-4122., 
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DOS/360 COBOL 1400 SERIES LABEL 


List of Course Elements PROCESSING 
The following is a field contribution which has 
A. For the St : 
or the Student: not been submitted to any formal IBM test. 
3 Potential users should evaluate its usefulness 
System/360 OS Concepts for Operators in their own environment prior to implementa- 
Learner's Guide Text R20-4114 tion 
Learner's Guide Illustrations R20-4115 | 
When creating 1460 tapes with a S/360 DOS 
JCL for Operators 


COBOL program, the following procedures will 
eliminate the tapemark on the output tape and 
write an 80 character label at the beginning of 
the tape. Note that this procedure does not do 
any label checking nor does it detect wrong 


length records that are less than the maximum 
record length. 


Learner's Guide Text R20-4118 
Learner's Guide Illustrations R20-4119 


Utilities for Operators 
Learner's Guide Text R20-4120 
Learner's Guide Illustrations R20-412] 


System/360 Assembler Language Coding 
System Review Text (PI) R29-0231 


. FD TAPE-IN 
Depending upon student experience, the following 


may also be required: RECORD CONTAINS 8@ TO 12% CHARACTERS 
Computing Systems Fundamentals PI course RECORDING MODE IS U 
. LABEL RECORDS ARE OMITTED 
Unit 1 R29+0241 
Unit 1 Notebook R29-0242 DATA RECORDS ARE RECORD-A, RECORD-B. 
Unit 2 R29-0243 
Unit 3 R29-0244 
Unit 4 R20-0245 O01 RECORD-A PICTURE X(8@). 
Unit 5 R29-0246 
Unit 6 R29-0247 $1 RECORD-B PICTURE X(12@). 
Units 2-6 Notebook R29-0248 
OS Syst Operati 
ystems peration FD TAPE-OUT 
Text C20-1680 RECORD CONTAINS 84 TO 12@ CHARACTERS 
Illustrations C20-1681 
Exercise V25-6463 RECORDING MODE IS U 
B. For the Course Administrator (in addition LABEL RECORDS ARE OMITTED 


b 
to above) DATA RECORDS ARE RECORD-1, RECORD-2. 


System/360 OS Operator Training 


Discussion Guide R20-4122 O01  RECORD-1 PICTURE X(8@). 


Operator Training Mini-Reel R20-4123 1 RECORD-2 PICTURE X(129), 


PROCEDURE DIVISION. 
ENTER LINKAGE. 
CALL 'NOMARK' USING TAPE-OUT. 


ENTER COBOL. 
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OPEN INPUT TAPE-IN, OUTPUT TAPE-OUT. 
READ TAPE-IN AT END GO TO END-ROUTINE. 


WRITE RECORD-1 FROM RECORD-A. 


The NOMARK routine modifies Byte 32, 
bit 6 of the DTF for the tape output file, so that 
a tape mark is not written on the output file. 


// JOB NOMARK 
// OPTION DECK 


// EXEC ASSEMBLY 


NOMARK START Y 
ENTRY NOMARK 
SAVE (14,12) 
BEGIN BALR 19,9 
USING *,16 
L 2,0(9,1) LOAD DTF ADDRESS 
OL 32(2) ,X'@2' SET ON BIT 6 
RETURN (14,12) 
END 


J* 
/¢ 
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S/360-20 RPG USE OF MR INDICATORS 
ON OUTPUT 


The following is a field contribution. It illus- 
trates the incorrect and correct use of MR 
Indicator on Output Specifications in conjunction 
with card type indicators. See Exhibit 1. 


Example l. 


Ol and 02 are secondary file card type 
indicators. With this coding, the first 
detail card of a detail group is not 
punched with information from a matching 
master card. All other detail cards that 
match the master are punched correctly. 


Example Z. 


All matching detail cards are punched 
correctly. 


Installation Newsletter issue 68-11, dated 
June 14, 1968 contained an article, on page 7, 
with the above title. The author has provided 
corrections and replacement Calculation Spec- 
ifications as shown in Exhibit 1. This article 
replaces the previous one contained in issue 


68-11. 


The following field contribution has not been 
submitted to any IBM test. Potential users 
should evalu te its usefulness in their own 
environment prior to implemenation. Exhibit l 
is an example of an RPG routine for aging. 

Two input fields (which allow for a difference 
of up to 999) are used: 


1. A control date (CURDAT) - YYMM 
2. A transaction date (TRNDAT) - YYMM 


Two changes have been made to the Calculation 
Specifications which added: 


1. Indicators for the current month and not 
yet due have been added. 


2. Factor | has been added to the compare 
instructions. 


IT 
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NEW TYPE Ill PROGRAMS 


The following are,the abstracts of programs which have been recently made available 
from the Type III library. 


The program, along with its complete abstract, will be incorporated in subsequent 
issues of the Catalog of Programs. 


Programs may be obtained by submitting a properly completed ''General Program 
Request Card" (Form Number 120-1145) to the Program Information Department, 
40 Saw Mill River Road, Hawthorne, New York, 10532. 


These programs and their related documentation are distributed by IBM in the 
author's original form and have not been subjected to any formal testing. 


Any discussions of Type II programs with customers must emphasize the following 
points: 


l, Type III (IBM employee-contributed) programs are provided by 
the IBM Corporation as part of its service to customers. 


2. Type III programs have not been subjected to any formal test. 

3. Recipients of Type III programs are expected to make the final 
evaluation as to the usefulness of the programs in their own 
environment. 

4. There is no committed maintenance for Type III programs. 


However, any changes the author chooses to make will be 
announced in subsequent issues of the Catalogs of Programs. 


5. IBM makes no warranty, expressed or implied, as to the 
documentation, function, or performance of Type III programs. 


*NOTE: THE CUSTOMER MUST BE INFORMED THAT THE 
ABOVE APPLIES TO ANY OF THE FOLLOWING 


TYPE II ABSTRACTS FURNISHED TO HIM, 


---REVISION--- 


MODEL 20 RPG/BAL RELOCATABLE FEDERAL 
WITHHOLDING TAX ROUTINES. Revised 
documentation and machine readable material. 


Ordering Procedure: Order File Number 
360E-21.1.001 


The program material can be obtained in card 
form or on one 9 track or 7 track (Data Con- 
version feature required) Distribution Tape 
Reel (DTR). 


If not specified, a 9 track DTR will be provided. 
No tape submittal is required. The DTR will 
be provided by the Library. 


_--REVISION--- 


ARRAY PROCESSOR ACCESS METHOD FOR 
IBM SYSTEM 360 MODEL 44. 


Revised program documentation and machine 
readable material. 


Ordering Procedure: Order File Number 
360D-03. 4.019. 


The program material can be obtained on one 9 
track or 7 track (Data Conversion feature 
required) Distribution Tape Reel (DTR). 


If not specified, a 9 track DTR will be provided. 
No tape submittal is required. The DTR will 
be provided by the Library. 
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HOUSTON AUTMATIC SPOOLING PRIORITY 
SYSTEM-II. The HASP SYSTEM is an automati 
SYSIN/SYSOUT/SYS PUNCH SPOOLing program 
with the ability to operate an essentially unlimi- 
ted number of peripheral devices (including 
high-speed remote batch terminals) concurrent- 
ly in conjunction with OS/360 processing. A 
variable number of 2311 and/or 2314 direct 
access modules are utilized for intermediate 
storage. Because of the Specialized, singular 
use of resources available to HASP, very 
efficient algorithms have been employed to opti- 
Any standard 
OS/360 job can be processed under a system 
utilizing HASP with no changes to the deck, and 
can make full use of the programming capa- 
bility and flexibility offered by OS/360. HASP 
will operate inter-changeably with either the 
MFT or MVT options of OS/360-Release 15/16, 
but has been designed to be as release indepen- 
dent as possible to permit adaptation to future 
Operating System releases. No modifications 
are required to OS/360. HASP can be utilized 
on any System/360 capable of supporting either 
of the aforementioned options of the Operating 
System, The program source is in OS/360 


mize function and performance. 


Assembly Language and has a minimum storage 
requirement of approximately 36K. 

Ordering Procedure: Order File Number 
360D-05. 1.014. 


To obtain program material submit one 2400 
foot reel of magnetic tape. Specify whether 7 
or 9 track recording is required. If not 
specified, 9 track recording will be used. 


The required tape may be ordered from IBM or 
supplied with your request for the program. 


MODIFIED COMPUTER PROGRAMS QUANTI- 
TATIVE ANALYSIS WITH ELECTRON MICRO- 
PROBE ANALYZER, A description of two 
FORTRAN IV computer programs is presented 

to simplify quantitative analysis with the Electron 
Microprobe Analyzer. The first program, 
EPMPI1, determines the weight fraction of each 
element in a specimen from the characteristic 
X-ray intensity measurements of the specimen 
and the standards. The second program, EPM P2 
calculates the relative characteristic X-ray 
intensities of all the elerrents in a specimen by 
assuming the composition of the specimen to be 


known. The correction procedure includes dead 
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time correction, one of two background correc- 
tions (either constant background or background 
depending on composition), Philibert's absorption 
correction modified by Duncumb and Shields, one 
of three fluorescence corrections (either Birks’, 
Castaing's, or Reed's), and a compound stan- 
dard correction. The effects of the absorption 
and the fluorescence of each element in the spec- 
imen are easily seen from the output results. 
Versatility, efficiency, and ease of operation 
Program list- 
ings, input data format, and various examples 


are emphasized in the programs. 


showing the usage of the programs have been 
included in the Appendices. The programs operate 
under IBM S/360 Operating System with FOR- 
TRAN (level H) compiler and require a minimum 
core storage of 36K Bytes. 

Ordering Procedure: Order File Number 
360D-17.1. O01. 


The program material can be obtained in card form 
or on one 9 track or 7 track (Data Conversion 
feature required) Distribution Tape Reel (DTR). 


If not specified, a 9 track DTR will be provided. 
No tape submittal is required. The DTR will be 
provided by the Library. 


KWIC/360- A KWIC AND KWOC INDEXING 
PACKAGE FOR SYSTEM/360. A package of 
four programs has been prepared which will 
accept data punched in the standard KWIC format 
as described in Form No. E20-8091 and will 
produce, at the user's option (a) Bibliography, 
(b) Author Index, (c) Permuted Title Index - 
KWIC format, (d) Permuted Title Index - KWOC 
format, (e) Assigned Descriptor Index. Most 
of the features of the 1401 program will be pro- 
vided with, in addition, the ability to delete and 
replace entries in the bibliography, together 
with a more comprehensive list of stopwords, 
up to 255 to be nominated by the user. The 
programs are written in PL/1 with Assembler 
Language subroutines to run under OS/360. 


KWIC/360 runs as one or more jobs under con- 
trol of Operating System/360. It is necessary 
to include the PL/I Compiler when the system 
is generated. This is to ensure that the PL/I 
error handling package, which is called dynam- 
ically when it is needed, is present in the sys- 
tem Link Likrary. The largest program is 
KWICA with a Load Module of about 32, 000 
bytes, plus automatic variables occupying a 
further 8,000 bytes. Precise storage will 
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depend on options selected, blocking factors, 
and number of buffers allocated to the various 
files. It should be possible to run this program 
in a 44K partition, but many applications will 
require more. Other programs should run in 
44K unless very large blocking factors are used. 


All programs in the KWIC/360 package are 
re-entrant. 


Ordering Procedure: Order File Number 
360D-06. 7. 014. 


The program material can be obtained on one 9 
track or 7 track (Data Conversion feature 
required) Distribution Tape Reel (DTR). 


If not specified, a 9 track DTR will be provided. 
No tape submittal is required. The DTR will 
be provided by the Library. 


PRIORITY OUTPUT WRITERS EXECUTION 
PROCESSORS, AND INPUT READERS. 

This DOS system is an automatic SYSIN/ 
SYSLST/SYSPCH spooling processor which 
requires no IBM or user program changes. 
Using a variable number of 2311 or 2314 mod- 
ules for intermediate storage, this program 
acts as a peripheral processor and priority 
scheduler for normal batch processing under 
DOS. It can, simultaneously, operateup to 26 
pheripheral devices, maintain unique input/ 
print/punch or print/punch streams for one or 
two DOS batch partitions. 


Machine Configuration: any hardware which 
support DOS; practically, however, 32K or 48K 
would be minimum core. 


Programming SYSTEMS: Standard DOS. 
Source Language: ASSEMBLY LANGUAGE 
Storage Requirements: varies based on 
SYSGEN options; minimum would be 12K. 


Ordering Procedure: Order File Number 
36UD-05. 2. 006. 


The program material can be obtained on one 9 
track or 7 track (Data Conversion feature 
required) Distribution Tape Reel (DTR). 


If not specified, a 9 track DTR will be provided. 


No tape submittal is required. The DTR will 


be provided by the Library. 
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COLORANT DATA PLOTTER. The purpose of 
this program is verification of primary colorant 
data used in color matching programs such as 
the Type III 1130-16.3.001. The program pro- 
duces a graph of K/S (K/S is a mathematical 
expression of the characteristics of a color and 
is a function of the percent of reflected light 
incident upon a colored sample) vs. wavelengths 
of light within the visible spectrum. These 
curves of K/S vs. wavelength are produced for 
up to nine concentration levels of a primary 
colorant and can be analyzed for accuracy. 


Also produced is a plot of K/S vs. concentration 
at the point of maximum absorption, which should 
approach a linear relationship, and which can be 
analyzed for linearity as well as for accuracy. 


The program is to be supplied in FORTRAN 
source form. The required configuration is 
at least an 8K 1130, DISK, 1442, and either 
TYPEWRITER or 1132 PRINTER output. 


Ordering Procedure: Order File Number 
1130-16. 3. 002. 


Distribution will be in card form only. 


A GENERALIZED INDEXED, SEQUENTIAL 
MAIN FILE WITH LINKED OVERFLOW APPLI- 
CATION FOR 1130/1800 USERS. This set of 
programs is meant to give the 1130/1800 user 
an index sequential type file organization that 

is as general in its applications and as easy to 
use as possible. It consists of five programs to 
create, process randomly, process sequentially, 
add to and delete from the file. An attempt has 
been made to use and expand upon the ideas and 
methods in the disk file organization and pro- 
essing portion of the 1130 Commercial Program- 
ming Education Guide. 


Each of the programs is a main-line program, 
but can be modified to be a subroutine. There 
are a minimum number of changes to be made 
to modify them to apply to different files or 
systems. All are written in FORTRAN to sim- 
plify user modification. 


Ordering Procedure: Order File Number 
1130-06. 7. 002. 


Distribution will be in card form only. 
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SELECTED SHORT SUBJECTS *SECOM, the Catalogs of Programs, and 


the KWIC Index to TIE identify these | @ 


The purpose of Selected Short Subjects is to activities. 


bring together and highlight concise, factual 
and timely information which will indicate 


s: theteeetion ta tobe taken by MSIE MC scores OS/360 TRACE TABLE CONSIDERATIONS 


sentative whose accounts are affected. 


Ls 


QUESTER-Reducing Duplication of Effort 


Are you about to develop a special 
program modification or routine? Would 
you like to find someone who is considering 
or has already satisfied a similar require- 
ment? If so, have you considered 
QUESTER? 


QUESTER is designed to reduce dupli- 
cation of effort. It may help you! 


QUESTER (QUEstion or Solution To 


Eliminate Redundancy) is an internal 


IBM system which provides for the 
exchange of information between Branch 
SE Managers. This information source, 
originally developed by the regions, is now 
coordinated by DP Systems Engineering, 
DPD HQ. 


QUESTER data consists of statements of 
special local requirements and branch 
development activities which may be of 


general use but are not planned to result 


in IBM Type III or Type IV programs or 
TIE papers. * 


Monthly, a KWIC Index with abstracts of 
DP and WTC branch office efforts and 
needs is prepared and distributed to each 
SD&I Center. 


To take advantage of this information 
exchange, your SE Manager can submit 

a QUESTER form stating your need or 
planned project to your SD&I Center. He 
in turn will be advised of other locations 
having similar needs or completed activi- 
ties. As your project is completed, it 
should also be reported using the 
QUESTER forms so that others may bene- 
fit from your efforts. If your branch 
office is out of forms, additional padded 
sets may be obtained through your SD&I 


Center or Regional QUESTER co-ordinator. 


Inclusion of the optional trace table is recom- 
mended in all systems where available core 
storage allows this to be done. The trace table 
contains valuable debugging information per- 
taining to SIO instruction executions, SVC 
interruptions and I/O interruptions. 


The user specifies the number of entries 
desired by the TRACE option of the SUPRVSOR 
SYSGEN macro. The entries are 16 bytes long 
for PCP and MFT II, and 32 bytes long for MVT. 


For the trace table to be generally useful, the 
recommended minimum is 250 entries. 


If a user desires the advantages of a trace 

table, but cannot spare the core storage, he 

can use alternate approaches. One alternate 
approach is to generate his system with both a 
primary and an alternate nucleus. The primary 
nucleus would be used for normal operation, and 
would not contain a trace table. The alternate 
nucleus would contain a trace table of sufficient 
size and would be used only when the trace table 
facility is needed. 


A second alternate approach would be to generate 
a trace table with the minimum number of 

entries and then expand the table when it is 
needed. Field Engineering has a new program 
which can be used to expand the trace table 

after the system has been IPL'ed. Check with 
local Field Engineering as to the possibility of 
their making this Service Aid program available 
for this purpose, The program name is EXTEND 
and it is available as PTF 01100-00. 


DOS/360 COMPATIBILITY SUPPORT/40, 
TYPE I 


The following information is provided for 
planning purposes only. The actual availability 
and specification will be as provided through 
the formal IBM procedures. 


The purpose of this article is to stress the 
importance of detailed planning, which is a 
must before installing Compatibility Support/40 
(CS/40), Type I, announced in letter P68-99. 
After availability of CS/40, scheduled for 
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release April 30, 1969, PID will not distribute 
the Type III COS programs. There will also 
be no maintenance or modifications for 
installed Type III COS accounts. The follow- 
ing are requirements for the operation of 
CS/40 on a Model 40 other than those required 
for DOS: 


1. 1401/1460 Compatibility (feature #4457). 

2. 1401/1440/1460 DOS Compatibility (feature 
#4460). 

3. 1311 Disk Compatibility (feature #9710). 


Notice that feature #9710 must be installed 
regardless of the emulated 1400 configuration. 
Also, most important to notice is that feature 
#4460 precludes the use of the following: 


1. Program 360C-EU-074 (Model 40 emulator). 

2. Program 360D-905.1.101 (COS+40 Type III). 

3. 1401/ 1460 stand-alone ability of feature 
#4457, 


Conversion from emulation or COS-40 Type IIT 
to CS/40 Type I should not be attempted with- 
out extensive testing. There is now an attempt 
to have the stand-alone emulator modified so 
that it can coexist with CS/40. Until this is 
done, testing will have to be accomplished at 
other than the customer's location since 
installation of feature #4460 precludes the 
emulation of 1400 programs in the environment 
in which they are now being run. One of the 
key ground rules for Type I development was 
that external transparency be maintained. 
Therefore, CS/40, Type I, should not cause 
undue conversion problems from COS-40, Type 
Ill, if the Type III program has not been modi- 
fied to meet specific customer needs. 


There are no plans for customer education on 
either CS/30 or CS/40. ‘It is expected that a 
lecture will be added to CST to provide some 
formal training for IBM people. With the exist- 
ing field body of knowledge, this should be suf- 
ficient to meet our needs. 


DOS/360 BTAM PRINTING ON 1053 ATTACHED 
TO LOCAL 2848/2260 CORRECTION 


Articles on this subject were published in 
Installation Newsletter issues 68-12 and 68-15, 
It has been suggested that the Timings were 


incomplete and that the following statement 
should be used: 


i i hy | 


Issue No. 68-24 


Timing estimates for 1053 print operation can 
be determined as follows: 


*Character count t+length of carrier return (inches 
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Time in seconds per line. 


*Character count should include shift changes 
(if applicable), spaces and carrier return. 


For the second article, the word "message"! is 
suggested as a better choice than the word 
‘line'', since a write can be many lines. 


S/360 MODEL 20-5 CORE REQUIREMENTS 


Care must be taken when planning for the 
installation of the S/360 Model 20 submodel 5 
CPU for existing DPS and TPS customers. 
Customers and salesmen should not plan on 
simply exchanging CPU's. There will bea 
difference in core usage both by the DPS and 
TPS monitor and by the program technique 
required to take advantage of the read/write/ 
compute (R/W/C) capabilities. With the deliv~ 
ery of the 2152 Printer/Keyboard, the new 
DPS generative montior will be available. 

With the delivery of the 3620 submodel 5, the 
Read/Write/Compute (R/W/C) overlap capa- 
bilities will be available for both tape and 

disk systems. Under TPS, to take full advan- 
tage of R/W/C, the monitor will require 
approximately 2400 bytes. Add to this, 
additional I/O areas which utilize the double- 
buffering technique ona "per-file'" basis to 
arrive at core usage estimates. Thus programs 
near capacity of existing systems will now need 
to be re-evaluated to determine the necessity 
of larger memory. 


Under DPS the size of the monitor will vary, 
since the user will "generate" it based upon 
his needs. The following chart shows some 
examples of this: 


Current size of monitor, without tape *=2858 bytes 
Current size of monitor, with tape = 3518 bytes 
New monitor, with 2 disks, no tapes 

and R/W/C and interrupt capabilities =4532 bytes 
New monitor, with 4 disks, 6 tapes, | 

and R/W/C and interrupt capabilities =4662 bytes 
New monitor, with 1 disk, no tapes, and 

no R/W/C or interrupt capabilities =2652 bytes 
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These estimates are taken from the tables in 
IBM Programming Announcement letter P68-85, 
dated June 17, 1968. Please refer to this 
letter for your individual estimates. 


S/360 TIMER ACCURACY 


The following is an expansion on an article on 
Timer Accuracy in Issue No. 68-20 of this 
Newsletter. 


The interval of time which constitutes the 
precision of the timer on a System/360 is 1/60 
of a second for a machine powered by 60 cycle 
A.C. and 1/50 of a second for a machine 
powered by 50 cycle A.C. 


This imposes some limitations on the resolu- 
tion of the timer. 


1. A time interval smaller than 16 2/3 milli- 
second will produce a value of either 0 ms 
or 16 2/3 ms. 


2. A time interval larger than 16 2/3 ms will 
produce a time that is an integer multiple 
of 16 2/3 ms. 


The resolution of the timer can be improved 
by statistical means if the event can be timed 
several times. 


An average can then be computed. However, 
the smaller the interval of time to be 
measured the more times the event should be 
timed in order to arrive at a suitable average. 


The above times are true for a machine which 
is not equipped with a device which changes 
the rate at which the timer is updated. 
However, similar logic applies to that situ- 
ation. 


BTAM SYSTEM EXCHANGE OF INFORMATION 


BETWEEN PARTITIONS 


Some BTAM users would like to design a BTAM 
system which operates in a two partition envi« 
ronment similar to QTAM. Control of the 
communication lines will be done by one par- 
tition and message processing by a second 


partition. The major advantage of this approach 


is that message processing is made subordinate 
to line control by placing the message proces- 
sing program ina lower priority partition. 

This prevents message processing from having 
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a detrimental effect on line control. The use 
of this technique implies the need for queuing 
of incoming and outgoing messages. More 
importantly, it implies the necessity for 
communication between the two partitions, 
BTAM, unlike QTAM, has no programmed 
facility for interpartition communication. 
There are, however, several techniques that 
the BTAM programmer can use for communi- 
cating between his two partitions the location 
of the next message on the queue or an indi- 
cation that no messages are currently queued. 
The same techniques could be used for passing 
responses from the message processing pro- 
gram back to the line control program. 


1. He may preformat his queue area on disk 
by placing some character (such as X'FF') 
which will never appear in message text 
into the first byte of every queue record. 
The message processing program may 
trace the entry of messages into the queue 
by periodically checking the first queue 
record to see if a message has overlaid the 
preset special character. Once the first 
queue record has been processed, it can 
continue processing until a queue record is 
found which still contains the preset special 
character. It must then go back to periodic 
checking of this queue record until it finds 
a message placed there. 


2. Instead of formatting his queue records in 


advance, the BTAM programmer may decide 
to include in each message a field or fields 
which identify messages uniquely as part of 
today's queue. A combination of the current 
day's date and a message sequence number 
will normally suffice. The message pro-~ 
cessing program must again periodically 
check the next queue record to see if a 
message has been placed there. 


3. The line control program may maintain 


a special record or records on disk which 
provide information on the current status of 
the queue or queues. Such a special record 
might contain such data as a pointer to the 
last message placed in the queue, the total 
number of messages placed on the queue, 
current status of lines and/or terminals, 
etc. 


These first three techniques all require that 
the message processing program periodically 


look at disk records to see if new information has 


has been placed there. (This periodic checking 
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will probably be initiated by timer interrupts. ) 
The major disadvantage here is that process 
time, channel time and disk unit time will be 
wasted each time that a nonproductive reference 
is made. Lengthening the timeinterval between 
references minimizes this overhead but has a 
detrimental effect on response time. 


4. Information records such as those described 
in paragraph 3 may also be maintained by 
the line control program in core storage, 
probably at the upper end of core. Various 
message processing programs may access 
these records by referring to their actual 
core storage address. (Storage protection 
does not inhibit the message processing 
partition from reading data in the line 
control partition.) Using actual storage 
addresses in such cross-reference routines 
will generate the need for recoding if CPU 
storage size is changed. The impact of this 
problem can be minimized by writing a 
single library subroutine for such cross- 
references and link editing it into all message 
message processing programs. 


5. The programmer may prepare user SVC 
routines to perform the required infor- 
mation exchange. One SVC would be 
required for use by the line control program. 
This SVC would contain space for infor- 
mation records and code for adding to or 
modifying these records. A second SVC 
would be required for the message proces- 
sing program(s). It would provide code for 
reading the information records and passing 
results back to the inquiring message pro- 
cessing program. This technique is more 
easily implemented under OS than under 


DOS because OS provides the necessary 
"hooks'! for the addition of user SVCs to the 


SVC library. 


Both of the last two techniques still require a 
periodic checking by the message processing 
program to see if new entries have been placed 
in the queue. Thus, processing overhead is 
implied. However, since there is no require- 
ment for I/O activity in connection with this 
testingof the queue, overhead is probably less 
than with the first three approaches. Also, 
response to the queue test is much more rapid. 


None of these techniques has QTAM's QWAIT- 
QPOST capability of providing an interrupt to 
the message processing program on the arrival 
of the next message in the queue. Even 
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though less sophisticated, they all do the 
required job. There should be at least one of 
these methods which is suitable for use with 
almost any type of BTAM based system. 


1130 TYPE II PROGRAMS FOR OPERATING 
UNDER DISK MONITOR SYSTEM VERSION 2 


All PLAN-based application programs use 
PLAN Direct Access Support, rather than 
FORTRAN Direct Access. They support 
additional 2310's without the use of the *FILE 
CARD option. 


Users should be made aware that there is a 
severe restriction on core image using the 
*FILE CARD option. Variable location and 
variable file space allocation are not practical, 
using this combination. PLAN does support 
variable file allocation for core image. 


TELEPROCESSING - DATA COMMUNICATIONS 
HANDBOOK IMPROVEMENTS 


The following improvements to the Handbook 
have been made so far during 1968. All of these 
have been in response to field inquiries and 
suggestions. They can help you too. 


Data Set Option Chart revised and expanded 
(Sec. 20/Area 16, Pages dated May 1968) 


AT&T Tariff Abstract 255 now includes more 
cities and defines the zones encountered in 
large cities (30/255, October 1967) 


1050 Teleguide now gives detailed assistance in 
designing this versatile device into your Tele- 
processing system (70/1050, September 1968) 


Airlines RPQ equipment is now described for 
possible use outside that industry (Sec. 75, 
May 1968) 


Data Set descriptions and prices have been 
completely updated and now show where to 


obtain more technical reference material 
(20/12, July 1968) 


Coming soon - Updated and expanded intrastate 
rates 


A new modem and Data Set Con- 
figuration which guides both 
selection and timing of these 
important devices. 
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If your Handbook doesn't contain the issued 
material listed here you are not included in the 
controlled distribution. All DP Branch Office 
copies are registered to such titles as Branch 
Manager, Account Manager, SE Manager, 
Teleprocessing Coordinator, etc. Have your 
manager write to the Handbook Editor if an 
increase in quantity of revisions is needed. All 
other location copies of the Handbook are 
registered in individual name or title. 


It is important to keep your Handbook up-to-date, 


know what is in it, and to use it, in order to save 
time and assure correctness. 


Handbook Editor, Dept. H72 
IBM Corporation 
P. O. Box 390 


Poughkeepsie, N. Y. 12602 


SYSTEMS ENGINEERING COMMUNICATIONS 


The wide spread installation of Field Engineer- 


ing's 2740 leased line terminals in branches offers 


an improved SECOM/RETAIN retrieval capa- 
bility. Accordingly, the following explanation 
is intended to summarize SECOM's objectives 
and to review the 2740 operating procedures. 


SECOM is an information communication and 
retrieval system available to all branch offices, 
Field Systems Centers, Test Centers, and 
Datacenters. The system will provide new and 
timely information concerning IBM Type I and 
Type II Programming Systems ona daily basis. 


SECOM contains information on 1130, 1800, and 
System/360 Programming Systems problems, 
solutions, changes, restrictions, and clarifi- 
cations which are of general interest to Systems 
Engineering. SECOM, in combination with the 
FE RETAIN system which reports APAR's 
resulting in fixes to Type I problems, will help 
to avoid much of the duplication involved in 
solving common 
The information in SECOM is developed from 
APAR submissions which will not result in 
fixes to programming systems, and from. 
problems referred to the Headquarters and the 
District Field Systems Centers. SECOM also 
contains Type I! APAR's and other information 
submitted through the Industry Development 


problems in different locations. 
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Centers. The SECOM input format (Branch 
Office Manual - page 4-955) may be used by the 
Branch Office to submit Type Ior Type II infor- 
mation to SECOM through the appropriate Field 


Systems Center or Industry Development Center. 


A new feature of SECOM is the inclusion of infor- 
mation on Type III programs underdevelopment. 
The abstracts for these programs are included 

in the weekly and monthly abstract listing and 
are identified by the prefix ''prog''". A given 
program's description will remain in SECOM 
until that program has been published in the 


Catalog of Programs. 


Each morning abstracts of the information 
entered into SECOM during the previous day 
will be broadcast to each field location over 
IT PS. 


Each week copies of the previous week's 
abstracts for SECOM and RETAIN, in sequence 
by program number, are mailed to each Branch 
Office. This weekly listing may be used to 
replace the file of daily IT PS listings. 

Each month copies of all current abstracts in 
the SECOM file are mailed to each branch. 

This monthly listing may be used to replace 

all other SECOM listings prior to that date. 


All locations may inquire into the SECOM system 
to retrieve full text of an item by using their 

IT PS terminal, a dial-up 1050, or a leased 

line 2740. IT PS users are limited to a single 
text retrieval per request. 


Direct use of the SECOM/RETAIN system is 
for IBM personnel only. The sign on procedure, 


user number, and retrieval operation must be 
restricted to IBM use only to insure the security 
of the system. Using your own good judgement, 
you may discuss appropriate information from 
SECOM/RETAIN with customers. 


The 2740 communication procedures are: 


1. The modem test switch, located on the left 
hand side of the terminal table must be set 
to the OF F position. 


2. The mod switch called com-local on the right 
| hand side of the keyboard must be set to 
the COM position. 


3. The power on switch, located on the right 
hand side of the keyboard must be set to 
ON position. 
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Entry of data from a 2740 terminal is essentially two parts. 


a three step operation. 


1. Depress the BID key and wait for the T light. 


2. Type in data. 
3. Depress EOB key 


After the data connection has been established 
and the keyboard unlocked, you may sign on 
using the following procedure: 

Entry sxxxx/retain (EOB) 


(xxxx represents your registered 
SECOM number) 


Response YOUR NAME IS Branch Office... 
Enter RETAIN Request 


This completes the sign on procedure. 
Specific information may now be obtained by 


following the message formats. 


When all requests have been answered, sign off 
using the following procedure: 


(Condition keyboard by depressing BID key) 


Sign off 
LINE IS SIGNED OFF 


Type 
Response 


When sign off has been accomplished, you may 
power off by depressing the power on-off switch 
to the off position. 


For a detailed explanation of SECOM request 
formats and dial-up 1050 or ITPS operation, 
refer to the pocket size reference card entitled 
'"SECOM/RETAIN Procedure--Revised 8/1/68"! 
available through your SD&I Center. 


SECOM is an early warning system for known 
problems and solutions ona daily basis. Use 
of this tool may save you valuable time and 
effort. 


INFORMATION ABOUT THE NEWSLETTER 


EVERY SALESMAN AND SYSTEMS ENGINEER 
SHOULD RECEIVE ONE COPY OF THE NEWS- 
LETTER, Each FE Branch Manager should 
receive five copies for distribution to Customer 
Engineers. 


The IBM Installation Newsletter is distributed 
only to IBM locations and is not available to 


customers. The Newsletter is separated into 
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The first part contains information 
which is intended only for IBM personnel and 
the pages are labeled For IBM Internal Use 
Only. THESE PAGES, OR REPRODUCTIONS 
OF THEM, ARE NOT TO BE GIVEN TO 
CUSTOMERS, However, using your own good 
judgement, you may discuss pertinent informa- 
tion from these pages with a customer. The 
second part contains information which may 

be REPRODUCED by the Branch Office at their 
discretion and given to customers. These pages 
are not labeled with any restrictive classifica- 
tion. Note that when any abstracts for Type III 
programs are given to the customer, he must 
be informed that the disclaimer for Type III 
programs as contained in the Newsletter, ap- 
plies. YOUR COOPERATION IN PROPERLY 
HANDLING THE CONTENT OF THE IBM IN- 
STALLATION NEWSLETTER IS NECESSARY 


FOR ITS CONTINUED PUBLICATION. 


Changes to the quantity of the Newsletter ship- 
ped are to be made by the Administration 
Manager. (NOTE THAT EXTRA COPIES OF 
THE NEWSLETTER ARE NOT TO BE ORDERED 
FOR DISTRIBUTION OF INFORMATION TO 
CUSTOMERS,) He should update and send the 
DP Administration Managers' Document 

Control card (Electro IBM N61508) to DP 
Document Control, DPD HQ, 


Direct inquiries concerning the contents of this 
Newsletter to: | 


W. F. Malmborg, Editor 

IBM Installation Newsletter 

Dept. 812 

DPD HQ 

112 East Post Road 

White Plains, New York 10601 
Telephone 914 WH9-1900 Extension 4422 


Tie Line 8-374- 4422 


NEW PUBLICATIONS ANNOUNCED BY PRL'S 


Information is extracted and condensed from the 
weekly PRL's (Publications Release Letters) to 
insure that all Salesmen and Systems Engineers 
are aware of new or revised Marketing Publications. 
Normally, each issue of the Newsletter will 
contain information extracted and condensed 
from two PRL's, one following the other. The 
information will be placed in the Newsletter in 
its original sequence with no rearrangement of 
form numbers or titles. It is not intended to 
replace existing information and distribution 
sources. You should be certain that you are 
aware of these sources. 
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FORM NO. TITLE PRL #46 November 15, 1968 

N20~-0030, 22 Catalog of Programs for IBM System/ 360 = October 1968 Supplement to C20-1619=5 

320-1906-10 October 1968 In Brief 

520-2100-0 Where real-time control is essential (IBM 1800) 

540-007 <1 Carbon Ribbon Sample Box 

543-0064-0 ET State & Local Catalog 

A22-681 304 IBM System/ 360 Model 40 Configurator 

A26-5 847=5 IBM System/ 360 Model 20 Functional Characteristics 

A27-2731~1 IBM 2265 Display/ 2845 Display Control Component Description 

C28~2023~1 IBM System/ 360 Time Sharing System Master Index 

C28~6 396-0 IBM System/ 360 Operating System: USASI COBOL Language 

C28-65 35=3 IBM System/ 360 Operating System: Concepts and Facilities 

H20-0492=1 IBM System/ 360 Decision Logic Translator (360A-CX=32X) Application Description Manual 

H20+05 23-0 IBM System/ 360 AD-APT/ AUTOSPOT (OS) Numerical Control Processor 

H20~0549=0 IBM System/ 360 ADeAPT/AUTOSPOT (OS) Numerical Control Processor (360A-CN-12X) 
Part Programming Manual 

H20~0557=0 IBM System/ 360 AD-APT/ AUTOSPOT (OS) Numerical Control Processor (360A=-CNe12X) 
Operations Manual 

N20-1888 IBM 1130 Commercial Subroutine Package (1130-SE=}25X) Version 2 Modification 1 Program 
Reference Manual Re: H20-0241=3 

N28~2360 IBM System/ 360 Operating System: System Control Blocks Re: C28-6628=2 

N28=2366 IBM System/ 360 Operating System: Messages and Codes Re: C28-6631-S 

N28=2367 IBM System/ 360 Operating System: System Generation Re: C28-6554-4 with N28=2348 & N28- 
2325 

Y¥20-0223=4 Sales Manual Inserts (programming only) 

Y20-0263-0 IBM S/ 360 Decision Logic Translator (360AeCX=32X) System Manual 

Z20~ 1899-0 Construction and Civil Engineering Quick Reference Guide Facts Folder 


NOTE: 


Do not use the condensed Newsletter 

information to order publications. Most 

but not all (for example, some films and 

slide sets) of the items are available 

from Mechanicsburg. To receive the items 

you need without delay, prior to ordering 

check the REQ (Requisition From) code in 

the "Accumulative Supplement to IBM Pub- 
lications Current Price List (Z20-0100)"' 
which is attached to the weekly Publications 
Release Letter (PRL) and distributed to your 
Administration Manager. For an explanation of 
the REQ codes and other publications information 
see the first few pages of the "IBM Publications 
Current Price List (Z20-0100)"'. 


The Publications Requisition, form number 
MO2-0618 is used for ordering items from 
the IBM Distribution Center, Mechanicsburg, 
Pa. 


(IBM World Trade Corporation has its own 
distribution center and procedures.) 


MARKETING PUBLICATIONS 


For IBM Internal Use Only 


DISPOSITION @ 


Issue No. 68-24 


Scrap N20-0030, 21 


Scrap 320<-1906-9 
NEW 

Use $40-0078-0 

NEW @& Scrap 543-0045 


Scrap A22«681383, <2 

Use A26-584744, N33<e1519 & 
N33~1521 

Scrap A272731-0 & N27-2923 
Scrap C28-2023-0 

NEW 

Use C2865 35 <2 

Scrap H20-0492-0 


NEW 
NEW 


NEW 


NEW 


Scrap Y20-0223=3 
NEW 
NEW 
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FORM NO. 


N20-0360,52 


505-0009-0 
505-0010-0 
$20-2100-0 
540-007 8=1 


A32-0007-0 
C20~1689=1 
C33-400 1-2 


C33—-4003-0 
C33~-6006~1 
E20~-0118=-0 
H20-0222=2 
H20-0376=1 
H20-05 64=0 


N20~-1885 


N20-1894 
N2001895 
N24-0424 
N28=3045 
N28=3047 


N33-8020 
R20-1078-0 
Y20-0284 


Y20-0291 
Y28=3095 


FORM NO. 


A26~3565-=5 


221-0414-3 
§20+2123-0 
A22=6846~3 
C28-65 38-6 
C28-6644-2 
C33-2003~0 


1120-025 2-3. 


H20-02972 
H20-05 33=1 
1120-05430 
K20-0272-0 
N20-1892 


N20-1893 


N2021899 
N20~=1900 


N20-1903 
N20-1908 


N20~1909 


N20-1910 


PRL #47 November 22, 1968 
TITLE 


IBM S/ 360 Newsletter Re: A22-6822=11 
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DISPOSITION 


Scrap N20-0360,5 


MARKETING PUBLICATIONS 


This is IBM 

A Computer Glossary 

Where real-time control is essential (IBM 1800) 
Carbon Ribbon Sample Box 


2420 Model 5 Magnetic Tape Unit 

An Introduction to the Compile-Time Facilities of PL/I 

IBM S/ 360 Model 20 Input/Output Control System for the Binary Synchronous Communications 
Adapter 

IBM S/ 360 Model 20 Remote Job Entry Work Station 

IBM S/ 360 Model 20 Disk Programming System System Generation and Maintenance 

Biomedical Application for an IBM Data Acquisition System 

Project Control System/ 360 (360A-CP-06X) Version 2 Application Description 

Project Control System/ 360 (360A-CP-06X) Version 2 Program Description and Operations Manual 
IBM S/360 Matrix Language (MATLAN) (360A-CM-05X) Program Description Manual 


IBM S/ 360 Document Processing System (360A-CX-12X) Program Description and Operations Manual 


Re: H20-0477-0 
TNL for Advanced Life Information System Operations Manual Re: H20-0517-0 with N20-1875 


TNL for ALIS Utility Program Description Manual Re: H20-0519-0 with N20=1876 
TNL to IBM S/ 360 Model 25 (2540 Emulation in the 2560) Re: A24=3524-0 
IBM S/ 360 Time Sharing System FORTRAN IV Re: C28=2007 

M S/360 Time Sharing System Assembler Language Re: C28-2000 


IBM 1800 Time-Sharing Executive System, Concepts and Techniques Re: €26-3703-0 

IBM S/360 Operator Reference Guide 

TNL for ALIS - File Maintenance Premium Due, Overdue, and Anniversary Processing Transactions 
Re: Y20-0194-0 

TNL for ALIS - Accounting Control Program System Manual Re: Y20-0201-0 with Y20-0245 

IBM S/360 Time Sharing System System Service Routine PLM Re: Y28-2018 


TITLE 


PRL #48 November 29, 1968 


IBM S/ 360 Model 20 Bibliography 


MARKETING PUBLICATIONS 


The IBM 1130 Computing System 

IBM 2980 for Savings and Loans 

IBM 2702 Transmission Control: Component Description 

IBM S/ 360 Operating System: Linkage Editor 

IBM S/ 360 Operating System: Master Index 

IBM S/ 360 Conversion Aids: The 1410/7010 Simulator for IBM S/ 360 


IBM 1130 Scientific Subroutine Package (1130-CM-02X) Programmer's Manual 

IBM S/ 360 Administrative Terminal System = OS (ATS/OS) Application Description Manual 
Shared Hospital Accounting System (SHAS) (360A-UH-11X) Program Description Manual 
IBM S/ 360 Model 20 Hospital Patient Billing Application Description Manual 

IBM S/ 360 Model 20 at Coburg Dairy, Inc. 

TNL tor Alis = Application Description Re: H20-0126—3 


TNL for Advanced Life Information System Policy Master Record Code Book Re: 1120-0483-0 
with N20-1096 

TNL to 1130 Statistical System (1130-CA-06X) User's Manual Re: H20-0333-1 with N20-1059 
TNL to Structural Engineering System Solver (STRESS) for the IBM 1130 (1130-EC-03X) Version 2, 
User's Manual Re: H20-0340-2 

TNL to STRAM DOS/ 360 User's Manual Re: H20-0346-0 

TNL for Retail IMPACT Fashion System under OS/ 360 (360A-DR-04X) Program Description Man, 
Re: H20-0480-0 with N20-1084 

TNL for Retail IMPACT Fashion System under DOS/ 360 (360A-DR-08X) Program Description 

Re: H20-0540-0 

TNL for Retail IMPACT Fashion System under DOS/ 360 (360A-DR-08X) Operations Manual Re: 
H20-05 41-0 


For IBM Internal Use Only 


Abstract only 

_ Abstract only 
Abstract only 
Use 540-0078-0 


NEW 
Use C20-1689-0 
Scrap C33=4001-1 


NEW 
Scrap C33-6006-0 
NEW 
Scrap H20=0222-1 
Scrap H20-0376-0 
NEW 


NEW 


NEW 
NEW 


NEW 


DISPOSITION 


Scrap A26©3565=4 


Scrap 221-0414=2 

NEW 

Scrap A22~6846-2 & N27-3026 
Use C28-65 38-5 & N28-2330 
Scrap C28-6644<1 

NEW 


Scrap H20-025 2-2 

Scrap H20-U0297~@1 

Scrap H20-0553-0 & N20-1099 
NEW 

NEW 

NEW 


NEW 
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N20-1911 TNL for Retail IMPACT - inventory Management Program and Control Techniques - Application 

Description Re: E20-0188-2 and =3 with N20-1068 to -2 only NEW 
N2021912 TNL to Gencral Purpose Simulation System/ 360 User's Manual Re: H20-0326=2 with N20-1100 NEW 
N20-1913 TNL to General Purpose Simulation System/ 360 Introductory User's Manual Re: H20-0304-3, <2 

#1, -0 to «2, N20-1878, to -1 and -0 N20-1087 & N20-1067 NEW 
N21-0097 IBM 1287 SRL TNL Re: A21-9064-2 with N21-0093 NEW 
N27-2920 IBM S/360 Model 67 Functional Characteristics TNL to A27-2719-0 NEW 
N33=8021 IBM 1130/1800 Basic FORTRAN IV Language Re: C26-3715<3 NEW 
R20-8076=0 Basic Punched Card Piocedures Education Guide 

Scrap X24=3083=3 

X24—-3083—4 1440 Physical Planning Template NEW 
Y20-0222-5 inserts (less programming) Scrap Y20-0223=4 
Y¥ 206022 305 Sales Manual Inserts 9programming only) NEW 
Y20-0282-0 TNL for ALIS » File Maintenance Status Transactions ~ Process and Quote Miscel., Loan Values, 

and Particip. Values System Manual Re: Y20-0192=0 with Y20-0242 NEW 
¥ 20-0313 TNL = Service for Consultants Update Re: Y20-0161-1 NEW 
Y27=7183 IBM 1130/2250 Graphic Subroutine Package for Basic FORTRAN IV Re: Y27-7174 
Z77~8065-1 DOS BTAM Coding for the Leased Line IBM 2780 Data Transmission Terminal 
277=8120-0 1030 Time and Attendance System 277=8065-0 
si eieeae ees 360 GPSS to Simulate the Operation of a Typical Non-Assembly Line Manufacturing Facility = 

getary Accounting on Small Direct Access Systems 

27728123=0 CIF Name Key Design NEW 
Z77=8? 24-0 CIF Preparation Guide NEW 
277~8127=0 Simulation of a Teleprocessing System for a Swedish Bank Using the S/360 Computer System NEW 

Simulator NEW 
277~8128-0 A Real-Time Approach to the On-Line Data Entry Application 
Z77-8129=0 Faster Quick Reference Manual for Programmers ee 
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OS/360 SER 1 OPTION, ONE SYSGEN FOR 2. A job can include a maximum of 255 
TWO SYSTEMS CLARIFICATION separate steps. 
Installation Newsletter 68-19 contained an 3, A job step can include a maximum of 255 
article on this subject in which "INCLUDE" was DD statements. 
used in the general sense to point to the proper 
module. This may not have been clear, fora 4. A job step can request a maximum of 
reader has pointed out that the actual JCL state- 683 volume serial numbers. 
ments should be: 

55 A single DD statement can request a 
INCLUDE MODLIB (IFBSR150) for Model 50 maximum of 59 units. 
INCLUDE MODLIB (IFBSR140) for Model 40 

6. A single DD statement can requesta 
The above applies toa PCP or MFT system. maximum of 255 volume serial numbers. 
For an MVT System, these statements should 
read: 


INCLUDE MODLIB (IFBSR350) for Model 50 
INCLUDE MODLIB (IFBSR340) for Model 40 


This method will neither apply nor be necessary 
with OS Release 17 because of the splitting of 
the MODLIB and the inclusion of Model Indepen- 
dent SER. These new features are described 
in Installation Newsletter 68-23. OS/360 RELEASE 15/16 CHANGING THE 

| WAIT TIME LIMIT FOR JOB STEP TIMING 
OS/360 MULTIPLE "'CLG'S" PER STEP 


CORRECTION This contribution has not been submitted to 


any formal IBM test. Potential users should 
evaluate its usefulness in their own environ- 
ment prior to implementation. 


When more than one Compile Load-and-go 
Procedure is executed in a Job Step where the 
Syslmod DD card has a disposition of (MOD, 


Pass) and a member name is specified in the The Job Step Timing feature (SYSGEN option) 

DD card, then the STOW is performed with the in Release 15/16 terminates a job if it has waited 

"ADD" function rather than the ''REPLACE" on an event for 30 minutes (ABEND code 522). 

function. This prevents more than one ''CLG" If an installation requires job step timing and 

per Job Step. either has jobs which could wait on an event(s) 
for more than 30 minutes or desires the termi- 

This can be corrected by a SUPERZAP fix: nation of a job after a wait of less than 30 min- 


utes, the installation can alter the wait time 
limit to conform to its requirements. 

NAME IEWL IEWL MFNL 
VERIFY O16A 4780 C170 To compute the wait time limit multiply the 
REP O16A 4700 C170 hexadecimal value '0023366C' by the number of 
minutes contained in the wait time limit you 
intend to implement. For example, a 10-min- 
ute wait time limit would equal '01602038' 
(hexadecimal). The computed hexadecimal 
value is to be placed on the REP card in the 
Superzap deck in place of 'xxxxxxxx'. See 


OS/360 JOB PLANNING 


To assist the user in the successful planning 
of job descriptions and/or datasets the follow- 
ing considerations apply. 


Exhibit 1. 
1. A maximum of 248 I/O device addresses 
can be included in the system. Because the update is applied to the nucleus as 
Reference Installation Newsletter 68- it resides on direct access, the system should 
21. Special techniques can be used to be re-IPL'ed after the update is made. 


support more than 248 addresses. 


December 13, 1968 


Issue No. 68-24 


OS/360 RELEASE 15/16 CHANGING THE WAIT TIME LIMIT FOR 


JOB STEP TIMING 


//JOBCRD JOB », MSGLEVEL=!]. 
//STEP EXEC PGM=SUPERZAP 
//SYSLIB DD 
// VOLUME=SER=yyyyyy 
//SYSPRINT DD SYSOUT=A 
//SYSIN DD * 

NAME IEANUCO1 IGCO001 

VERIFY 03E4 042060B1 

REP 03E4 XXXXXXXK 
/* 


EXHIBIT Il 


OS/360 MVT SYSTEMS QUE SPACE 


In analyzing an MVT core dump, it sometimes 
becomes necessary to determine the location 
of SQS, or the amount of SQS being used. 


The MVT supervisor PLM states that 
GOVERFE LB is a three word control block con- 
taining an address pointer to SQS. It does not, 
however, explain how to find GOVERFLB ina 
core dump. The following is one method that 
could be used. 


GOVERFLB - This is a three word control 
block that contains a pointer for SQS space and 
a pointer for free dynamic core not assigned 
to any region, and a pointer to the first adc ress 
above SQS. (See MVT Supervisor PLM Y28-6659). 
It will probably have a different address in each 
release. The control block is actually loczted 
within the GETMAIN Module and can be found 
with the help of a SYSABEND or stand alone 
core dump and the Stage II assembly of the 
NUCLEUS: 


1. Get the address of the NEW SVC FLIH 
pointer from core dump location 60 (Hex). 


2. To this address, add the displacement of 
SVCCONS ¢+ 4. This is found in the 
assembly of the SVC FLIH in the NUCLEUS. 
The result is a pointer to the Resident $VC 
table. 


3. Find the SVC 4 pointer in the table 
(SVCTABLE + 16). 


DSNAME=SYS1.NUCLEUS, UNIT=2311, DISP=OLD, 


4. To that address, add the displacement of 
GOVERFLB from the beginning of the SVC 


4 GETMAIN Assembly (IGC004) in the 
NUCLEUS. The result is the location of 
GOVERF LB. 


5. Check the format of GOVERFLB in the MVT 
Supervisor PLM. The second word is a 
pointer to the Descriptor Que Element for 
SQS, which gives the beginning of SQS, the 
length of SQS, and the beginning of the Free 
Que chain for SQS. 


OS/360 PL/I ASSEMBLER LANGUAGE ROUTINE 
TO DETERMINE CORE AVAILABLE IN A MVT 
REGION 


The following contribution has not been submitted 
to any formal IBM test. Potential users should 
evaluate its usefulness in their own environment 
prior to implementation. 


The program is an assembler routine callable 
from PL/I that returns the amount of core 
currently available within the Region. This 
information can be useful in determining optimum 
region size. 


The qunatity returned in the sum of: 


1. The amount not allocated to PL/I. 
2. The amount allocated to PL/I but not yet 
used. 


This routine has been checked out on MVT 
Release 15/16. 
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OS/360 PL/1 ASSEMBLER LANGUAGE ROUTINE TO DETERMINE 
CORE AVAILABLE IN A MVT REGION 


** ASSEMBLER ROUTINE TO COUNT ALL FREE CORE 
** TO USE FROM PL/I - DCL SPACE BINARY FIXED(31, 0) 
*K CALL MAPMVT (SPACE) 
*K AMOUNT CAN BE PRINTED PUT EDIT ('FREE', SPACEO(A, F(31, 0)) 
* 
MAPMVT CSECT 
IHEQLWO DXD A 
THEOSFC OXD A 
en 14,12,12(13) 
cn enn eR na oe ete Paes L he ey ll; XK ane 2 ( l 2 
Junie penn meeies pi aeeiee se. OD “e-2 ee 
DC OL 2 (IHEOLWO) 
ST 1334(0,11) 
LR 13911 
BALR 10,0 
EU Ee RRA BAG CRE GOI ARGS Bie OhPe de Hele US ING Ke 10 a: _ LY «th, Se Sas ash a Biel tema Se A et RR, See eee te aes meat ceableter Seki test 
nen te nee ene cae nn eee ate ee SING MYWO RK sl i Schild, Spriaie ith elas Sah. wecdn sstennme Dig aig tng ntact Meri, cra Pe 
b dogg dee Qetete & ote & : beet of LR 2 rs ] Be gee at 2 ue SE ie tied ores, wes SS ha cst heli agit: GE meee 
SR 3,3 ZERO ACCUMULATOR 


* ARBITRARY USE OF SUBPOOL 9 
MO GETMAIN VC yLA= SEOs ADDRQTY , >= 9 yMF=(E, pepe 


8 ates ela oe LTR . ates ee ee ae Seeeos Mae ee S er ak, Sie ess Seted ae ed ree Tan Ser lake ee tee, Sacemetee 
Lee BNZ - -F IN in oe Belen 1 ke eat Ses gin air cn beeen! ta Sees ec Wee ED Ale: Ga ea eae Sai latte eee an inne lamin arm Sew lee cs ta, Soe ome 
“A 3, ADDROTY+4 BREE QUANTITY 
B ~ MO 
FREEMAIN R»SP=9 
-L D 9 *—* ( = ; . 
ae: ORG. ete KD. we te re ee me tr ee ee ee 
“PC ----- QL2 ( IHEQSFC y Pe ee eg eee tr eee rT eee 
LTR 5 25 = ee b alu eens. See 
BZ FINIS END. ‘OF ‘CHAIN. 
A 3,0(0,5). FREE CORE AMT 
L Oe 72(099) CHAIN FWD Ey 
~ -: B -~FEST- a cia cee eet ee on 
Lag ts ge aw = 4502 be Ned ewe ONO! RR WOW wi eee oe er Se ee Mee Oren wet Be ot 
“ST 330(4) 
L 1324(0,13) 
LM 14212,12(13) 
BR 14 
AAO AA OH rR OREO we: “*MINMAX OC F 'g t. os ae Uieiat oh ws pei a the Reese ee Gal elds Noe ae om tens we Ste ee Bich S iwi aey ieee a el ods 
Fee ene areteer Reareaanenalaenad cptaeeteetnarnedioatand cece 8 | 0% De ea ~“X8 OOFFFFFO? i seb ase ae baw nee, © ONS eeerly A Sate eerie meee ee ew 
‘MYWORK OSECT 
DS 9D 
ADDRQTY DS 2F 
DUMGET GETMAIN vie son oe a — oe ae = 
le ee ee ieat ss A Seis. Bike OL ay wees feed -END 4 ane Senge Sewn ofS Ses el ea Pee Bales “ae igh Beda pbeee 
Eee Ser Sneen mee ee en ete ee ee en ee eee EXHIBIT 1 
OS/360 PL/I F INCOMPATIBLE CHANGES IN The following items should be added to that 
RELEASE 16 . 
aaa aaa list: 
Incompatible changes in programs produced 1. STOP, EXIT, CALL IHEDUMP and termi- 
by the fourth version of the PL/I F compiler nation by standard system action no longer 


have been documented in the PL/I(F) Pro- produce a system ABEND, although the 
grammer's Guide (C28-6594-3, N33-6007) 


11-12.1 condition code remains the same, thus 
pages Il-1id.1. 


subsequent job steps will be executed. 
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Appropriate COND parameters in later steps 
may be used to suppress execution. (The 
PL/I (F) Reference Manual and Program- 
mer's Guide will be updated to reflect this 
change). 


2. The FINISH condition will no longer termi- 
nate execution of a PL/I program. Both 
standard system action and normal return 
are to continue with the next sequential 
statement (See PL/I(F) Reference Manual 
C28-8201-1 page 268). 


3. The high-order bit of the last word ina 
parameter list is now being flagged (i. e. 
bit = '1'B). This may affect the execution 
of some assembly language subroutines. 


Official specifications will be as provided 
through the formal IBM procedures. 


OS/360 RELEASE 15/16 2250 GRAPHICS 
WITH PL/I CORRECTION 


The following item is a correction to the 
article OS/360 Release 15/16 2250 Graphics 
with PL/I which appeared in Installation 
Newsletter 68-17. The change is to the cod- 
ing in Exhibit 1 to allow correct return of 
results for those functions returning decimal 
float values. 


Beginning with OS - Release 15/16, PL/I will 
insert a hex '80' character in the high order 
byte of the last parameter of argument lists 
being passed by CALL statements to subrou- 
tines. This agrees with the convention already 
used by FORTRAN and COBOL. It allows 
variable length argument lists to be passec. to 
subroutines which utilize the feature. 


GSP (Graphic Subroutine Package) does 
utilize this feature, and with its additionto 
PL/I, GSP Subroutine subprograms can now be 
called directly from PL/I. No assembler 
language interface is required. 


Because of differences in the way results 

are returned, the GSP Function subprograms 
still cannot be used directly by PL/I. The 
assembler language interface shown in. Exhibit 
1, however, will allow PL/I to utilize these 
GSP functions. Notice that this interface kas 
the two CSECTS IGSP and RGSP. IGSP is 
used for those functions returning a Binary 
Fixed Value and RGSP is used for those 
functions returning a Decimal Float value. 
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The following example shows how the GSP 
function ITST would be used. 


ICODE = IGSP (ITST, IGDS, I); 


IGDS and I are the arguments used by ITST. 
Upon return from the function, ICODE will 
contain a Binary Fixed value. 


Additional GSP information can be found in 
the publication, Graphic Programming 
Services for FORTRAN IV, form number 
C27-6932. 


See Exhibit page 6. 


OS/360 FORTRAN RE~READ ROUTINE- 
MODIFICATION FOR RELEASE 15/16 


Issue 67-09 of the Installation Newsletter 
contained on Page 13 a program listing of a 
FORTRAN routine called READRE. This 
routine is used by many OS/360 FORTRAN users 
to allow the FORTRAN 'REREAD" capability. 


Release 15/16 contained a new object time error 
handling routine that has changed the FORTRAN 
library linkages. Consequently, the READRE 
routine as originally published will not work 
with Release 15/16. Following is a listing of 
the routine showing modifications needed to 

run with Release 15/16. This routine has 

not been submitted to any formal IBM test. 


See Exhibit page 6. 


OS/360 FORTRAN CORE ROUTINE-. 
MODIFICATION FOR RELEASE 15/16 


The FORTRAN CORE read/write routine first 
appeared in the Installation Newsletter in 

Issue No. 66-12. It performs a function similar 
to the RE-READ routine described above, in 
allowing the user to re-scan a buffer after 
initial read-in. CORE needs a single modifi= 
cation for use with OS Release 15/16 and that 
change is included in the following listing. 

Note the change at COREO860. The old instruc- 
tion remains as a comment card. This routine 
has not been submitted to any formal IBM test. 


See Exhibit pages 7 and 8. 
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OS/360 RELEASE 15/16 2250 


GRAPHICS WITH PL/I CORRECTION 


RGSP 


B83 


ARA 
DO8 
IGSP 


AAA 


ARE 
08 


CSECT 
USING *,15 
BC 15,BBB 
CC x*58 
CC CLS5*RGSP ° 
STM 14,12212113) 
CROP 15 
BALR 3,0 

USING ¥*,3 
LR 10,13 
LA 13,ARA 
ST 13,8{1C) 
ST 10,4113) 
L 5,0(1) 
L 15,0(53 

LA 124{1) 
BALR 14,915 

S 1,008 
STE 0,0(1) 

L 13,ARAt+4 
iM 2212528113) 
L 14,12(13) 
MV I 12(13) ,X*FF® 
ECR 415314 

DS 18F 

CC F's 

CSECT 

USING #3:15 

BC 15,AAA 

CC x* 58 

CC CL5*IGSP § 
STM 14,12, 12{13) 
ORGP 15 

BALR 3,0 

USING *,3 

LR 10213 

LA 13,ARE 

ST 13,8(10) 

ST 10,4(13) 

L 5,041) 

i 15,015) 

LA 1,24(1) 
BALR 14,15 

BS 1,08 

ST 0,0(1) 

L 13,;AREt4 
LM 2212,28113) 
L 14212(13) 
MVI 12413) ,X*FF® 
BCR 15314 

CS 18F 

CC Fg? 

END 

EXHIBIT I 
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OS/360 FORTRAN RE-READ ROUTINE 


STMT 


DOONAN PWR 


SOURCE STATEMENT 


PUNCH 


"READRE? 
START 
ENTRY READRE | 
FXTRN IBCOM# 
EXTRN FIOCS# 
READRE LR 8,15 
USING READREF,&@ 
ST 1,SV1 
L 1,AN727 
L 15,AD1BCOM 
MV I 74(15),xX"59! 
EX 0,74(15) 
MVI 74(15),X*59! 
L 1,SVl 
BCR 15514 
USING *91 
222 STM 4e15,SAVE 
DRUP 1 
LR ll»l 
USING 222,11 
LR 4,0 
CLE 0(2,44) sHONFO 
BC 8,CHK99O © 
L 1,ADFINCS 
LM 4,15ySAVE 
| BCR 15,1 
CHK99 CLC 0(492)+199 
BC B8yBYPASS: 
L 1,ADFIOCS 
BALR) Ol 
DC X'ooro! 
B FRROR 
ST 2,S8V1 
ST 3,5V2_ 
| BC 15,LFAVE 
BYPASS L 29SV1 
L 3,SV? 
LEAVE LA 176(4) 
EXIT LM 4,15,SAVE 
BCR 15,9] 
ERROR LA Ly 2(4) 
B EXIT 
A0ZZ2Z DC A(777) 

. ADIBCOM DC A(IBCOM#) 
SAVE DC L8FIO! 
ADFIOCS OC A(FIOCS#) 
199. OC F'ggt 
Svl NS F 
Sv2 DS F 

| HOOFO DC X'OOFO! 

END 


*Note changes in lines 5, 6, 45, 47 


EXHIBIT 1 
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OS/360 FORTRAN CORE ROUTINE- MODIFICATION FOR 
RELEASE 15/16 


AO pe atte Napanee a ot TO Be 


EXHIBIT '1 


ok eR ROR ROR KR RK RR kK eK * kk kkk Kk Oe eR OR ROR KF e *& & & & & CNREOIL)I 
‘gdh hdsdedneteah adnate eubdrkditladaitahhdkeasameteade 
_ esheets ae ie estate as ou COIR EOD 30 
* “CORE READ “WRITE. ROUTINE. | | * CNREOID40 
_ ean ane hte echt ee Whee a tae bps cet oe he ee rae en * CORECO5O 
* | | * CNRECO6O 
_* THIS SUBROUTINE MODIFIES IBCOM IN CORFE IN. SUCH A WAY THAT THE NEXT * COREON7O 
*READ OR WRITE REQUEST WILL ‘CAUSE THE INFOR MAT ION IN THE USER'S | * CORE CO8O 
SBUFFER TO BE CONVERTED AND PLACED IN THE USER'S LIST OR THE. LNFORMA~_* CORECI99 
* TION IN THE USEQ 4S LIST — BE CONVERTED AND PLACED IN THE BUFFER | * COREOLOO 
ee she ath aaretae eset eae tt ROE ean chal alia odaates MIs cerca tye ood Tot ee OREO LO 
* CALL COREA NY ' * COREO129 
5A __....* _CAREO130 
x “WHERE h- TS. THE “NAME OF “ANS “ARRAY. “SUFFICIENTLY LARGE. “TO “CONTAIN | THE * COREO149 
* INFORMATION TO BE PROCESSED - A IS. A. SIMULATED BUFFER = AND N_ 5 ee _.* CORECLS5O 
ae THE BUFFER LENGTH IN BYTES. * COREOL60 
Bi eS aati acpi as Sec cot ES a ce A Mie che Reh eS hs, CR EOL C0 
* EXAMPLE | :  * COREO1L8O 
a, See ee ae ee en Ea eA eT ae ee ee ee EERE, Je O28) 2 a 0)” 8 | 
*  DIMENSTON “AtDOTT “W9(80) : | * COREO2Z00 
FF READ €5,100). WD te CAREO2Z10 
* CALL CORE (A,80) —* CORE0220 
JF WRITE 199) V0). Dt, a St cee i oe nF CNR EO2 30 
* “109 FORMAT (80A1) * COREQ240 
ote os CALL GORE (4,89) oe CN REO 259 
* READ (10,101) X, ue L = * COREO260 
& LOL FORMAT. (3F8.5)_ | Pe Ree ee RAN, TORRE eI TIRE oe 600052977746) 
* | —*® COREO2Z80 
—% A TALL TO CORE MUST PRECFNE FACH DUMMY. READ. OR. WRITES. ee F EC AREO290 
* tT IS POSSTBLE TO DO OOUBLE OR MULTIPLE ARRAYS’ AND USING THE * COR EO300 
RL. APPROPR TATE ARRAY NAME _IN THE CALL TO CORE.. eee rercne nay ernie errr m menrenerr er 0. ho) 
* : 18/360 RELEASE 15/16 CORRECTION AT CORED860 CNREO315 
ee RR OR ROK RK RR OK KK KR eK KK RK KR KK KK EK KK Ke * ee 7% % COREO329 
CORE? START 0 — CORE= CORE 9330 
arc MIN EER al NN csi Dela 8 alae le aga Oi eae pela ee aoe Oa ee a oO a) 
EXTRN IBCOM | COREO350 
ae Oe =: cat | Oo - an ee ee Bj siits hae Ei nichrt ha aeaticrcnaet dak, hat RE OOOO: 
* * CNREO37O 
Pics _.FIRST ENTRY, POINT... THIS ROUTINE PICKS UP OPERANDS ONE * COREQ380 
* AND TwO AND STORES THEM AT THE TWO FULL WORDS AT BUFLOC* CNREO399 
a tase Dew piece tte cea A eine ae ed ec ea sep ata yreaie pemnaa w quiet acd eda hn tice iaseeaiGoys! a pe RE OFOO 
USING *,15 CNREG4E10 
CORE ee ee BRANCH ARNUND NAME sett _  ENREGS?O 
NC XL4'*N 70000008 ROUTINE NAME FOP CALL TRACE CNREOQ430 
cee NG CL4ANCORES ROUTINE NAME FO2. CALL_TRACE.. sss CN RE OKO 
ST™ 14, 3,12(13) SAVE REGISTERS ~~ CNREO450 
ce cee eevee leM 22 3D CD)UUUU!UF FITCH. ORPERAND ANDRESSES OOO CNR ENG 
L 3,0(3) FETCH C'PERAND 2 (LENGTH) CUREN47N0 
eee einen IM 293 BUF ADR USTORE, SUFFER LOC AND LENGTH. LD EN REO489 
LA 1, CORE? Ri= A( SECOND ENTRY POINT) © CORE0490 
__LA_....3,CLOAD.... ss SET BASE. REGISTER FOR CLOAD_...._ssi—i ac aC. CP REOSOO 
BALR 2,3 LINK TTT MONIGY TBCOM ADCON COREN519 
UM... 1493512013)... . RESTORE REGISTERS | | COPREC520 
SR 15,15 SUPPRESS Sei enacal RETURN CNHREDNS30 

Re >) cee) ae me cae eee ee RETURN. ae | 


. COREO549, 
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OS/360 FORTRAN CORE ROUTINE -MODIFICATION FOR 
RELEASE 15/16 


ORR. LS. 


‘CARN COUNT 


109 


EXHIBIT 1 


CINREG554 
EJECT CORENS 5G 

& SECOND ENTRY POINT. IBCOM ENTERS AT CNRE2 THINKING IT ¥* COREOSTL 
® WENT TO FIOQCS. THIS ROUTINE STMULATES FIGCS BY PRINTING*® CNREOSSBC 
be — TO BUFFER ADDRESS AND LENGTH STORED BY FIRST ROUTINE. * CIREO5S9C 
OK IRBCOM IS RESTORED TO NORMAL, FOLLOWED BY RETURN TO * CTRECSON 
* _ _TRCAM, A WRITE BUFFER IS INITALIZEN TO BLANKS 8EFORE. * CORENG19 
x IBCOM FILLS 1T TN ALLOW T FORMAT TO WORK CORRECTLY. * CIREOS2C 
% a ee ee ae Uae AR eo eee * CNORECH30 
NSING ¥*, 1. C°oREC64C 

CORE2 ST 4ySAVES SAVE RG) ct cat CPrREDS5C 
LR 49 R4=A (CORE2) | CAR ENH6O 

ASSING COR C2 Fie eee csntst, wieabaile. ela eingn ack wm Sebteridvine tatiweteritonn, Rasmdene & 2G REOS TC 

 ORNP , COREGS3N 
JR 129 PY POINTS TO FINCS CALL PARAMETERS = EPRENB9C 

™ 1(1),X"OF? TEST FOR OUTPUT, FIRST TIME | CcCREGTIOG 

BN QuTPUT ... .. _L. BRANCH TO FIRST OUTPUT. POUTINE | CCRECT1C 

1. ly VFINCS RIZA(FTOCS) TA RESTORE TROOM CHREGTAC 

LA  . 3yCLOAD SFT BASE RFGISTER FOR CLNAND. _ssssdiw CPREOT34 

RAL B74 LINK TO MODIFY ITRCOM ANCON | CUREOT4E 

LM. | 2.2 y.2%yRUFADR LOAD ARRAY ADR AND LFNGTH....... CNREGTSC 

R RETURN BRANGH TO RETURN TO TBCOM CrREOTSA 

OUTPUT LM 293, BUFADR_. LPAD APRAY ADR AND LENGTH oo uw. | .CORECTTO 
MVT N(2),X "408 BLANK FIRST RUFFER LOCATION COREO78G 

 BCTR 32,0... HLL] CHAR. TO BE BLANKED. ae. 6§€CFREOTIO 

RCTR °-3,9 -] LENGTH CODE FOR MOVE= LENGTH-1_ | COREOBOO 

FX  .3,0MQVE aaa: DUMMY MOVE T9 CLEA® RUFFER. _. CRPRENSIN 

LA 34213) =R34+2 RESTORE ORIGINAL LENGTH CNRFEOSK20 

RETURN  f. 4S, SAVES. a er osone. RG. ECF REOR30 
LR 140 RI=A(TBCOM ARGUMENTS) COPEC349) © 

GF Ca / Sg San ee ee CO sis * sage GBs ane Maule ch, teeesedoe wed i, SA ROO 

e Q ?(1) RETURN TO ITRCOM. REL. 14 & PRIOR. CORFOS59 
PR 61) © .. . RETURN TO TBCOM, BPEL. 15/16 §& SJBSEQUENT. CO7ZENRHN 

SPACE 2? CM2EN865 

JMNVE MVC 14% 9274902) EXECUTED. CLEARS U2? TO 257 BYTE. BUFFER Cr REQN370 
FYECT | CPREARRO 

“eo 2060 RE AN ADDRESS THE CALLER WANTS STORED AT. VFINCS IN . * Crrzensgo 
“fe R15 MUST BF ACIBCOM) TO SATISFY RASE RFG REOMNTS IN % CP@ENIIN 
t I8C9M,. CALLEP LOANS R3=AICLTMAD) FNP ME % CMREAQINA 
ws * COREEI2N 
 ANSING *,3 a roe oes Creerg30 

CLIAD ST 15, SAVE SAVE R15 Creecaso 
LAS yVIB8COM R15 ACTACOM) FOR I8COM BASE BFG CORECIS5O 

MVT 74(15) »X*5908 MAKE (GAD A STORE INSTRUCTION COR EQI6D 

FY —0,74015) —  STARFS RL AT VFIOCS IN IR8COM | CrRFO9TO 

AVI 74(15),X%"*58"8 RESTORE LOAD INSTRUCTION TO STORE CrRECQARN 

Le Suse Le SAVE eeu RESTORE RS... CnOREQS9N 

RR ? RETURN CrRELNOO 

BYFANR NS 2F STAR AGE FOR A(RINFFER) AND ITS LENSTH |. CCREIOLO 
SAVE NS F STORAGE FAR RLS CrREID20 
SAVES DS FF. oo STORAGE FOR R4 COREIN30 
vIBCOM nC AC TRCOM#) A(L 1_ VIRCOM INSTN IN I8COM-74)° CPEF104N 
VETOCS nc ACF INC S#) ANDRESS OF FINCS PDUTINE COUPE1N50. 

FNN 
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OS/360 ISAM DATA SET INTEGRITY 


OS/360 users can prevent the loss of ISAM 
Data Set records when a system ABEND 
occurs during a record addition that moves a 
record from the Prime Area to the Overflow 
Area. The DCB parameter of WMSA causes 
the in core adjustment of the primary and the 
overflow records before the writing occurs. 
Thus, the prime area is not over written before 
the moved record is set up in the overflow 
area. This technique requires more core but 
eliminates the exposure to lost records in this 
situation. 


OS/360 USE OF ACCOUNTING ROUTINES 
‘WITH MFT-II AND MVT 


The Master Scheduler utilizes Reader/Interpreter 
and Initiator modules to start a Reader or Writer 
and, in MVT, an Initiator. Asa result ofa 
START command, the system provides a JOB 
statement, and the remaining JCL is taken 

from PROCLIB. This means that your account- 
ing routine may be looking for accounting infor- 
mation which the system does not provide. 

This would lead you to fail the "job" in your 
accounting routine, when in reality itisa 
System Task. 


A solution is to check the system provided job- 
name in your accounting routine and not fail 

selected names based on the lack of accounting 
data. The procedure name used in the START 


command becomes the system generated 
jobname. 


DOS /360 INITIALIZE DISK-MODIFICATIONS 
FOR FG USE 


The following field contribution has not been 
submitted to any formal IBMtest. Potential 
users should evaluate it in their own environ- 
ment prior to implementation. 


The coding sheets in Exhibit 1 show the 
procedure and modifications needed to catalog 


the DOS initialize disk program to operate in 
F2. 


Punch out the IJTWID modules from the relo- 
catable library. Change phase names for 
cataloging for F2. Include the three Rep cards 
that change the fetch phase names in modules 
IJWID and IJWID2. Catalog the modules to 
core image library. The same procedure can 
be used for Fl, 
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DOS/360 PL/I CLARIFICATIONS 


Issue No. 68-17 of the Newsletter contained an 
article under this same title. Paragraph No. 3 
on "Internal Representation of Pointers'' may 
have been misleading, and the following infor- 
mation has been supplied for additional clarifi- 
cation. 


It is true that pointers presently occupy 3 bytes, 
however, these 3 bytes are the rightmost 3 bytes 
of a full word. The first byte of the full word is 
normally unused. However, within structures 
the data item ahead of the pointers may extend 
into the first byte of the pointer full word. 
Pointers are not generally used as elements of 
structures since structures are normally used 
as input or output records, and pointer values, 
specifying an absolute address, are meaningful 
only during the execution of a particular pro- 
gram. 


Four byte, full word, pointers are planned for 
PL/I-D Version 4, DOS Release 20, and it is 
expected that only a very few programs will be 
effected by this change. 


OT 
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IBM System. 360 Assembler Coding Form 


PUNTHING 
INSTRUCTIONS 


PHASE ‘ TD IwI21P 1, NOR: 


ae eee ee ae aera) 


ure ra ae an? ey canes spats ee 
C h-hh Ta Ge eh It ES oe | EAL AS MATE? 


sev eietet, Ld verenieiniie cients oe aes eet, 
siice. WTR? TIvDDAP2, WoneT © “eaanee tans NA 

Fn AS | 2 re - Ehi At WATE! pate: De keg : eens Miss 
PHasE x TOY LIVI! LPL, NOAUTO ‘HAN WCE PMA Se 2 : wT Dd 


ms : Mi ASE 


ee ew ‘a nam = aon a a has tA i Ede. a Z MATL 
| =a 


Pre i : a a RA ag) ace ss ae a sass 
Se antes ite ee a iseidetien ke 4 | 


i.e t. 
Agtigsenye en ees eens witér esueiaane. 
t : 


8961 “ET TAquiIsleqd 


T2789 “ON OnNnss] 


IT 


DOS/360 INITIALIZE DISK-MODIFICATIONS FOR FG USE 
'BM System 360 Assembler Coding Form 


en ee ae ca 


Opoerctian ie EES 
rg) sis 
ae < ee Ce eee em a ae ren re eet eee 
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WEN PYPE III PROGRAMS 


The following are the abstracts of programs which have been recently 
made available from the Type III library. 


The program, along with its complete abstract, will be incorporated 
in subsequent issues of the Catalog of Programs. 


Programs may be obtained by submitting a properly completed "General 
Program Request Card" (Form Number 120-1145) to the Program 
Information Department, 40 Saw “Mill River Road, Hawthorne, ilew York, 
10532. 

These programs and their related. documentation are. distributed by 
IBM in the author's original form and have not been subjected to 

any formal testing... 


Any discussions of Type III programs with customers must emphasize 
the following points: 


1. - Type III (IBM employee-contributed) programs are provided 
by the IB‘ Corporation as part of its service to customers. 


2. - Type III programs have not been subjected to any formal 
test. . 


3. - Recipients of Type III programs are expected to make the 
Final evaluation as to the usefulness of the programs in 
their own environment. 

4, - There is no. committea maintenance for Type.III programs. 
However, any changes. the author chooses to.make. will be 
announced in subsequent.issues of the Catalog of Programs. 


5. - IBM makes no warranty, expressed. or implied, as to the 
documentation, function, or performance of Type III programs. 


* cS * * * * * * * * * 


= = = REVISION - 7 = 


DOS PRIVATE LIBRARY 
The Machine Readable Material has been changed. 
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Ordering Procedure: Program Order.Number 360D-03.1.012 


The program material can be obtained in card. form or.on. one 9. track. 
or 7 track (Data Conversion feature reguired) Distribution Tape Reel 
(DTR). 


If not specified, a 9 track DTR will. be provided. No tape submittal 
is required. The DTR will be provided by the library. 


* * * * * * | * * *k * * 


a - = REVISION = - = 


BASIC AUTOCODER ACCESS METHOD 


14 pages of Documentation and the Machine Readable Material have 
been changed. 


Ordering Procedure: Program Order Number 360D-06.3.003 
The program material can be obtained.in card. form or on one 9 track 
or 7 track (Data Conversion feature required) Distribution Tape Reel 


(DTR). 


If not specified, a 9 track DTR will be provided. No tape submittal 
is required. The DTR will be provided by the library. 


* * * * * * * * * * * 


= = = REVISION - = - 


ESCAP 


25 pages of Documentation and the Machine Readable Material have 
been changed. 


Ordering Procedure: Program.Order Number 360D-12.2.006 


The program material can be obtained. on. one 9 track or 7 track (Data. 
Conversion feature required) Distribution Tape Reel (DTR). 


If not specified, a 9 track DTR will be provided. No tape submittal 
is required. The DTR will be provided. by the library. 


* * * * * * * * * * * 


= = = REVISION = = = 


AUTOCODER CONVERSION TO SYSTEM/360 “MODEL 20 BAL 


Two pages of Documentation and the Machine Readable Material have 
been changes. 


Ordering Procedure: Program Order Number .360E=12.2.001 


The program material can be obtained on one 9 track or 7 track (Data 
Conversion feature required) Distribution Tape Reel (DTR). 


If not specified, a 9 track DTR will be provided. No tape submittal 
is required. The DTR will be provided by the library. 
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OS/360 FORMATING STAND-ALONE CORE DUMP. In the event of an OS/360 
system abend error, this program will provide a.core.dump that is 
almost identical to the standard 0S/360 abend dump, only. from a 
stand-alone environment. In addition,.it.will.dump any other. non- 

OS core image omitting. the OS/360 control.block formatting...All 

of core is. dumped with the exception of the first sixteen bytes. 

At the end of the dump, core is restored with the original: information 
and is saved so. that. in.the event of:a hardware failure. both 
customer's program information and hardware logout information may 

be processed. by this. dump. program and. SEREP.in. that order. 


Any messages to the operator are printed on. the console. typewriter 

and are self-explanatory. “lachine check. interrupts are .masked off, 
and. unlimited. error recovery is. incorporated so.as to.insure. dump. 
output if.at.all.possible..:.Printed.characters.are.limited.to standar4 
alphabetics and numerics to substantially.speed up output.to a UCS 
printer. Likewise, output may be selected to tape or printer on 

any System/360 or 1400 system. Operating System Required - OS/360. 
Minimum System. Requirements.=- the only restrictions are.that the 
program must be run from tape, requires any System/360 model 30 or 
larger, and must’ have.a minimum core size of 32,768 bytes. 


Ordering Procedure: . Program Order Number 360D-04.1.009. 


The program material can be obtained on one 9 track or 7 track (Data 
Conversion feature required) Distribution Tape Reel (DTR). 


If not specified, a 9 track DTR will be provided. No tape submittal 
is required. The DTR will be provided by the library. 


A GANTT REPORT FOR MASTER PLANNING. This program produces a Gantt 
chart for master planning. Such charts are a very useful aid to. 
effective scheduling and control of. various aspects of production. 
Important events in the production cycle (such as critical deadline 
dates) are set off graphically on a time scale. The report produced 
by this program allows the user to look 15 weeks ahead of the current 
date. Options are provided to. shift.the time scale .1, 2, 3, or 4 
weeks to the left. Thus, the report may be updated frequently witn 
a minimum of keypunching new data. Programming Language = PL/I, 
Operating System Required - S/360 Operating. System (OS)... “Minimum 
System Requirements - System/360, Model 30 or larger without 
modification, It is possible to modify the program so that it will 
run on smaller models of the System/360. 


Ordering Procedure: Program Order Number 360D=-15.4.005. 


To obtain program material, submit one 2400 foot reel of magnetic 
tape. Specify whether 7 or 9 track recording is. required. If not 
specified, 9 track recording will be used. 

The required tape may be ordered from IB‘ or supplied with your 
request for the program. 
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A DOS GRAPHIC PROGRAMMING SERVICES PACKAGE FOR THE 2250. A graphic 
programming services package. that supports the IBM 2250.Display Unit 
Model 1 in a DOS environment, provides nearly all the facilities 

of 0S/360 Graphic Programming Services for the. IBM 2250 Display.Unit 
(GPS/OS). These facilities enable.the ALP programmer to.code programs 
for the 2250 using read-write logic, without. concern for .CCW's and 
data bit configurations. The apparent differences from GPS/OS are 
synchronous entry only to user attention .routines, the limitation. 

to one I/O operation at a time, and. first-in-first-out dequeueing. 

of attentions. Programming Language - All.modules and routines are 
written in Assembly Language, and all macros are. coded in the DOS 
“Macro Definition Language. Operating System Required = DOS/360. 
“Minimum System Requirements. - The DOS minimum, the decimal feature, 
and a 2250 Display Unit, “lodel 1, with buffer. A DOS supervisor 

with TP=<BTAM and the 2250 specified as a 2260 is required. No. changes 
are made to any Type I programs. The logic. module requires 4K. bytes, 
the DTFGR requires 22 words, and other control blocks and. macro 
expansions require storage dependent on the application. 


Ordering Procedure: Program Order Number 360D-03.7.023. 


The basic material can be obtained in card form or one one 9 track 
or 7 track (Data Conversion feature required) Distribution Tape Reel 
(DTR). | 


Tf not specified, a 9 track DTR will be provided. The DTR will be 
provided by the library. 


The optional program material (Graphics Load Module) can be obtained 
on one 9=track or one 7-track (Data Conversion Feature Required) 
DTR. If the track requirement is not indicated 9=track will be 
forwarded. The DTR will be supplied by PID - no tape submittal is 
required. 


IBM SYSTE1/360 SHORT CIRCUIT ANALYSIS PROGRA'’ FOR THE ELECTRIC UTILITY 
INDUSTRY. The Short Circuit Analysis Program simulates an electrical 
power system for power flows and voltages when abnormal operating 
conditions occur during a balanced or unbalanced fault on.the system. 
The program. uses the z matrix solution technique to simulate a maximum 
electrical transmission system consisting of 500 buses with 1000 
transmission lines. Up to 50 buses may be retained by the program 

at one time. | 


Two types of fault conditions may be calculated by the program 1) 
a three phase fault study which may include either reactances only, 
or both resistances and reactances of the electrical system, and 


2) a line to ground fault study (x only) which may include the mutual 
couplings within the electrical system. The information obtained 
from this program can be used to determine circiut breaker 
interrupting ratings as well as relay settings for the transmission 
system under consideration. Programming Language - FORTRAN IV. 
Operating System Required - DOS/360. Minimum System Requirements 

- S/360, 65K core storage, a card reader and a. printer. 


Ordering Procedure: Program Order Number 360D=16.4.008. 


The program material can be obtained on one 9 track or 7 track (Data 
Conversion feature required) Distribution Tape Reel (DTR). 


If not specified, a 9 track DTR will be provided. Wo tape submittal 


is required. The DTR will be provided by the library. 15 
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CHECKPOINT/RESTART/RECREATE FOR S/360 OPERATING SYSTEM. 
Checkpoint/Restart/Recreate is a set of Assembly Language modules 
which runs under Operating System, MFT II, and has been integrated 
with releases 15.2 and 16. Primarily .a tape-oriented checkpoint, 

it takes a checkpoint after the standard header labels of each reel 
of the data sets being checkpointed. The problem program. .may be 
restarted at any time from any of these checkpoints. At restart, 

the operator may re-assign devices. The restart program.then.issues 
mount messages, repositions all tape files, restores core and job 
queue information, and returns to the problem program. The recreate 
facility allows from .1 to 8 reels of a file to be reproduced, . leaving 
the rest of that file and ail other files.intact. Checkpoints, 
restarts and recreates are essentially transparent.to the problem 
program. Programming Language - Assembler Language. Operating 
System Required - O0S/360 Release 15 and up. Minimum System 
Requirements - The program executes primarily out of the SVC transient 
area and requires not more than 1000 bytes of problem program core. 
It may be run on any hardware configuration under OS/MFT II and 
assembled under any OS System. 


Ordering Procedure: Program Order Number 360D-03.0.096. 


To obtain program material, submit one 2400 foot reel of magnetic 
tape. Specify whether 7 or 9 track recording is required. If not 
specified, 9 track recorcing will be used. 


The required tape may be ordered from IBM or supplied with your 
request for the program. 


DOUBLE 7074 EMULATION ON 360-65-I. This is a 360 ALP program which 
allows the S/360-65I with shared storage RPQ and 7974 emulation 
feature to con-currently operate two 7074 programs in emulation mode. 
This program is not model dependent i.e. 360-65. If such an RPQ 
were available on a Model 50, the program would also be able to run, 


The two jobs running are logically independent and unaware of each 
others existence. They operate in a time-slicing mode basec upon 

T/O interrupts. Each program has dedicated channels corresponding 

to the 7074 programs. Two consoles are supported. The primary 
resource shared.is CPU time. 360-65I users who have 7074 emulation 
and 360-65H users who need to increase core for growth .should review 
applicability of this. program and.the EMOS (7074/0S) program. They 
give emulator users the ability to multiprogram 7074 runs either 

with other 7074 runs or with OS without repragramming .gaining .the 
advantage of .overlapping..setup,.typing, rewinding. and. CPU as availab's 
with other productive computing. Programming Language - 360 ALP, 

and requires IBM Program 360C-EU-725 Version 3.. Minimum System 
Requirements = Program requires one tape for .loading.or program which 
is subsequently available .to the system... The user will-probably: 
double his .7074 .I/9 .configuration having for example, two typewriters, 
two card readers, 4 channels. with 4 or 5 tape drives on each channel. 
No disk is used. The exact configuration will vary with the hardware 
requirements of the .7074 programs to be run. 


Ordering Procedure: Program Order. Number 360D-05.2,003 


The program material can be obtained on one 9 track or 7 track (Data 
Conversion feature required) Distribution Tape Reel .(DTR). 
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If not specified, a 9 track DTR will be provided. No tape submittal 
is required. The DTR will be provided by the library. 


FORTRAN STATEMENT IWUMBER SEQUENCING FOR 1130, 1800. Process a FORTRAN. 
Source Language Program, sequencing the statement number labels and 
all references to the labels in the program, according to input 
specifications. Optional punch, list. Cross-reference of old to 

new statement numbers. Also uses new ID. specification. Programming 
Lanugage - FORTRAN, ‘“linimum System Requirements - Uses .7,610 words 

of core. Also, the program requires 126 disk blocks excluding the 
IDEAL and Commercial routines. 1/0 devices required — 1442 Card 
Reader/Punch and the 11360 Printer. 


Ordering Procedure: Program Order Number 1130-03.6.001. 


Distribution will be in card form. 


OPTIMIZATION OF MATERIAL FOR MAXIMUM CABLE PRODUCTION. Whe program 
provides a machine loading schedule for the production of multi- 
conductor cables where an individual conductor length choice is 
needed. While meeting various order specifications the program 
provides maximum cable length production and if the order cannot 


be filled with available wire, it gives requirements. for complete 
order, At the same time it gives minimum waste, mimimum set-ups, 
minimum spool changes and a. maximum of long cable lengths. The 
program also provices information for cost analysis and.a- better 
inventory system for wire availablo,. Inputs to the program.include 
spool lengths according to conductor type, cable lengths desired, 
mimimum acceptable cable lengths, total ordered footage, .waste point, 
and twist loss. Programming Language = Source - Basic FORTRAN IV, 
Monitor System Required - 1130 Disk Monitor, Version 2, Mod.1. 
Minimum System Requirements - 1130 with 8K core, card input and 
printer output. 


Ordering Procedure: Program Order Number 1130-23.1.095. 


Distribution will be in card form. 


ROMANCE = PRATT AND WHITNEY TAPE-O-MATIC POST PROCESSOR. The 
ROMANCE/TAPE=O0=MATIC POST PROCESSOR program is designed. to use the 
output of ROMANCE (1130-23.4.002) to produce punched paper tape for 
the Pratt and Whitney Tape-O-Matic Numeric Drilling Machine, Model 
B. The tape format is tab sequential.and a listing of.the tape is 
provided. Console switch options provide card output in lieu of 
paper tape, debug facility and printing by pass. A utility orogram 
is included with the package to reread and list the tape. Programming 
Language - FORTRAN IV. Operating System Required - 1130-0S-(002, 
VIM2,. “finimum System Requirements - 1131 Model 2B (8K-Disk) 1442 
Card/Read Punch, 


Ordering Procedure: Program Order Number 1130-23.4.005. 


Distribution will be in card form. 
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MODIFICATIONS TO 1130 TCP TO DRIVE LINOFILM QUICK. The 1130 Type 
Composition Program (DP-04X) is used extensively to drive hot metal 
linecasting machines. Many printers who have replaced this equipment 
with the Linofilm. Quick device can use the 1130 Type Composition | 
package plus the minor changes outlined in this program .to provide 
continued use of computerized typesetting in their shop. These 
patches to the 1139 Type Composition Program, Version 1, Level 2 
enable the user to drive the Linofilm Quick device in a manner similar 
to the techniques used in driving a 4*magazine linecaster, 
Programming Language —- Source =- 1130 Assembler Language. Minimum 
System Requirements - Those required to run the 1130 Type Composition 
Program. (DP=O/IX). 


Ordering Procedure: Program Order Number 1130-29,.4,.001 
Distribution will be in card form, 


* * * * * * * *k * * * 


1130 FUNCTION PLOT ON PRINTER. This is a demonstration program 
primarily for educational institutions, but can also.be used by them 
in a math or physics curriculum. ..It. demonstrates the: high internal 
speed of the 1130, the use of IBM=<supplied subroutines such.a. Sine, 
Log, etc., the advantages of: a disk: machine, and the.flexibility 

of man-machine interaction. The user: inserts his function card. ana 
data card/s/. .The program.plots.the.function.on.the printer, then 
asks .for changes. ..It also.handles’.undefined regions.of a function. 
Programming Language.=.FORTRAN with one Assembler subroutine. Monitor 
System Required - 1130 Monitor. Minimum System Requirements - 8K 
disk 1130 with 1442 and 1132. 


Ordering Procedure: Program Order Number 1130-30.2.002 


Distribution will be in card form. 


1800 MACRO UPDATE PROGRAM. This program is a Macro Update. Program 
(MUP). It.is.to be used.in conjunction with the.1800 Macro Assembly 
Program (File Number 1800-93.7.001). This .program.permits ‘updating 
of system. macros defined by the referenced. processor. .The program 
permits insertion and deletion of .statements* within’ a.macro.or.of . 
entire macros with a single statement. It also: permits the removing 
and renaming of.macros.,.. The macro.update’ program facilitates .the 
maintenance of Large or small programs, residing on:disk.and.system 
macros. Programming Language +.1800° Assembler. Monitor System | 
Required - TSX II or TSX III. Minimum System Requirements — 4200 
words of variable core; this is’ the only configuration restriction. 


Ordering Procedure: Program. Order Number 1800-03.6.001. 


Distribution will be in card form. 
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NEW TYPE IV PROGRAMS 
} The following are the abstracts of programs. which have been recently 
made available from the Type IV library. 


The program along with its complete abstract, will be incorporated 
in subsequent issues of the Catalog of Programs. 


Programs may be obtained by submitting a properly completec "General 
Program Request Card" (Form Number 120-1145) to the Program 
Information Department, 40 Saw “Mill River Road, Hawthorne, New York, 
10532. 


These vrograms and their related documentation are distributed by 
IBM in the author's original form and have not been subjected to 
any formal testing. 


Any discussions of Type IV programs with customers must emphasize 
the following points: 


1. - Type IV (IBM customer-contributed) programs are provided 
by the IBM Corporation as part of its service to customers. 


2. ~- Type IV programs have not been sukjected to any formal 
test. 


3. - Recipients of Type IV programs are expected to make the 
final evaluation as to the usefulness of the programs in 
their own environment, 

4, - There is no committed maintenance for Type IV programs. 
However, any changes the author chooses to make will be 

© announced in subsequent issues of the Catalog of Programs. 


5. - IBM makes no warranty, expressed or implied, as to the 
documentation, function, or performance of Type IV programs. 


- - - REVISION - - - 


COOLEY - TUKEY FAST FOURIER TRANSFORM 


All pages of the Documentation and the Machine Readable Material 
have been changed. 


Ordering Procedure: Program Order Number 3600-13.4.002 


Distribution will be in card form. 
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COOLEY-TUKEY FAST FOURIER TRANSFORM ON DIRECT ACCESS. Subroutine 
FOR2D (IDATA, N, NDIM, ISIGN, IFORM, WORK, NELEM) for N data points, 
FOR2D runs in time proportional to N log N, while pre-FFY methods 

run in N**2, For large N, this is seconds versus hours. The FFT 

is the fastest and most accurate way of computing periodograms of 
time series, convolutions and correlations, Fourier coefficients, 
digital filters, partial differential equations, etc. DATA is a 
complex, multi-dimensional array of data kept on direct access storage 
in file IDATA, in records of. length NELEM. ™ is an array of length 
NDIM giving the dimensions of DATA. NDIM is. unrestricted; each. N(T) 
must be a power of two, as must NELEM, ISIGN = +1 or -1, the 
transform direction.. IFORM = 1. .WORK is a one-dimensional. complex 
array of length 3*N=LEM used for input/output buffers. the user 

must supply two subroutines, DREAD and DWRIT, for reading and writing 
records in arbitrary order to and from the direct access storage 
device (disk, drum, etc., but not tape). Programming Language - 
USAST. Basic FORTRAN. Operating System Required.- BOS, DOS, or OS, 
Minimum System Requirements - S/360, Model 30 with 64K core storage, 
card reader, disk files,.and. printer. 


Ordering Procedure: Program Order Number 360D-13.4.006 
The program material can be obtained in card form or on one 9 track 
or 7 track (Data Conversion feature required) Distribution Tape Reel 


(DTR). 


If not specified, a 3 track DTR will be provided. No tape submittal 
is required. ‘The DTR will be provided by the library. 
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An action code ''M''! in column 14 denotes 


SELECTED SHORT SUBJECTS that a user of record is ordering an © 
announced maintenance package for a pro- 

The purpose of Selected Short Subjects is to gram or a programming system. An 

bring together and highlight concise, factual action code ''R'' in Column 14. denotes that 

and timely information which will indicate a user of record is ordering an announced 

that action is to be taken by the IBM repre- total replacement for a programming 

sentative whose accounts are affected. system. These are exceptions to the nor- 


mal ordering pattern. Ordinarily, Col- 
umn 14 is left blank. 


1, New Newsletter Feature In any case, do not use Column 14 to 
| request Program Update Service. 
A new feature to help you find New 


Type III and IV Programs has been added Section 1, Columns 21-22 

to the INL. Each issue will contain | 

an updated Accumulative List of New The medium on which each programis avail- 
Type III and IV Programs. This able from PID is identified in the Catalog 
should help cut down your’search of Programs. The code for the desired med- 
time. Take a look at the end of the ium should be entered in Columns 21/22. 
green pages for further ‘details. This field should not be left: blank if Machine 


Readable material is ordered. 


2. Suggestions for Completing the New PID 


Program Order Form Section 1, Columns 23-24 
Judging from the first arrivals of the When a program is available from PID on | 
new Program Order Form at PID, a User Volume (Tape/Disk), the number 
several of the instructions have not of User Volumes required should be 
been made clear. The most frequent entered in Columns 23-24 and the total num- © 
problems arise in the following areas . ber required to fill the order should be 
of the form: accounted for in Section 3. This field 
should be left blank if User Volumes are 
Section 1, Columns 1 and 2 not required. 
These columns must be filled in for | Section 3 
each program ordered so that we 
know whether the requester wishes the If User Volumes are required, as determined 
Basic or Optional material and the in Section 1 Columns 23-24, the total number 
Machine Readable material or only the of tapes and/or disks and the manner in which 
Documentation. they are being provided to PID should be 
entered. If no User Volumes are required, 
Section l, Column 3. Section 3 should be left blank. 
Documentation only orders for Type I Section 4 
and II Programs should be sent. to 
Mechanicsburg, not PID. | No entry at all is required in Section 4 
. for a normal order for a user who has 
Section 1, Column.14 | ordered programs from PID before. 
| 2 | | But if any data is entered in Section 4, an 
Program Update Service is provided action code must appear. 
automatically to users ordering Type I | | 
and II Programs. Through the © To register a new user, enter action code 
Program Update Service, users of record "R", the Branch Office or the IBM Division/ 
get automatic distribution of program Location/Department (not both), the user's 
maintenance. Users of record also get S/360 Magnetic Tape Capability and the ''Ship © 
announcements of tetal replacements | To" information. To modify an existing regis- 
and/or maintenance packages which tration, enter action code ''M'" and the new infor- 
must be ordered from: PID, mation in the block to be modified. 
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The action code ''S'' should be used only 
when the "Ship To" information for this 
particular order is different than the infor- 
mation on the PID user record. Use''S'' 
only if the User is already registered with 
PID. The information which should be 
entered in Section 4 when action code '"'S''! 
is used is "Ship To" information. 


Section 5 


An IBM Management Signature, the date and 
the Branch Office/Department Number 
should be entered in Section 5. The 

Special Messages area should be used only 
for Liquidated Damages infqrmation. 


Complete instructions on the new Program Order 
Form appear in all Catalogs of Programs, in 
+he the Branch Manual (Sales Activity section), 
on the cover of all Order Form pads, and 

on the back of eachOrder Form set. These 
instructions should be reviewed and under- 
stood before submitting program orders to 

PID. 


OS/360 RELEASE 17 MVT START COMMAND 
VALID PROGRAM NAMES 


MVT users who have added program names to 
the Start Command Program list (module 
IEEVLNKT) should be aware that Release 17 
has added four new module names to the list. 
The complete list in module IEEVLNKT is as 
follows: 


IE FIRC Reader 

IEFSDO80 Writer 

TEE VMNT2 Mount 

THKRJ BGN RJ E 

IEF VRRC CHKPT/ RESTART 
IKDINPPO Graphics (SGJP) 
IKDSGJP Graphics (SGJP) 
IEF VMA ASB Reader 
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IKAGFX Graphics (GIP) 
IKAGJP Graphics (GJP) 
IEFSDO60 INIT 


Any program that is found in the EXEC state- 
ment of a Start procedure must appear in this 
list for the procedure to be successfully started. 


OS/360 MVT HIERARCHY STORAGE SUPPORT 


Main Storage Hierarchy support is the pro- 
gramming support for the IBM 2361 Core 
Storage. It provides selective access to 
either processor storage or the 2361. 


Main Storage Hierarchy Support divides main 
storage into two blocks, known as hierarchies. 
Hierarchy 0 is assigned to processor (high 
speed) storage and hierarchy 1 to the 2361. 


If 2361 Core Storage is not attached to the 
computing system the hierarchy structure 
will be maintained by allocating hierarchy one 
storage requests in processor storage. (For 
a detailed description of this support you 
should refer to IBM SRL C27-6942 entitled. 
"Introduction to Main Storage Hierarchy 
Support for IBM 2361 Models 1 and 2") 


The following keyword parameter, added to 
the CTRLPROG macro instruction at system 
generation, makes the storage hierarchy 
feature a part of the system: 


| (Include) 
HIARCHY =(Exclude) 


Job Control Language parameters allow the 
user to specify the size of the region segments 
(hierarchy 0 and 1) to be obtained for execution 
of each job step. 


, REGION=( value OK , value 1K) 


Where value 0K’ refers to the size of the 
region segment in hierarchy 0 and value 1K refers 
- the size of the region segment in hierarchy 

e.g. REGION =(80K, 120K) indicates that 
ee of hierarchy zero storage and 120K of 
hierarchy one storage be allocated for this 
region request. 


a 
ale 
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It is important to note the following operation 


considerations related to an MVT environment. 


1. The hierarchy structure will be maintinaed 


even though the 2361 is not attached to the 
computing system. For example, a 
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have two copies of the load modules in the 
program library. One copy having the 
hierarchy zero attribute and the other one 
having the hierarchy one attribute. This 
will tend to increase the size of program 
libraries and of procedure libraries, since 


REGION=(80K, 120K) request will result 
in two region segments (of 80K and 120K) 
being allocated from processor storage. 


_ If the REGION parameter is omitted from 
the Job Control Language, a default value 
will be supplied by the Reader/Interpreter. 


This default value will be from hierarchy 
zero. There is no means of specifying a 
hierarchy one value in the Reader/Inter- 
preter default options. 


. Regardless of the hierarchy zero size 
requested through Job Control Language, 

a hierarchy zero segment large enough to 
accommodate the Initator will be obtained 

to initiate the job step. If the terminator 

is resident in the system Link Pack Area 
the "initiator size region'' may be exchanged 
for a smaller one (minimum size of approxi- 
mately 12K) at the time the processing 
program is given control. This is done so 
that the job scheduler is guaranteed to have 
high speed storage in which to operate, so 
that potential overrun situations may be 
avoided. | | 


. System tasks, such as Reader/Interpreters, 
Output Writers and Remote Job Entry 
cannot be 'STARTED" into a hierarchy one 
region segment. In general, any function 
which is initiated with a START command 
cannot be directed to hierarchy one. 


. Modules from the system linkage library 
(SYS1. LINKLIB) or from the system SVC 
library (SYSl1. SVCLIB) may be relinked 
with the hierarchy one attribute and may 
then be loaded, by NIP, into the appropriate 
hierarchy of the Link Pack Area. In this 
manner it is possible to cause system 
functions to reside in LCS, however, all 
GETMAIN requests issued by these modules 
must be satisfied from hierarchy zero. 


. If it is required to be able to execute a 
processing program from either hierarchy 
zero or hierarchy one it is necessary to 


different program names must be used. 


OS/360 RELEASE 18 MCS CHANGES 
PLANNING INFORMATION 


For Release 18 Multiple Console Support, a 
SYSGEN option, SVC 34 was changed so that 


it would expect a value in Register 0 indicating 


the console source of the command to be 
processed. This value is used to determine 
whether or.not the console which issued the 
command has the authority to issue that 
command. 


Register 0, therefore, should contain a zero 
in order to process internal commands. An 
internal command is defined as being a 


command which was not issued by the operator 
nor was introduced into the system via the input 
stream. A zero value in Register 0 indicates 


that the invoker of SVC 34 can issue all 
commands. If a value other than zero is in. 
Register 0, the command would be executed 


in a non-MCS environment, but might be ignored 
in an MCS environment and an error message 


may be issued by SVC 34. 
DOS/360 NEW ENDICOTT GUIDELINES 


Endicott Guidelines 'R' is available as TIE 
paper Z77-8084-1. This covers the planning 
and implementation of a DOS system. 


Endicott Guidelines 'R-1' is an update to 'R' 
and covers information to generate DOS 
Release 19. The procedure outlined in 


Guidelines 'R-1' is applicable to generation of 


Release 20. Guidelines 'R-1' is available as 
TIE 277-9059. 


Endicott Guidelines 'T' explains multitasking 


under Release 19. Included are four working 


program examples demonstrating the use of 
multitasking. Guidelines 'T' is available as 


TIE 277-9006. 


Editor's Note: Remember that TIE papers are 


'E’or IBM Internal Use Only". 
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INFORMATION ABOUT THE NEWSLETTER 


EVERY SALESMAN AND SYSTEMS ENGINEER 
SHOULD RECEIVE ONE COPY OF THE NEWS- 
LETTER. Each FE Branch Manager should 
receive five copies for distribution to Customer 
Engineers. | 


The IBM Installation Newsletter is distributed 
only to IBM locations and is not available to 
customers. The Newsletter is separated into 
two parts. The first part contains information 
which is’ intended only for IBM personnel and 
the pages are labeled For IBM Internal Use 
Only. THESE PAGES, OR REPRODUCTIONS 
OF THEM, ARE NOT TO BE GIVEN TO 
CUSTOMERS, However, using your own good 
judgement, you may discuss pertinent information 
from these pages with a customer. The second 
part contains information which may be RE PRO- 
DUCED by the Branch Office at their discretion 
These pages are not 
labeled with any restrictive classification. Note 
that when any abstracts for Type III programs 
are given to the customer, he must be informed 
that the disclaimer for Type III programs as 
contained in the Newsletter, applies. YOUR 
COOPERATION IN PROPERLY HANDLING THE 
CONTENT OF THE IBM INSTALLATION NE WS- 
LETTER IS NECESSARY FOR ITS CONTINUED 
PUBLICATION, 


Changes to the quantity of the Newsletter shipped 
are to be made by the Administration 

Manager. (NOTE THAT EXTRA COPIES OF 

THE NEWSLETTER ARE NOT TO BE ORDERED 
FOR DISTRIBUTION OF INFORMATION TO 
CUSTOMERS, ) He should update and send the 

DP Administration Managers! Document Control 
card (Electro IBM N61508) to DP Document Control, 
DPD HQ. 


Direct inquiries concerning the contents of this 
Newsletter to: 


W. F. Malmborg, Editor 

IBM Installation Newsletter 

Dept. 812, DPD HQ 

112 East Post Road 

White Plains, New York 10601 
Telephone 914 Wh9-1900 Extension 6158 
Tie Line 374-6158 
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NEW PUBLICATIONS ANNOUNCED BY PRL'S 


Information is extracted and condensed from the 
weekly PRL's (Publications Release Letters) to 
insure that all Salesmen and Systems Engineers 
are aware of new or revised Reference Sources, 
Marketing Publications, and Field Engineering 
Publications. Normally, each issue of the 
Newsletter. will contain information extracted 
and condensed from two PRL's, one following 
the other. The information-will be placed in 
the Newsletter in its original sequence with no 
rearrangement of form numbers or titles. It 


is not intended to replace existing information 
and distribution sources. 


You should be certain 
that you are aware of these sources. 


Do not use the condensed Newsletter information 
Most but not all (for _ 
example, some films and slide sets) of the items 
are available from Mechanicsburg. To receive the 
items you need without delay, prior to ordering 
check the REQ (Requisition Form) code in the 
"Accumulative Supplement to IBM Publications 
Current Price List (Z20-01090)"' which is attached 
to the weekly Publications Release Letter (PRL) 
and distributed to your Administration Manager. 
For an explanation of the REQ codes and other 
publications information see the first few pages 


of the "IBM Publications Current Price List 
420-0100, 


The Publications Requisition, form number 
M02-0618 is used for ordering items from the 
IBM Distribution Center, Mechanicsburg, Pa. 


(IBM World Trade Corporation has its own 
distribution center and procedures. ) 
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REFERENCE SOURCES @ 


FORM.NO, TITLE | DISPOSITION 
N20-0960.56 IBM S/360 Newsletter Re: A22-6822-12 Scrap N20-0360.55 
N20=1869=3 | TNL to BAP Insurance Re: H20-0536 Scrap N20-1869-0 
Z20-1930=0 KWIC Tie March 1969 Supplement Re: Z20-0305-20 NEW 


MARKETING PUBLICATIONS 


221-0365=2 The IBM 1442 N1 Card Read Punch NEW 
221-0372-1 The IBM 2321 Data Cell Drive NEW 
221-0405<2 The IBM 2560 Multi-Function Card Machine NEW 
221-0421-2 2401 Magnetic Tape Unit, Model 4, 5,6 Scrap 221-0421-4 
22120487=2 IBM 2495 Tape Cartridge Reader Scrap 221<0487=1 
320-1906-3 March 1969 In Brief Scrap 320-1906-2 
- 322-0045-0 IBM Journal of Research and Development, Vol. 13, No. 2 NEW 
520=1455-1 1130 Computing System for the Construction Industry Reinstated Abstract 
$20215 32=2 Teleprocessing Support Services . Scrap 520-1532-1 
520-1579-0 1287/1288 OCR NEW 
§20-2146-0 Maintenance Control for Airlines NEW 
5 20=2159=0 Secom - Systems Engineering Communication NEW 
549-0132-0 Baskerville Type Style Family | 7 NEW 
549=5003=0 Graphics Literature for Sale Kit NEW 
A32-0007=2. 2420 Model 5 Magnetic Tape Unit. Scrap A32-0007~1 
H20-05 13=1 Linear Programming System/ 360 (LPS/ 360) (360A-CO-18X) Application Description Scrap H20-0513-0 & N20-1877 
H20-0607-0 Linear Programming System/ 360 (LPS/ 360) (360A-CO-18X) Program Description Manual NEW 
H20-0611-~0 Linear Programming System/ 360 (LPS/ 360) (360A-CO-18X) Operations Manual NEW 
K20-0274-0 IBM 1800 Plant Automation System for Real Time Production Monitoring at Sylvania Lighting NEW - Reinstated 
. Products Division | 

K20-0279-0 Holiday Inns of America, Inc. ~- HOLIDEX Reservation System Using the IBM S/ 360 NEW 
K20-0309.--0 Punched Card Data Processing at the M. P. Heinze Company Abstract only ©} 
1L22-6904-0 IBM S/ 360 Mod 40 RPQ Table Address Chaining NEW 
N23-0683 Changes to S/ 360 Basic PL/I Coding Workshop Instructor Guide Re: R29-0118-2 NEW 
N24-0427 IBM S/ 360 Model 25 Operating Procedures Re: A24-3523-0 NEW 
N27-3035 Changes to "Planning and Installation of 2 Data Communications System Using IBM Line Adapters" NEW 

Re: A24=3435=2_ 
N28-0251 IBM S/360: FORTRAN IV Language Re: C28-6515-7 NEW 
N33-9051 TNL to Model 20 CPS 1419 IOCS Re: C26-3607-1 NEW 
R20-4110-0 IBM S/ 360 Matrix Language (MATLAN) Education Guide NEW 
R20-9240-0 IBM S/ 360 Remote Access Computing System (RAX) Course Description NEW 
R20-9247-0 IBM S/ 360 DOS Workshop Course Description NEW 
R20-9276-0 IBM S/ 360 Project Management System (PMS) Course Description NEW 
R20-9291-0 IBM S/ 360 Mathematical Programming System Report Generator Course Description NEW 
X21-9093-0 Calculation Specifications NEW - Scrap X24-3351 
X21-9094-0 Input Specifications NEW =~ Scrap X24-3350 
X74-6259~1 Layout Form Reinstated 
Y20-0346-0 IBM S/ 360 Problem Language Analyzer (PLAN) (DOS/OS) (360A-CX-26X, 360A-CX-27X) Vol. II NEW 

Flowcharts System Manual . 
Y23-9002-0 Teleprocessing Analysis and Design Program (TPAD) Course Description NEW 
Y26-1581-0 IBM 1500 Physical Planning Template | NEW 
7MH-1905=3 Inserts (less programming) 
Z2~1906~3 Inserts DP Sales Manual Programming Section Scrap 220-1905-2 
220=1907=1 Managers Manual Binder Index Tabs Scrap Z20-1906=2 
Z77-S004=1 Coding Basic PL/I Efficiently Use Z20-1907-0 
277~=9106-0 An Operating Guide for Power, A Type HI DOS Spooling Program Scrap Z77-9004-0 
277=9107-0 Use of the Basic Counter Unit to Measure Channel Usage NEW 
277-9108-0 A Comparison of Features of PCS, PMS & Project NEW 
Z77=-9109-0 Techniques for Programming the 6405 Card Readers NEW 
Z77~9110.0 DOS BOMP Implementation Planning, an Mlustrated Branch Office Lecture for Salesmen and Systems NEW 

Engineers NEW 


FIELD ENGINEERING PUBLICATIONS 


12304611 IBM 2314 IPC 3-0461-0 @ 
123=1029=0 2845 Display Control (Preliminary) Parts Catalog Scrap 123-0461 


6. For IBM Internal Use Only 


April 25, 1969 


PRL #15 (Continued) 


131-0548-3 
131-0565-0 
229-0015=0 
229=1287-1 
229-40 391 
229-7314=18 
229-8003-0 
R23-3029-3 


R23-3062=3 
R23-3131-0 
R23~3156-0 
R23-3157-0 
R23~3158-0 
R25-5 364-1 


R31-0324-0 
V31-0113-0 
V31-0118.0 
V31-0127-0 
Y22-6601-2 
Y24-0096-0 


24-0099 
24-0100 
Y25-2176~1 
Y25~2203-0 
Y25~2700=3 
Y25~2750-0 
"Y25-2756-1 
Y25-2757=1 


Y25=-2768-0 
Y25=2769-0 
Y25~-2770-0 
Y25-2771-0 
Y25-2772-0 


‘Y¥25~3117=0 


Y25~-3118-0 
Y25~3816—=1 
Y25-3817=1 
Y26-1576-0 
Y26~=3617-5 
Y27~0008—3 


Y27=2143.3 
Y27=2236-0 
Y33=1034-0 


FORM NO. 


N20-7070, 36 


221-05 18-0 


520~2155-0 


545-0096-0 
549-07 10=1 
549-5001-0 
549-5004-0 
5349-50050 
570-0208-8 


A21-9031-2 
A24=3411=2 


A32-0004-0 
C21-5002—1 


C24-5034=2 


N20-1945 


2780 Data Transmission Terminal IPC 

1907-6 Batch Recording System IPC 

Domestic Temporary Assignment Administrative Guide for Employees 
Think Safety Label 

IBM S/ 360 Ready Reference 


‘DP Maintenance Parts Price List 


IBM 360 Model 20 Storage Control FE Reference Card 
2321 Data Cell Drive Student Guide 
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360 Introductory Program Student Self Study Course 

2415 Magnetic Tape Unit & Control Student Self Study Course 
2915 Display Terminal Mod 3 Student Self Study Course 

2841 Storage Control Unit Student Self Study Course 

2065 P U External Diagram Student Self Study Course 

2703 Transmittal Control B Student Guide 


Class Enrollment Sheet 

2060 External Diagnostics Microfiche Card 
2025 FIS System I/O Microfiche Card 
2841 Storage Control Microfiche Card 
2365 Processor Storage FE MDM 

FES to 2025 FEMM Re: Y24=-3528-0 


2025 Processing Unit Integrated 1403 Attachment Model N1 Supplement Re: Y24-3533-0 
Supplement to IBM S/360 Model 25 FEMM Re: Y24-3528-0 with Y24-0096 

2970 Reservation Terminal Administrator Guide 

360 Prog. TOS/DOS Prerequisite Quiz (Student Quiz) 

360 Model 40 System I/O Part I Administrator Guide 

Supplement to Y25-2719-0 Student Guide 

2311 Disk Storage Drive Model 20 Student Quiz #1 

2311 Disk Storage Drive Model 20 Student Quiz #2 


2841 Storage Control Unit Student Quiz #1 
2841 Storage Control Unit Student Quiz #2 
2841 Storage Control Unit Student Quiz #3 
2841 Storage Control Unit Student Quiz # 
2841 Storage Control Unit Student Quiz #5 


2313 Comprehensive Quiz (Student) 


"2311 Comprehensive Quiz (Student) 
1907 Batch Rec System Model 5 Administrator Guide 
1907 Batch Rec System Model 5 Student Quiz 
IBM 1130 FETM (Telpak RPQ) 
IBM 1800 FETO 
2703 Transmission Control FEMDM 


2915 Display Terminal Model 3/2948 Display Control Model 4 FEIM 


2989 Basic Counter Unit FETMIM 


2560 Multi-Function Card Machine Attachment Feature, 2501 Card Reader Attachment Feature, 1442 
Card Punch Attachment Feature System/ 360 Model 20 (Machines with serial yo, 50,000 & above) FETOM 


TITLE PRL #16 April 18, 1969 


7070 SRL Newsletter Re: A22=-6699-4 
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Scrap 131-0548-2 
NEW 

NEW 

Use 229-1287-0 
Use 229-4039-0 
Scrap 229-7314=17 
NEW 

Use R23-3029=2 


Use R23-3062-2 
NEW - Use Y25-2155=-0 & Y25=-2168 
NEW 


Use ¥22=6601-1" 
NEW 


NEW 

NEW 

Use Y25-2176-0 
NEW 

Scrap Y25<2700—2 
NEW 

NEW 

NEW 


NEW 

Scrap Y25-3816-0 

Scrap Y25-3817-0 

NEW 

Use Y26~3617-4 & Y26-0620 
Scrap Y27-0008-2 


Scrap Y27=2143-2 
NEW 


NEW 
NEW - Scrap Z33-1034-0 


DISPOSITION 


Scrap N20-7070, 35 


MARKETING PUBLICATIONS 


Design and Analysis of Communictions = based Systems 
Data Processing for Public Accounts 

Government Price List 

Guide Copy Prep Sample Projects 

Composer Type Style Brochure 

Magnetic Tape "Selectric Composer Folder 
"Selectric" Composer Folder (Saleable) 

Term Contract for Tabulating Cards 


IBM S/360 Component Description and Operating Procedures 1231-N1 
IBM S/360 Model 30 Channel Characteristics and Functional Evaluation 


2420 Model 7 Magnetic Tape Unit 
1130 RPG Specifications 


IBM S/360 TOS System Control & System Service Programs 


TNL for Information Management System/ 360 for the System/ 360 (System Description) 
Re: H20-0524=0 and «1 
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NEW 
NEW 
NEW 
Scrap 54907100 
NEW 
NEW 
NEW 
Scrap 570-0208-7 


Scrap A21~9031-1, 'N21-0061, 
N21-0068 & N21-0089 

Scrap A24=3411-1 © N24-0349 & 
A24~3411-0 

NEW 

Scrap C21-5002-0 


Use C24-5034—81, N24-5219, N24- 
5290 & N24-5 348 
NEW 
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N20=1958 


N21-5102 


R20-4125-0 
R20=-9242=2 
R29-0019—=1 
R29-0117=2 
R29-0266-0 


V25-6466-0 thru 


V25-6490-0 
V25-6705-0 
V25~8200-0 
X20-1704=1 
K24—3541-0 


Y20-0044—1 
Y¥20-0083~2 


Y20-0363-0 
Y20-0364-0 
Y20-0365-0 


Y¥20-0370 


Y20..9377+0 
Y20-0380 


Y23-5900-0 
Y23-8200-0 
Y23-8201-0 
Y23-8202-0 
Y23~8203-0 
Y23~-8204-0 
Y23-8205-0 
Y23-8206-0 
Y2.3=8207=0 
Y¥23-8208-0 


Y33-8600-0 
Y23-8601-0 
Z2W=-1929=0 
220=1959~2 


123-0420—3 
229-0014=1 
229-5057-0 
BOF -5 317-0 
R23=3092-4 
$23~4064 

$31-0566 

V3100132=00 
Y22-6772-0 


Y24~-35 35-0 | 


Y25=-2170-0 
Y25-2171-0 
Y25-2172-0 
Y25-2766-0 
Y25~=2767-~0 


Y27=2145~2 
Y27=2239~0 
Y27=2240-C 
Y33-1027~0 
Y33=1044 


Z22=2828=3 


TNL for System/ 360 AD-APT/AUTOSPOT (OS) Numerical Control Processor (360A=CN-12X) 
Part Programming Manual Re: H20-0549.0 

IBM S/ 360 Disk and Tape Operating Systems Report Program Generator Specs, Re: C26-3570-4, 
=5 

IBM S/360 Remote Access Computing System (RAX) Education Guide 

IBM S/ 360. Basic PL/I Coding Workshop 

IBM Fundamentals of Programming Text P,I. 

IBM S/ 360 PL/I Coding How to Write a Basic PL/I Program Examination 

IBM S/ 360 PL/I (F) Codiag P,I Course 

7070-7074 Data Processing System = Programming Video Tape Course 


Fundamentals of Programming Workshop (Video Tape) 

List Directed Transmission in Stream-Oriented Input/Output for Basic PL/I (Video Tape) 
2321 Reference Card 

IBM S/ 360 Model 25 Channel O Worksheet 


Index Tabs (6) 
Project Management System/ 360 (360A~CP-04X) Version 2, Network Processor System Manual 


1130 Program for Optical System Design/ II (Posd/ 11) (1130-EO-14X) System Manual - Assembly 
Listings 

System/ 360 Program for Optical System Design/If (POSD/ I) (OS) (360A~EO-15X) System Manual 
Assembly Listings 

IBM S/360 Program for Optical System Design/ II (POSD/ II) (DCS) (360A-EO-16X) System Mannal 
Assembly Listings 

TNL for S/ 360 APT Numerical Control Processor (360A~CN-10X) Version 4 - System Manual - 
Fiowcharts Re: Y20~-0227.0 

Introduction to IBM S/ 360 Model 65 Multiprocessing 

TNL to Communications Network Design Program/ 360 CNDP/ 360 DOS/ TOS (360A-SE=j28R) 
Program Description & Operations Manual] Re: Y20-0207-1 


Practice Sales Call Demonstration ~« Video Tape 

TV Ap>lications in DP = Video Tape 

DOS Update Release 19 (Reel No. 1) 

DOS Update Release 19 (Reel No. 2) 

DOS Update Release 19 (Reel No. 3) 

Model 85 Performance Measurements January 1969 (Video Tape) 

OS/ 360 Accounting Review (Video. Tape) 

OS/ 360 System Management Facilities (Video Tape) 

OS/ 360 PL/I (F} Object Program: Management (Video Tape) Reel No. 1 
OS/ 360 PL/I (F) Object Program Management (Video Tape) Reel No, 2 
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PL/I Compile-Time Facilities (Video Tape) Reel No. 2 
Information Management System/ 360 Marketing Guide 
Field Directory Revision 
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OS/360 SYSGEN UNDER MVT 


The intent of this article is to clarify the 
support for SYSGEN under MVT and to explain 
what the user must do. 
of doing a SYSGEN under MVT. One way is 

to break the Stage II output into different jobs. 
The other way is to run Stage II-as a single 

job. This article will address both of these 
approaches. Those interested inJeaving the 
Stage II as a single job should read the section 
''General Considerations" and then the section 
on ''Stage II as a singlejob''. Those who are 
interested in breaking the Stage II into 

multiple jobs should also read the section on 
"General Considerations" as well as the section 
on "Stage II as multiple jobs" All users should 
carefully review the memo to users as well as 
the appropriate sections of the SRL ''OS/360 
System Generation", C28-6554-5. 


General Considerations 


In order to use your own system as a driver for 
SYSGEN you must make a new catalog entry 

in the driver system for each Component 
Library (such as SYS1. C1505) required by 
SYSGEN or the portion of a SYSGEN you are 
doing. The new entry will point to SYSGEN 
volumes and may change standard catalog 
entries in your system. If SYS1. COBLIB 

(for COBOL E) SYS1. FORTLIB, SYS1. PL1ILIB 
or SYS1. SORTLIB are to be included in the 
new system then you will have to change your 
catalog entries for these data sets. On this 
topic, see the last paragraph on Page 17 of 
the SRL"'OS/360 System Generation". You 
should also change your catalog for SYS1. 
MACLIB to point to the appropriate SYSGEN 
volume. Many of the data sets tmt exist in 
your driver system will not have to be 
recataloged such as SYS1.SVCLIB and SYS1. 
LINKLIB. However, SYSGEN may impose 
requirements on the contents of these libraries. 
You should carefully review the section titled 
"Generation System Requirement" inthe SRL 
"'OS/360 System Generation". If any Compo- 
nent Library data set which is recataloged is 
needed for other jobs during the SYSGEN then 
you have two options: 


a. The other jobs must use volume serials in 
their JCL to identify the ''old'' location of 
the library. 
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b. You can selectively catalog and uncatalog 
data sets. This would probably only be 
useful if you are running the Stage II of 
SYSGEN as multiple jobs. You could 
arrange this selective catalog and uncatalog 
as follows: The jobs for the Stage II would 
be in a separate job class. When it is desired 
to start another job the HOLD command 
would be issued for the SYSGEN class. Then, 
a job in another class would be initiated to 
modify the catalog. A job would then be 
started that would use the modified catalog. 
When this new job has finished with the 
catalog, a job would be run to restore the 
catalog for SYSGEN use. Thenthe job queue 
for the Stage [II jobs would be released via 
the RELEASE command. 


You can see that these changes in your catalog, 
together with the fact that the Stage II job 
stream uses ''DISP=-OLD'"' for system data sets, 
limit the amount of multiprogramming that you 
can achieve. The Data Set Integrity Feature 

of MVT will prevent any other job that might 
use any of these libraries from running at the 
same time as the SYSGEN. 


If you use a Stage I input deck that worked with 


the Starter System then you may get a B37 
ABEND during Stage I. You can avoid this 
ABEND by putting a space allocation in your 
Sysprint card for Stage I. A value of (100, 10) 
in 2311 tracks should be adequate. 


Space allocation should also be considered for 
Stage II. You should review the reader pro- 
cedure PARM fields for the reader that will be 
used to read the Stage II jobstream. As above, 
a value of (100, 10) in 2311 tracks seems to be 
adequate. 


You may want the new system and the driver 
system to have the same volume serials. You 
can achieve this result as follows: use IEH- 
DASDR to set the volume serials of the target 
system to volume serials that are different 
from the driver. This should be done when 
these volumes are initialized. When SYSGEN 
is complete, you can use IEFHDASDR to set the 
volume serials of the new system to the desired 
values. 


A final consideration relates to the use of the 
Proclib Macro. If you use this Macro you will 


get the SYS!1. PROCLIB that is in the driver system 


copied into the new system. If you want the PID 
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r procedures or some other procedures, do not PL/1 program that will do a tape to tape update 

use the Proclib Macro; instead you should do of the Stage II jobstream. This program is 

a MOVE/COPY after SYSGEN meant as an example. 

Stage II as Multiple Jobs Stage Il as a Single Job 

As mentioned above, one way of doing the You may want to run the Stage II jobstream as 

SYSGEN is to break the Stage II into Multiple a single job. In this case, there are some 

Jobs. This allows you to specify parameters, things that you must consider in addition to the 

like a region value, in the job cards that you points listed above as ''General Considerations", 

insert in the job stream. In addition, the You will have to specify a minimum region size 

speed of the Stage II should be improved which is large enough to run the step having the 

because the printing of the output of earlier largest requirements. You can do this by 

steps can proceed concurrently'with the exe- specifying ''MIN=200" in your reply to the 

cution of later steps. There are two ways that "Specify System Parameters" message at IPL 

you can insert the job cards into the Stage II job time. You should also format the Queue when 

stream. You can punch out the job stream you IPL. You must reserve a large number 

and insert the cards by hand or you can produce Ff 176 byte records for the initiator. A reply 

the job stream on tape and use a program to of R 00’, 750' to the ''Specify Jobqueue Param- 

update it. The following exhibit shows sample eters'' message is suggested. 


OS/360 SYSGEN UNDER MVT 


The following PL/I program is meant as a sample of the type of 


program you will need to doa tape to tape update of the Stage I output. 


This program makes each step of Stage II] a separate job. Note that the 


parameters to be placed on the Job cards are on a card by themselves. 


_J/INSERT JOB MSGLEVEL=1 
| 4/7 EXEC PLILFCLG coe 
Z/PLIL.SYSIN DD * wo wena ee vee 

-. JOBCD: PROC UPTIONSOMAIND§ 

| OCL 

! JB CHARIT), 

/  JOBCARD CHAR(7L), 

SG CHARL4), | re 
| NUM CHARC 2) 0 tc 
CARD CHAR(74)3— ne ea 
| ON ENDFILE (SYSUTL) GO TG END} 

. — JB=*//90BSG"5 


JOBC ARD= 
' JOB MSGLEVEL=1 ,REGIGN= 100K, PRTY= 12 ,CLASS=D 
(83 oe tt eee tee ee | ee es 
| READ: | ae 
"GET FILE SYSUT1L) EDITOUSG NUM, CARDILAL4) sAL2Z)¢ AL 74ND} 
| FF SG="//S6* THEN DO; 
| put FILE(SYSUT2) EDIT (JB sNUM, JOBCARD)(A); 
! END; 
i. PUT FALE(SYSUT2) EDIT(SGsNUM, CARD)(A)$ 
| GO TG READ; ee ume tt ce 
| £NDZEND; ' oe 
4% 
© 7160. SYSUTL DD UNIT=2400, VOLUME=SER=SYSUT 1» LABEL=( NL), 0CB=6LKSIZE=80 
— 7/60.SYSUT2 DD UNIT=2400 + VOLUME= SER=SYSUT Z pLABEL=(.NL),0C 8=8LKSIZE=80 


rere 


oe nee wee ve EXHIB IT 1 
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OS/360 MFT RELEASE 17 SCHEDULER SIZE 
ea 
CONSIDERATIONS 


Those MFT users planning to use the minimum 
scheduler designs in Release 17 are reminded 
that two optional factors, blocking and accounting 
routine, will affect the scheduler size. 


1. The partition size is 30,720 or 45, 056 plus 
buffer space for the Reader/Interpreter. 
Buffer space is 0 if single buffering and no 
blocking (Reader INPUT or OUTPUT, and 
PROCLIB) is used. If the INPUT or 
PROCLIB data sets are blocked or buffered 
greater than | the storage requirement is 
increased. If the Reader/Interpreter out- 
put data set is blocked or buffered greater 
than 2 the minimum requirement is 
increased. Consult the Storage Estimates 
SRL (C28-6551-7) Page 33 for details. 


2. With Release 17 the accounting data set 
writer IEFWAD is fully supported. This 
enables an installation accounting routine to 
record accounting information in the 
SYS1. ACCT data set from the Initiator / 
Terminator accounting routine exits. 


|If ACCTRTN=SUPPLIED is coded in the 
SCHEDULR macro at system generation 
time, the data set writer IEFWAD will 
be included in the appropriate scheduler 
modules. IEFWAD occupies 2750 bytes of 
storage. This figure should be added to the 
size of the Initiator/Terminator. 


Those users who want accounting, but do not 
require the services of IEFWAD, may modify 
the Stage I output of SYSGEN in the following 
manner: locate the INCLUDE cards containing 
IEFWAD and remove the name IEFWAD from 
each of them. 


OS/360 PASSWORD PROTECTION FOR 
SYSTEM DATA SETS 


Because the accidental or malicious deletion 
or alteration of system data sets directly 
impacts the availability and reliability of the 
system, and because the expiration date 
protection feature is easily circumvented, it 
is a worthwhile precaution to password protect 
system data sets. The password protection 
feature provides reliable protection against 
accidental deletion or alteration. It is also 
effective against the easier methods which the 
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malicious user might employ to damage system 
data sets, but should not, however, be con- 
sidered completely reliable in preventing 
malicious damage. 


When a data set is password protected, any 
attempt to OPEN the data set, or perform 
such functions as SCRATCH, or RENAME, 
results in a message to the operator's console 
which requests the password for the data set. 
If the job attempting to modify the data set is 
authorized and has supplied the operator with 
the correct password, he can reply with the 
password and the job will be allowed to continue. 
To avoid needlessly terminating a job because 
of a careless reply by the operator, two 
attempts to supply the correct password are 
allowed. If the password is not correct the 
second time, the job is abnormally terminated. 
(See the Messages and Codes publication, 
message number IEC301A. for a detailed 
description of the message and operator 
action. ) 


To password protect system data sets the 
following must be considered: 


1. If password protection is to be used for 
system data sets, the expiration date feature 
need not also be used. For this and other 
reasons discussed below, the decision to use 
the password feature for system data sets 
should be made before system generation. 


2. In order to use the password feature, the 


user must write his own routines to create 
and maintain a sequential data set name 
PASSWORD, which associates passwords 
with data set names and is referenced by 
the system security routines to determine 
whether operator-supplied passwords are 
correct or not. The PASSWORD data set must 
reside on the system IPL volume and 
therefore should have space allocated before 
System generation, at the same time as other 
system data sets. The PASSWORD data 
set on the system being generated is not 
used during system generation, however, 
and need not contain valid information 
until the generated system is IPL'd. A 
detailed description of the PASSWORD data 
set and the password protection feature 
can be found in the section 'Implementing 
Data Set Protection" in the System Pro- 
grammer's Guide. This section should be 
reviewed in detail before attempting to 
implement and use the password feature. 


April 25, 1969 


3. It is also necessary for the user to create 
a PASSWORD data set on the IPL volume 
of the generating system (if one does not 
exist already). This data set should contain 
passwords for each of the system data sets 
on the system to be generated. These 
passwords need not be the same as those 
specified in the PASSWORD data set of the 
system to be generated. 


Data sets to be password protected must 
have the password option specified when 
they are first created. (See the description 
of the LABEL parameter in the Job Control 
Language publication for information on how 
to specify this option.) This restriction 
impacts the system generation process in 
that if the system data sets on the system 

to be generated are password protected when 
they are created, the operator will have to 
supply a password each time one of the data 
sets is opened during the system generation 
process. Such aburden on the operator 
would generally be considered unacceptable. 
Two methods of alleviating the burden are 
proposed: 


a. Circumvent the need to specify password 
protection when the data sets for the 
generated system are first allocated. To 
accomplish this, first initialize an extra 
set of direct access volumes for the 
system to be generated. Before svstem 
generation, initialize the system data 
sets on both sets of volumes in exactly 
:the same way except that on one set all 
system data sets should specify password 

rotection and on the other set no protection 
should be specified. The unprotected set 


of volumes should be used for system 
generation, 


After the system is generated, the 
generating system can be used to move 
each of the system data sets (see 
IEFHMOVE program description in the 
Utilities publication) into its preallocated, 
and password protected, counterpart on 
the other set of volumes. This method 
has the advantages that it only requires 
the specification of a password once for 
each system data set (during the move 
operation) and does not interfere at all 
with the system generation process. (The 
passwords requested during the move will 
be those contained in the PASSWORD data 
set on the generating system. ) 
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b. A second, less acceptable method is to 


specify, in the PASSWORD data set of the 
generating system, passwords of 'u' for 
all the system data sets of the system to 
be generated. This method does not 
decrease the number of extra operator 
messages and replies but it does make all 
replies equivalent to the standard over- 
ride REPLY '‘u'. Caution should be used 
if this method is used and the system 
data sets of the generating system are 
also password protected; since ‘'u' will 
also be a valid password for those data 
sets until the 'u' entries are removed 
from the PASSWORD data set. | 


OS/360 INDIRECT CATALOG REFERENCE 


The following contribution from England has 
not been submitted to any formal IBM test. 
Potential users should evaluateits usefulness 


in their own environment prior to implementation 


A customer has several IS data sets which have 
their primes and indices on different volumes. 
It was required that these data sets were 
recreated on aregular basis in order to 
reorganize them. 


Space problems prohibited writing a new 
prime on the same disk as the old prime, so 
the new prime had to go where the old index 
was located, and similarly, the new index 
on the volume containing the old prime. 


This meant that the location of the prime and 
index was variable, being one of two disks in 
each case. 


Generation data groups were considered, but 
soon abandoned as a specification of DSNAME= 


ISDATA (INDEX)(+1) is not supported. 


Also the JCL manual, C28-6539, states: 

'An ISAM data set can be cataloged using 
CATLG'" (meaning in the DISP parameter of 
DD statement) "Only if all three areas are 
defined by the same DD statement". This is 
mentioned in Appendix D: Creating and 
retrieving indexed sequential data sets. 


The method adopted was therefore: 
Consider the IS data set called ISDATA. 


Two catalog entries were created, viz, 
ISDATAI and ISDATAP, pointing to the 
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volumes containing the index and prime respec- 
tively. 


Assume that the catalog entries are correct, 
then the following JCL coding willwork every 
time it is run. 


// EXEC PGMe=........ 


// OLD DD DSN=ISDATA, VOL= 
REF=ISDATAI, DISP= 
(OLD, DELETE, KEEP) 


fi DD DSN=ISDATA, VOL= 
REF=ISDATAP, DIS P= 
(OLD, DELETE, KEEP) 


// NEW DD DSN=NEW, VOL=REF= 
ISDATAP, DIS P=(NEW, 
KEEP, DELETE), etc. 


// DD DSN=NEW, VOL=REF= 
ISDATAI, DISP=(NEW, 
KEEP, DELETE), etc. 


// OLDI DD DSN=ISDATAI, DISP= 
(OLD, UNCATLC 
KEEP) 


// OLDP DD DSN=ISDATAP, DISP= 
(OLD, UNCATLG, 
KEEP) 


// NEWI DD DSN=ISDATAI, VOL= 
REF=ISDATAP, DISP= 
(OLD, CATLG, KEEP) 


// NEWP DD DSN=ISDATAP, VOL= 
REF=ISDATAI, DISP= 
(OLD, CATLG, KEEP) 


After an unsuccessful execution of the above, 
i.e. after an ABEND, everything will remain 
unchanged. 


After successful execution the data set 
ISDATA will be deleted and the data set, NEW, 
will be kept. 


It is imperative that the DD statements OLDI 
and OLDP occur before NEWI and NEWP, as 
catalog management at step termination is 
done sequentially starting from the first 
entry. Were NEWI to occur before OLDI then 
no change would be made to the catalog as 


ISDATAI would already be cataloged. Being 

in the order shown, ISDATAI is first uncataloged 
and then cataloged on the volume that held the 
old prime Similarly ISDATAP is switched. 


An execution of program TIEHPROGM must then 
follow to rename NEW on both volumes to 
ISDATA. IEHPROGM will treat an index or a 
prime as a data set in its own right. 


In the event of the catalog entries being wrong 
then system completion code 03D will occur 
during OPEN for the IS data set. This fact 

can be utilized in a program for fixing the 
catalog. A program that simply opens the IS 
data set can be run with JCL similar to the 
above except that on ABEND the catalog entries 
are switched, and on successful execution 

they are left unchanged. 


Logically, the idea could be extended to cater 
for IS data sets with an independent overflow 
area also. 


OS/360 RELEASE 17 EXTENDED PARM 
FIELD 


The expansion of the EXEC statement PARM 
field from 40 to 100 characters as described 

in the Release 17 Job Control Language manual 
has been misinterpreted by some readers. 
Using apostrophes to enclose individual expres- 
sions which contain special characters, such 
as equal signs, is required only when a PARM 
field must be continued to the next card In 
this case, parentheses are used to 2nclose 

the entire value field. 


Those 40 character PARM fields which are 
acceptable to Release 15/16 are also valid 
in Release 17. 


; OS/360 READER FOR PUNCH SIDE OF 2540 


| The following field contribution has not been 
| submitted to any formal IBM test. Potential 
users should evaluate its usefulness in their 
own environment prior to implementation. 


: PUNCHRDR is a program that reads cards 
| through the punch side (00D) of the 2540 and 


creates a sequential data set on adirect access 
device. It was designed to create a job stream 
on disk in an emergency situation when the read 
side of the 2540 is down. The program uses 


EXCP andQSAM to read cards and write records. 
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The reader procedures accompanying this This macro instruction must not be used if 


program allow the operator to initiate this SVC-2B (the CIRB macro instruction) is to be 
program without the use of the card reader. included in the generated system. 


i.e. The operator starts RDROOD to read cards 
at the punch (00D), and then starts RDRDISK 


This description. should read: 
to read/interpret the job stream on disk. : 


— : This macro instruction must now be used if 
The program was written in OS Assembler and SVC -2B (the CIRB macro instruction) is to be 


tested on Release 16 of OS/360. included in the generated system. 


It has the minimum system requirements of 
OS/360 MFT/MVT and uses the punch-feed- 

read (PFR) feature on the 2540 and approximately 
2K of memory. 


Included in the exhibits on the following three 
pages is: 


l. The program, PUNCHRDR, which should 
be assembled and link edited into 
SYS1. LINKLIB. 


2. The procedures, RDROOD, RDRDISK, 
and RDROODEW, which should be placed 
into SYS]. PROCLIB. 


OS/360 DATA CELL SUPPORT CLARIFICATION 


OS/360 supports 2321 load module libraries 
when the 2321 is attached to a selector channel. 
Furthermore, support exists for these 
libraries on 2870 selector subchannels where 
PCI FETCH is not included in the system. 

PCI FETCH can be optioned out in PCP and 
MFT. MVT does nat support 2321 Program 
Libraries when the 2321 is attached toa 
selector subchannel. 


With the availabity of the LOADER, an alter- 
nate plan for installations with 2321's on the 
2870 selector subchannels might be to investi- 
gate the applicability of the use of the OS/360 
LOADER facilities to do a "compile load/go" 
ora '"load/go'" directly from 2321. 


The sales manual pages are being changed to 
reflect this level of support. 


OS/360 RELEASE 17 CONSOLIDATED 
DOCUMENT CORRECTION 


On page 1-21 of the Consolidated Document for 
Release 17 under the heading SYSGEN Macro 
Instructions, the data management macro 
description reads: 
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OS/360 READER FOR PUNCH SIDE OF 2540 


STMT SOURCE STATEMENT  __ 


1 PUNCHRDR START 


2 PRINT. NOGEN : a a 
3 SAVEREG (Cha mare . pave. 
20 WTO ‘THE PUNCH-FEED-READ FEATURE ON THE 2540 CAN NOT READ X 
ee CARDS PUNCHED IN COLUMN BINARYN)  I-E. OBJECT DECKS CANX 
NOT BE READ! 115) | 
29° ~~ WTO "A CARD IN POCKET 1 MEANS THAT THERE WAS A READ ERROR. A 
AND THAT CARD HAS NOT BEEN READ*. | 
38 OPEN — €QU * —_ 
39 OPEN ‘(DCBPUNCH,»OCBDISK,(QUTPUT)) = 2 ~ 
48 READ EQU-- *#. | _ ; 
49 Ol DCBPUNCHt+442X*"0C* ne —_ 
50 MVI ECBPUNCH,X*00! 
51 “~ EXCP  ~ ~TOBPUNCH Wo rs rer memes me en ees 
54 WAIT ECB=ECBPUNCH | 
58 CLI ~  ECBRPUNCHy X8 TRO rr as 
59 BE WRITE 
60 B ERROR : re oe ee 
_62 WRITE  EFQU  * |... ee 
63 put OCBDISKe AREAOUT ae 
$8 = MVC. AREAQUT , AREAIN 
78 — ave. ARES NO ee Be 
70 ERROR: EQU * 
ap ELT OE CBPUNCH,X*44" | Fe 
72 BEC RPUNCHERR 
73 CLI ECBPUNCH»X*41* a 
74% BNE. READERR 
" cone REO ORS We RPOLE i 
76 BNE READERR 
Te BNE RES : i ee 
78 READERR €QU * 
. 79 oo MV I rn WTOR ECB, x too! EE HY 55D punch _— 
80 WTOR ‘INTERVENTION REQUIRED GN OOD -- READ ERROR PRES 
"SS END OF FIL REPLY **S** TO START READER AGAIN® 4X 
ANS»1l»WTORECB nesg 3 
92 WAIT ECB=wWTORECB dd - 
96) OI ANS »9X*40° 
Sy OT CELE ENS cage love ee 
98 BE READ 
99 ee: READERR 
LOO PUNCHERR EQU x 
101 MVI WIORECBsX*008 
102 | wTOR ‘INTERVENTION REQUIRED ON 00D —- LAST CARD HAD A VERIFI 
: “TC ATION CHECKA REPLY **S** TO START READER AGAIN'»X 
: ANS~l»WTORECB 15) Vpnned. | | 
14 | WAIT ECB=WIORECB 
118 O1 ANS,X*40° 
Lhg CLI ANS»C*S? 
120 BE READ 
oi ° TE NCHERR ee 
EXHIBIT 1 
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© OS/360 READER FOR PUNCH SIDE OF 2540 


STMT. SOURCE STATEMENT ee 
123 €OF  EQU * 
124 MvC CCWADD,CCWEOFAD 
‘125 NI ss OC BPUNCH444,X"3F® 
126 MVI ECBPUNCH,X*00* 
Adt ExCp TOBPUNCH 


130 WAIT ECB=ECBPUNCH 
4 PuT DISK, AREA 
i3 U DCBDISK,AREAOUT oo YY J 


A a Ae AeA EE Ae oe ee I RN RR Ny ey RE ee = ST oF NR te A se ee ne 


A SN ee I eT RN a ec Ee ee Hn le ee ca ae ee ee ae nee man ee 


139 END CLOSE (DCBPUNCH,»,sDCBDISK) | 
WTO =‘A JOB STREAM NOW EXIST ON A DIRECT ACCESS DEVIC X 
START **RDRDISK** TO READ/INTERPRET THIS JOB STREAM! 

156 SCRETURNX CO . 


ee ren me 


147. 


ee ee ee oe ee ee ems eR 


164 DCBPUNCH DCB = DDNAME=PUNCH,DEVD=PC,DSORG=PS,MACRF=E,RECFM=F | 
2650 2 ¥"% THB063 ODONAME SHORT-PADDED TO 8 CHAR 


“200 OCBDISK OCB ~~ DDNAME=DISK,DSORG=PS,MACRF=PM,OPTCD=WC 

208 *e%8* IHB063 DDNAME SHORT-PADDED TO 8 CHAR 
258 TOBPUNCH DS 00 QR 
259, DC XL1°42",XL3°O! — 


260 DC ALECBPUNCH) 
261 CSW = OCF 808 — 
262 CCWADD OC A(CCWREAD) | 
263 DC A(OCBPUNCH) _ 


36407 pc aeTtey 


ae RR oo RE I EE RNG EE NR ACERS ID NNN AS HR <tr eRin f m 


nee ne ee ee aN OREN A a A NN A ANN oR ne Oe ae 


266 CCWREAD CCW  X#C2"sAREAIN»X'408 780 
267 CCWPER CCW X*49*,BLANK,0,80 
268 CCWSTACK CCW =—-_—X®41*sBLANK,0,80 = 


RS NE AS ERRNO aeRO ERT 


270 AREAIN” DC” et aot s7* 
271 AREAOUT OC —CLBO'//* © 
272 BLANK DC ciso. «7 
273 ECBPUNCH DC Eto 

274 WTORECB DC  F#OQ8 

275 CCWEOFAD DC ——_—sAC CCWSTACK) 
276 “ANS De 
amy END 


EXHIBIT 1 (Continued) 
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OS/360 READER FOR PUNCH SIDE OF 2540 


SYSIN em ew MASTER 


eee ee een ee ee ~ - Ce eee emer a nee ae nee te mee a ere eee ee 


e/ ADD NAME=PUNCHRDReLIST=ALL 


“YJ /TEFPROC EXEC PGM=IEFIRC,REGION=44Ky 
4/ PARM="801030050010249050L0SYSDA =. 
oo ~ J7TEFRDER DD DSN=SYS1.PROCLIB(RDROODEW) »DISP=SHR, 
// DCB=(BLKSIZE=80,RECFM=F,BUFL=80-eBUFNO=L) sy 
 SZTEFPOSI OD OSN=SYS1ePROCLI8,OISP=SHR 
SV LEFDATA DD _UNIT=SYSDAs SPACE=( 809 (525) eRLSEe CONTIG)» 


ff ~ DCB=(BUFNO=2,LRECL=80,BLKSIZE= 80,RECFM=F,BUFL=80) — 
@/ ALIAS NAMESRDROOD oo oe 
IEB51861I MEMBER NAME (PUNCHROR) FOUND IN NM DIRECTORY. TIR IS NOW ALTERED. 
IFR5161 MEMBER NAME (RDOROOD ) FOUND IN NM DIRECTORY. TTR IS NOW ALTERED. 


SYSIN om astER a 


ae ADD NAME=RDROODEWsLIST=ALL. 


a ee es en ee ee 


—— / /PUNCHROR ey 2 EE WERLE*, MSGLEVEL=1,REGION=12K,PRTY=14 


eerste ne ee 


44 EXEC PGM=PUNCHROR—— EEE EE 
7 DISK ——_iDD_sCUUNI T#SYSDAyDSN=JOBSTREM» DCB={ BLK SIZE=80, RECFM=F y BUFL=80, 


wz) BUFNO=1),SPACE=(TRK»,(20.20)),DISP=(NEW,CATLG,DELETE) 
ne //PUNCH OD UNIT=00D 


//SYSUOUMP DD SYSOUT=A 


See eee ne ae eee 


| ener inn ee ee cemeee RS RR a NS 1 Te A REE RN nT Ee Spm SS CRT A A: A ck Ae RR A ne 


af ENDUP 


EBSi6L MEMBER NANE (ROROODEW) FOUND IN NM DIRECTORY. TIR IS NOW ALTERED. 
f 


SYSIN NEW MASTER as 
__#/ ADD NAME=RDRDISKsLEST=ALL ae a __ _ _ 
7/( EE PROC EXEC PGM=IEFIRC»REGION=44K, 
oo MW _____ PARM=* 80103005001024905010SYSDA 
//TEFROER OD DSN=JOBSTREM» DCB=(BLKSIZE=80sRECFM=F » BUFL=80¢ 
2 7 BUFNO=1) »D1SP=(OLD,DELETE) 


 S/TEFPOSI DD OSN=SYSL.PROCLIB,DISP=SHR 
ee //TEFDATA DD UNIT=SYSDAySPACE={ 805 (500,500) eRLSEsCONTIG) ¢ 


| 4] ‘DCB= ( BUFNO=2 »LRECL=80,BLKSIZE=80,RECFM=F yBUFL=80) 
285161 MEMBER NAME (RORDISK ) FOUND IN NM DIRECTORY. TIR IS NOW ALTERED. 


a RS eS ERE eR ene Sete tre eaten 


EXHIBIT 2 
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DOS/360 POWER POINTERS 


. The user can specify when he generates 


his POWER system that he wants a reader 
(or a writer in a writer-only system) started 
automatically. The specific macro param- 
eter is AUTOSTR=nnn, where nnn is the 
address of the card reader or printer to be 
started when the system is initiated. If 
the parameter is coded AUTOSTR=NO the 
system operator must start the reader task 
by using the Start command. 


The obvious advantage of using the 
AUTOSTART facility is that it reduces 
operator effort and helps bring up the 

system faster. The disadvantage is a 

little less obvious. If the reader (or printer) 
is down and you've specified AUTOSTART 
you cannot bring up the system. 


While a system with one card reader is 


probably down when the reader is down, 
users of writer-only systems might want 

to forego the operational ease of AUTO- 
START for the ability to run with a ''tape 
writer''should the printer go down. People 
with more than one card reader should 
think carefully about specifying AUTO- 
START for one of the readers as they 
would not beable to run with POWER if 

that reader were inoperative. 


Code has been developed to extend the 
AUTOSTART facility to enable a user with 
both a reader and a writer to have both 
tasks started automatically. These modi- 
fications are available from your local 
Field Systems Center POWER coordinator. 


- Autobuffers 


After a reader or a writer has been initiated 
the system asks the operator how many 
buffers are to be allocated to this task. 

The only acceptable responses are 1 or 2. 


Modifications have been made to the POWER 
system to make the buffer assignment a 
constant decided at SYSGEN time. This 
eliminates one more series of operator 
responses. The modifications are avail- 
able from your local Field Systems Center. 


IBM INSTALLATION NEWSLETTER 
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3. Reader Close 


At POWER generation time the user can 
specify one of three options for Reader 
close-PAUSE, GO or EXIT 


a. RDRCLOS=PAUSE 


This is the default option in the POWER 
macro. After the last card of the last job 
is read in the system types BGROOC 
CLOSED and the reader task is made 
inactive. The buffers assigned to the 
reader are not freed. To restart the 
reader task the operator uses the GO 
command not the Start command. (Start 
is used to initiate another task, readeror 
writer). 


b RDRCLOS=GO 


A standard DOS intervention required 
message is issued after the last card is 
read. The task becomes inactive pending 

an I/O interrupt from the card reader. 
Restarting the task is simplicity itself- 

put cards in the card reader and press start. 


c. RDRCLOS=EXIT 


At end-of-file and end-of-job the system 
types BGROOC CLOSED as with the 
RDRCLOSE=PAUSE option. However, the 
buffers are freed and the reader task 

exits core. When it becomes necessary to 
read cards again a new reader must be 
initiated using the Start command. 


. Freeing Buffers 


If you've coded RDRCLOS=EXIT the buffers 
are automatically free at end-of-file. If 
you've coded PAUSE or GO the operator can 
Cancel or Stop a reader or a writer and 
make the buffers available. 


a. Active task 


When an active reader or writer is Stopped 
the task is deactivated and the buffers are 
freed. Cancel has the same effect ona 
reader task. However, Cancel directed toa 
writer deletes the current job before de- 
activating the task. 
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b. Inactive task 


The Stop and Cancel commands do not 
directly deactivate the tasks. The command 
processor routine simply posts a task 
control bit and the task subsequently de- 
activates itself. This means that if you 
Stop or Cancel an inactive task you must 
then re-activate it in order to make the 
buffers available. 


For a system coded with RDRCLOSE=GO 
you have to put a few blank cards in the 
reader and start up the reader task. For 

a system coded with RDRCLOSE=PAUSE the 
operator must issue a Go command after 
the Stop or Cancel in order to have the 
reader detach itself. 


S/360 1401 COMPATIBILITY DIRECT SEEK 


This field contribution concerns 1401 Emu- 
lation on the 360/25 and 1401 Compatibility on 
the 360/30. 


When the 1400 Autocoder library resides ona 
separate pack, specifying the ''Direct-Seek'"! 
option on,a library update causes the drive to 
seek to cylinder 200 and hang up when cylinder 

0 seek is issued by the update program. 

Program Halt 4 (drive not ready) occurs. Elimi- 
nate this problem by not specifying ''Direct 
Seek'' in the option card. There is no lost 

time as all 360-2311 seeks are direct. 


STAND ALONE EMULATOR WITH COS 50 RPQ 


This field contribution has not been submitted 
to any formal IBM test. 


One of the functions of the COS 50°RPQ is to 
allow certain tables, which were required to be 
located at address X'2000' by the Stand Alone 
Emulator, to be relocated. This is accom- 
plished by loading the address of the tables 
into FPR2. The compatibility feature with the 
RPQ then uses FPR2 as a base pointer for a 
reference to the tables. 


In order to run the Stand Alone Emulator after 

the COS 50 RPQ has been installed, the user must 
modify symbolic location LNKOUT-4 to 
X'00002000', using a standard . REP card. 
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BASIC PROGRAM PACKAGE @ 
DOCUMENTATION - Write-up. 
MACHINE READABLE =- Source code and sample problem, 

OPTIONAL PROGRAM PACKAGE =- None. 

ORDERING INFORMATION: PROGRAM NUMBER 360D005005 


PROGRAM NUMBER DISTRIBUTION MEDIUM USER VOLUME 


EXTENSION TYPE. CODE REQUIREMENT 
BASIC none DTR* 00 none 
OPTIONAL none none none 


* - * * * a e * NEW TYPE III PROGRAM * * * * * * * 


EQUIPMENT ORDER, SHIPMENT, INSTALLATION, AND DISCONTINUANCE REPORT FOR LARGE 
ACCOUNTS 


DESCRIPTION - A general purpose program to produce a variable, 24 month, graphic 
representation of on-order and installed equipment. This program is useful 
(particularly for large accounts) to both IBM representatives and customers to 

tell at a glance what equipment is scheduled to be shipped, installed, or removed 
at different physical locations. Three levels of totals are maintained for the 

24 month period under consideration at any particular execution. These are (1) 
Totals for each physical location (2) Totals for each logical grouping of locations 
(3) Grand totals for all locations. Input is based on a simple detail card with 
default values. available wherever possible. 


PROGRAMMING SYSTEMS - Written in OS/PL/I showing examples of various PL/I coding @ 
techniques. Tested under Release 15/16 of the Operating System using Version 
IV. . 


MINIMUM SYSTEM REQUIREMENTS - An 0S/360 of PL/I 64K execution, region or partition. 


BASIC PROGRAM PACKAGE 
DOCUMENTATION - Write-up. 
-MACHINE READABLE - Source code and sample problem. 


OPTIONAL PROGRAM PACKAGE <- None. 
Ordering Information: Ordering Information: Program}Number -360D-25. 0. 004 
PROGRAM NUMBER DISTRIBUTION MEDIUM USER VOLUME 


EXTENSION TYPE | CODE REQUIREMENT 

BASIC _ none DTR 9/800 | 28 | none 
| DTR 9/1600 29 none 

DTR 7DC/800 26 none 
OPTIONAL none none none > 


* * * * #*  * * NEW TYPE III PROGRAM * * * * * # ¢ 
5/360 DOS TAPE TO, PRINTER/PUNCH SPOOLING SYSTEM 


DESCRIPTION - Program prints/punches data from magnetic tape created for spooling. 

It accepts output from DOS SYSOUT, OS SYSOUT, COS and all programming languages. 

Output is identical to "On-Line” printing. Handles intermixed blocked/unblocked 
fixed/variable length printer and/or punch records. Handles multi-job, multi- 

file and multi-volume labeled and unlabeled tapes. Prints multiple copies. €) 
Provides for forms changes; flip-flops multiple input tapes. Accounting routine 
punches cards containing job name, date, elapsed job and spool time, number of 
input/output records, operator and machine identification. Very significant 
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CONTRIBUTED PROGRAMS 


The following are the abstracts of new Type III and Type IV programs and the 
description of revisions to existing Type III and Type IV programs available from 
the Program Information Department. Complete program abstracts and revisions 
will be incorporated into a future issue of the IBM Catalog of Programs. 


Type III (IBM Contributed Programs) and Type IV (Customer Contributed Programs) 
are programs of general interest contributed to the Program Information Department 
for distribution. These programs and their related documentation are essentially 
in the author's original form and have not been subjected to any formal testing. 
IBM makes no warranty, expressed or implied, as to the documentation, function 

or performance of these programs and the user is expected to make the final 
evaluation as to their usefulness in his own environment. There is no committec 
maintenance for these programs. However, any changes the author chooses to make 
will be announced in subsequent issues of the IBM Installation Newsletters and 

the Catalogs of Programs. 


Programs may be obtained by submitting a properly completed "IBM Program Order" 
form (Form Number 120-1957) to the Program Information Department, 40 Saw Mill 
River Road, Hawthorne, New York 10532. 


+ #*£ * * * * * * * REVISION * * * © 8 © # 8 # 


360E-21.1.002 COMPLETE PAYROLL APPLICATION FOR 360/20 CARD SYSTEM. Material 
Revised - The documentation, machine readable, and the catalog abstract have been 
changed. (Source code is now basic material. Object code is no longer available). 
BASIC PROGRAM PACKAGE 

DOCUMENTATION - Write-up. 

MACHINE READABLE = Source code and sample problem. 
OPTIONAL PROGRAM PACKAGE = None. 
ORDERING INFORMATION: PROGRAM NUMBER 360E211002 


PROGRAM NUMBER DISTRIBUTION MEDIUM USER VOLUME 


EXTENSION TYPE CODE REQUIREMENT 
BASIC none |  DTR* | 00 none 
OPTIONAL none | - none none 


* * * #*- # * & NEW TYPE III PROGRAM * * * * #* # & 
FORMATTED LISTING OF VTOC FOR 0S/360 


DESCRIPTION - This program provides the user with an easily readable listing of 
the vVTOC of an OS/360 2311 or 2314 volume. All numeric information is in decimal 
and identified by keywords or headings. The information provided includes data 
set name, file organization, extents, total current space allocation, allocation 
type (CYL, TRK, etc.), secondary allocation quantity, creation and expiration 
dates, and DCB information. For partitioned and sequential files, the number 

of tracks used is given. For fixed length-record sequential files, the number 

of records is calculated. Selected statistical information is provided for indexed 
sequential data sets. A volume summary provides a list of the size of all free 
extents and the total free area. The program also provides an optional link of 
IEHLIST to produce catalog and PDS directory listings in the same step. 


PROGRAMMING SYSTEMS - Written in PL/1 and BAL. 


MINIMUM SYSTEM REQUIREMENTS - An OS/360 system with PL/1 and a 60K region. 
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increase in thruput. One program handles all spooled output, provides accounting 
information, eliminates special tape and program handling. 


PROGRAMMING SYSTEMS = Written in DOS Assembler. 


MINIMUM SYSTEM REQUIREMENTS - 1 magnetic tape drive, 2540, 1403 console. 
Read/write channel switch desirable. Uses 6K to 10K partition. 


BASIC PROGRAM PACKAGE 
DOCUMENTATION - Write-up. 


MACHINE READABLE - Object code, source code and sample 
problem. 


ORDERING INFORMATION: PROGRAM NUMBER 360D003025 


PROGRAM NUMBER DISTRIBUTION MEDIUM USER VOLUME 


EXTENSION © TYPE CODE. REQUIREMENT 

BASIC none DTR 9/800 28 none 
| DTR 9/1600 29 none 

DTR 7DC/800 26 none 

OPTIONAL none none none 


* * * * * % * * NEW TYPE III PROGRAM * * * * * * * 
DOS IOCS LOGIC MODULE SOURCE STATEMENT GENERATOR 


DESCRIPTION - Given the DOS generated standard IOCS logic module name (e.g. 
IJCFCIZO), this program will produce, on SYSPCH and SYSLST, the DOS job control 
cards and source statements (macro keywords and operands), in the proper sequence, 
to assemble the module. The program is self-relocating. Input is from SYSLOG 

or SYSIPT, where SYSIPT is a card reader, disk or tape drive supported by DOS. 
All module names submitted are checked for validity, and due to the ability to 
produce a complete job stream of many assemblies in one run, the program could 
significantly reduce desk time and keypunching at system generation time. 


PROGRAMMING SYSTEMS - Written in Basic Assembler Language, and will run on any 
system capable of supporting DOS. 


MINIMUM SYSTEM REQUIREMENTS - Same as those required for DOS/360. 
BASIC PROGRAM PACKAGE 
_ DOCUMENTATION - Write-up.. 
MACHINE READABLE - Object code, source code and 
sample problem. 
OPTIONAL PROGRAM PACKAGE - None. 
ORDERING INFORMATION: PROGRAM NUMBER 360D030008 


PROGRAM NUMBER DISTRIBUTION MEDIUM USER VOLUME 


EXTENSION TYPE | CODE REQUIREMENT 
BASIC none DTR* | 00 | none 
OPTIONAL none none none 


* * * & * * * * NEW TYPE III PROGRAM * * * * © & & 


PROOF OF DEPOSIT ENTRY RUN WITH TRANSIT DISTRIBUTION 
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DESCRIPTION - This is a generalized MICR capture and control system designed to 
provide a bank with a flexible means of producing proof of deposit, transit 
distribution, cash letters, float analysis, batch proof, and transactions capture. 
The program supports multi-bank processing and interfaces with the Demand Deposit 
Accounting Program, Program Order No. 360D-19.7.003. To implement the program 

the user completes a set of decision tables. The design and use of these tables 
provide a simplified approach to the initial definition and subsequent maintenance 
of the application. These tables are used to uniquely identify each document 

and thus to determine its proper processing and distribution pattern. The program 
accepts both MICR documents and punched cards as input. Printed output consists 
of batch lists, block totals, processing recaps, and cash letters. 


PROGRAMMING SYSTEMS - Written in DOS Assembly Language. 


MINIMUM SYSTEM REQUIREMENTS —- A S/360 Model 25E, one 2311, and a 1419 or 1412. 
The program runs under 10K DOS with MICR support. 


BASIC PROGRAM PACKAGE 

DOCUMENTATION - Write-up. 

MACHINE READABLE - Appropriate material delivered. 
OPTIONAL PROGRAM PACKAGE = None. 
ORDERING INFORMATION: PROGRAM NUMBER 360D197010 


PROGRAM NUMBER DISTRIBUTION MEDIUM USER VOLUME 


EXTENSION TYPE CODE REQUIREMENT 

BASIC none DTR 9/800 28 none 
DTR 9/1600 29 none 

DTR 7DC/800 26 none 

OPTIONAL none none none 


+ * #* * *& & €* * NEW TYPE IIIT PROGRAM * * * & & & & 
S/360 MOD 44 MULTIPROGRAMMING SYSTEM 


DESCRIPTION - This program supports external interrupt under DAMPS Version 2 
(360A-CX-20X), eliminating the need for the Priority Interrupt special feature. 
Consequently, DAMPS will execute on a standard S/360 or a Model 44 with special 
features. The resulting system supports two independent, storage protected 
partitions. The background partition supports a standard Mod 44 P/S job stream. 
The foreground partition assigns program tasks to six levels of external 
interrupts, the interrupt key, or dynamically schedules them for multiprogrammed 
execution while external interrupts are inactive. For on-line scientific 
application, DAMPS supports a real-time interface for OEM devices. With the 
exception that the Priority Interrupt, External Interrupt and Memory Protection 
special features are not required. 


PROGRAMMING SYSTEMS = Source language is BAL. 
MINIMUM SYSTEM REQUIREMENTS - Same as for DAMPS, Version 2. 
BASIC PROGRAM PACKAGE 

DOCUMENTATION - Write-up. 

MACHINE READABLE = Source code and sample problem. 
OPTIONAL PROGRAM PACKAGE = None. 
ORDERING INFORMATION: PROGRAM NUMBER 360D030007 


_ PROGRAM NUMBER DISTRIBUTION MEDIUM USER VOLUME 
EXTENSION TYPE CODE REQUIREMENT 
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BASIC none DTR 9/800 28 none 
DTR 9/1600 29 none 
DTR 7DC/800 26 none 


OPTIONAL none none none 
* * * * * * * * NEW TYPE III PROGRAM * * * * * * * 
UNIT CONTROL SYSTEM FOR RETAILERS 


DESCRIPTION =- A complete set of System/360 programs is provided for the small 

to medium size retailer to collect and maintain sales and on-hand information. 
After the transaction (sales and receipts of merchandise, merchandise transfers, 
returns to vendors, inventory adjustments, etc.), they are machine-edited and 
checked for validity, written on a disk file, and sorted into sequence. The 
Master records contain sales and on-hand information to the department, class, 
price, resource, style, and color/size level. The updated records are processed 
at appropriate intervals to prepare reports for the buyers and merchandise 
Management. The reports supplant the information previously available in the 
style black books, and provide additional exception and analysis information. 


PROGRAMMING SYSTEMS - Written in Assembly Language and run under the Basic 
Operating System (BOS). 


MINIMUM SYSTEM REQUIREMENTS - Model 25 with 2 disk drives and 16K storage. 
BASIC PROGRAM PACKAGE 
DOCUMENTATION - Write-up. ae 
MACHINE READABLE - Object code, source code and 
sample problem. 
OPTIONAL PROGRAM PACKAGE - None. 
ORDERING INFORMATION: PROGRAM NUMBER 360D252004 


PROGRAM NUMBER DISTRIBUTION MEDIUM USER VOLUME 


EXTENSION TYPE CODE REQUIREMENT 

BASIC none MT 9/800 28 01 
MT 9/1600 29 01 

MT 7DC/800 26 01 

OPTIONAL none none none 


* * * * * * * * NEW TYPE III PROGRAM * * * * * * * 
JULIAN DATA PROCESSING SUBROUTINES 


DESCRIPTION = This submission consists of four subroutines. The subroutines will 
(1) Convert a pack Julian date to a packed MMDDYY form (2) Convert a packed MMDDYY 
date to a packed Julian Date, (3) Calculate the difference between two Julian 
dates and (4) Extract the DPS system date in both MMDDYY and Julian form. All 
dates are processed packed decimal. 


PROGRAMMING SYSTEMS - Written in Model 20 DPS Assembler Language and designed 
for use with Model 20 DPS RPG. 


MINIMUM SYSTEM REQUIREMENTS =- Same as those required for 360 Model 20 DPS. 


BASIC PROGRAM PACKAGE 

: DOCUMENTATION - Write-up. 

MACHINE READABLE - Object code, source code and 
sample problem. 
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OPTIONAL PROGRAM PACKAGE = None. 


ORDERING INFORMATION: 


PROGRAM NUMBER 


PROGRAM NUMBER 360E065002 


DISTRIBUTION MEDIUM 


Issue 69-08 


USER VOLUME 


EXTENSION TYPE CODE REQUIREMENT 

BASIC none DTR® 00 ~~ none 

OPTIONAL none none none 
* * * * * * # * NEW TYPE III PROGRAM * * * * 2 * + 


1130 PATIENT BILLING 


DESCRIPTION - The program accepts patient charges and provides for patient 


insurance company billing. 
reporting, insurance proration, preparation of detail and summary bills. 


included are updating of room transfers and discharges. 
Medicare Billing for Part A (SSA 1452C) and Part B (SSA 1554). 


The package covers admissions, charge posting, census 


Also 
The program provides 


PROGRAMMING SYSTEMS - Written in 1130 FORTRAN utilizing 1130 Commercial 


Subroutines. 


MINIMUM SYSTEM REQUIREMENTS = 1131 Model 2B (console printer and keyboard) 8K, 


#3854 Expansion Adapter, #3616 1132 Printer Attachment, #4454 1442 Card Read-Punch 
1442 Card Read-Punch Model 6, 2310 Disk Storage 


Attachment, 
Model Bi, 


BASIC PROGRAM PACKAGE 


1132 Printer Model 1, 
029 Card Punch. 


DOCUMENTATION - Write-up. 
MACHINE READABLE - Object code, source code and 


sample problem. 


OPTIONAL PROGRAM PACKAGE =- None. 


ORDERING INFORMATION : 


PROGRAM NUMBER 


EXTENSION TYPE CODE REQUIREMENT 

BASIC none CARDS (tia none 

OPTIONAL none none none 
* * # * * * * * NEW TYPE III PROGRAM * * * * * x * 


Subroutines. 


Attachment, 
‘Model B1, 
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1132 Printer Model 1, 
029 Card Punch. 


PROGRAM NUMBER 1130282002 


DISTRIBUTION MEDIUM 


USER VOLUME 


1130 HOSPITAL ACCOUNTS RECEIVABLE 


DESCRIPTION - 1130 Hospital Accounts Receivable offers the smaller hospital user 
the full power of a stored program computer with rapid accessibility to patient 
accounts receivable files stored on disk. 
patient account files, printing of statements, aged accounts analysis, Account 
Status, Insurance Accounts Receivable, deleted accounts for zero or small balance. 
An accounts receivable control log is used to record the number of accounts and 
dollar value of receivables in the system. 


The program provides for updating of 


PROGRAMMING SYSTEMS - Written in 1130 FORTRAN utilizing 1130 Commercial 


MINIMUM SYSTEM REQUIREMENTS - 1131 Model 2B (console printer and keyboard) 8K, | 
#3854 Expansion Adapter, #3616 1132 Printer Attachment, #4454 1442 Card Read=-Punch 
1442 Card Read=-Punch Model 6, 2310 Disk Storage 
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BASIC PROGRAM PACKAGE 
DOCUMENTATION = Write-up. 
MACHINE READABLE - Object code, source code and 
sample problem. 
OPTIONAL PROGRAM PACKAGE —- None. 
ORDERING INFORMATION: .PROGRAM NUMBER 1130283001 


PROGRAM NUMBER DISTRIBUTION MEDIUM USER VOLUME 


EXTENSION | TYPE. CODE REQUIREMENT 
BASIC none. | CARDS 15 none 
OPTIONAL none none none 


* * *# *# *#  * * * NEW TYPE IV PROGRAM * * #* * #*# #*  # 
A PROGRAM FOR GRAPHIC ON-LINE DEBUGGING ON AN IBM 2250 DISPLAY 


DESCRIPTION - The Graphic On-Line Debugging program (GOLDBUG) is a program designed 
as an aid to on-line debugging, specifically with regard to programs involving 
interactive graphics. The basic capabilities offered by GOLDBUG are: (1) 
Examination of core and the registers. Core is displayed in blocks of 768 bytes 
in a dump-like format. The area displayed can be changed by scrolling, address 
computation (including relative addressing), or "pointer chasing", using the light 
pen to indicate the word containing the next address to be displayed. (2) The 
ability to patch any part of core. (3) The option of producing hard copy of any 
part of core currently displayed, or requesting a full-task snap. (4) Fixed and 
floating point conversion. The word (or words, for double precision) to be 
translated is indicated with the light pen. (5) The ability to call any in-core 
subroutine from GOLDBUG with register contents that can be specified by the 
programmer. GOLDBUG can be used as an attention routine or can be called from 

an appropriate SPIE routine. In the latter case, it is possible to display all 
the registers and the PSW as they were when the interrupt occured. 


PROGRAMMING SYSTEMS - Written in Assembly Language using GPS. 


MINIMUM SYSTEM REQUIREMENTS - An S/360 MOD 40 or higher and equipped with a 2250 
MOD 1 or 3 scope. 


BASIC PROGRAM PACKAGE 
| DOCUMENTATION - Write-up. 
MACHINE READABLE = Source code. 
OPTIONAL PROGRAM PACKAGE = None. 
ORDERING INFORMATION: PROGRAM NUMBER 360D046001 


PROGRAM NUMBER DISTRIBUTION MEDIUM USER VOLUME 


EXTENSION | TYPE CODE REQUIREMENT 

BASIC none DTR 9/800 28 none 
DTR 9/1600 29 none 

DTR 7DC/800 26 none 

OPTIONAL none none none 


* * * * * * * * NEW TYPE IV PROGRAM * * * * * * * 
GENERAL TAXONOMY PROGRAM 


DESCRIPTION = This program allocates a set of individuals into groups. Each group 
has typical individual and the members of the group are all sufficiently similar 
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to the type. The user defines the similarity needed. The types are determined 2 
to carry information of their group members only. The variables are quantitative 
ones. With some changes in the program qualitative could be used also. 


PROGRAMMING SYSTEMS =- Written in Basic FORTRAN IB, and has been compiled and 
tested using TOS Version 11 on a S/360 Model 30. It could be used in other 

operating systems also. To get a complete understanding of the method it is 
“necessary to read the Write-up. 


MINIMUM SYSTEM REQUIREMENTS - Same as those required for a S/360 Model 30. 


BASIC PROGRAM PACKAGE 
DOCUMENTATION - Write-up. 
MACHINE READABLE <- Source code and sample problein. 


OPTIONAL PROGRAM PACKAGE = None. 
ORDERING INFORMATION: PROGRAM NUMBER 360D131005 


PROGRAM NUMBER DISTRIBUTION MEDIUM USER VOLUME 
EXTENSION TYPE CODE REQUIREMENT 


BASIC none DTR* 00 none 
OPTIONAL none none none 

* Ed % a * * i | % NEW TYPE IV PROGRAM * * * * a * 5 
FIELD SELECTION AND LIST 


DESCRIPTION - This program will list card fields (in label form) in the order @ 
designated on a control card. The labels are single spaced with a skip to channel 

1 after each label. Up to nineteen lines can be selected from each data card. 

A control card punched as follows would cause columns 41 to 60, 61 to 75, and 

01 to 10 to produce three lines of print in that field order: 416061750110. A 

control card specification of 0180 would cause all eighty columns of the card 

to produce one line of print, listing the entire card. Fields can be overlapped 

if required. A control card line specification of 0000 will produce an extra 

Space between label lines. An additional space will be attained for each 

additional 0000 control card entry. 


PROGRAMMING SYSTEMS - Written in BAL. 
MINIMUM SYSTEM REQUIREMENTS - This program was written for the System/360 Model 
20 using a 2560 Multifunction Card machine and a 2203 Printer. Core storage 
Capacity may be from 4-16K. 
BASIC PROGRAM PACKAGE 
DOCUMENTATION - Write-up. 
MACHINE READABLE - Object and source code. 
OPTIONAL PROGRAM PACKAGE = None. 
ORDERING INFORMATION: PROGRAM NUMBER 360E010002 


PROGRAM NUMBER DISTRIBUTION MEDIUM USER VOLUME 
EXTENSION TYPE CODE REQUIREMENT 


BASIC none DTR* 00 none 
OPTIONAL none none none _ 


*  * * #* * #* * * NEW TYPE IV PROGRAM * * * * # # = «& 
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MULTIPLE RANGE TEST FOR CORRELATED AND HETEROSCEDASTIC MEANS 


DESCRIPTION - This program performs a Multiple Range Test for a maximum of 15 
correlated and heteroscedastic means. It has an option to input either the 
variance-covariance matrix of the estimates of the corresponding treatment means, 
or the number of replicates in each mean. The procedure used is described in 

D. B. Duncan's paper "Multiple Range Tests for Correleted and Heteroscedastic 
Means", Biometrics, 1957, Vol. 13, pages 164-168. The complete package consists 
of the mainline program, three subroutines and short supplementary program which 
stores the tables of 5% and 1% Significant Studentized Ranges, required by the 
main program, on disk. 


PROGRAMMING SYSTEMS - Written in FORTRAN IV and has been compiled and tested on 
an 1130 Model 2B using Disk Monitor system Version 1, Model 5. 


MINIMUM SYSTEM REQUIREMENTS - An 1131 CPU Model 2B with 8K words of core, 1 disk 
drive, an 1132 Printer and a 1442 CRP. 


BASIC PROGRAM PACKAGE 
DOCUMENTATION = Write-up. 
MACHINE READABLE = Source code and sample problem. 
OPTIONAL PROGRAM PACKAGE —- None. 
ORDERING INFORMATION: PROGRAM NUMBER 1130137001 
PROGRAM NUMBER 


DISTRIBUTION MEDIUM USER VOLUME 


EXTENSION TYPE CODE REQUIREMENT 
BASIC none CARDS 15 none 
OPTIONAL none none | none 


* * * * * ae aH * * * ao % * * * * * * i¥* * 


Following is an accummulative list of new Type III and Type IV programs which 
have been made available since the last edition of the Catalogs of Programs or 
their Supplements. Abstracts describing these programs can be found in the 
Installation Newsletter Issue No. shown below. 


Program Program Title Newsletter 
Number : Issue No. 
360D-00.1.021 S/360 GENERALIZED EXTRACTION AND MATCH PROGRAM 69-07 
360D-00.1.022 NYU PRINT-UTILITY PROGRAM 69-07 
360D-00.2.006 — OS SYSTEM/360 FLOWCHART (OS FLOW) : DOs FLOWCHART 
es UNDER OS/360 69-03 
360D-00.3.025 S/360 DOS TAPE TO PRINTER/PUNCH SPOOLING SYSTEM 69-08 
360D-00.5.005 FORMATTED LISTING OF VTOC FOR OS/360 69-08 
360D-01.1.006 COMPILE AND GO FOR THE OS 360, PL/I (F) COMPILER 69-06 
360D-03.0.007 S/360 MOD 44 MULTIPROGRAMMING SYSTEM 69-08 
360D-03.0.008 DOS IOCS LOGIC MODULE SOURCE STATEMENT GENERATOR 69-08 
360D-03.2.011 OS/360 PL360 COMPILER 69-06 
—360D-03.3.008 COURSE III/OS A REAL-TIME COMPUTER ASSISTED 
| INSTRUCTIONAL SYSTEM 69-01 
360D-03.4.026 BSAM SUBROUTINE PACKAGE FOR OS 360, VERSION I 69-06 
360D-03.4.027 FORTRAN RANDOM I/O SUBROUTINE 69-03 
360D-03.4.028 2260 LOCAL TERMINAL USERS SYSTEM (LOTUS) 69-06 
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360D-03.7.027 


360D-03.8.013 
360D-04,1 010 
360D-04.2.007 


360D-04.6.001 


360D-05.2.010 
360D-06.3.006 
360D-06.3.007 
360D-06.5.006 


360D-06.5.007 


360D-06.6.003 


360D-10.0.001 


360D-10.0.00 . 
360D-13.1.005 
360D-16.2.018 
360D-17.7.001 
360D-19.7.010 


360D-19.7.011 
360D-25.0.004 


360D-42.2 001 


360D-45.1.001 
360D-45.2.001 


360E~01.0.002 
360E-01.5.001 
360E-03.4.002 
360E-06.5.002 
360E-13.0.002 
360E~13.6.001 


360E-19.7.020 
360E-28.3.0174 


1130-00.3.010 
1130-06.3.001 
1130-06.6.014 


1130-13.7.001 
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JOB STREAM MANAGER OS/MVT 

CARRIER RETURN/LINE FEED ON THE 1052/53, MISLCRLF 
EDIT MACRO FOR DOS, TOS, OR OS ASSEMBLY LANGUAGE, 
S/360 

PL/I STRING FUNCTIONS 

DOS COBOL CROSS REFERENCER 

DEBUGGING AID FOR DOS PROGRAM TESTING 

PROGRAM TO AID IN OPTIMIZING COMPUTE BOUND JOBS BY 
INDICATING THE MAJOR PROCESSING LOOPS 

A PROGRAM FOR GRAPHIC ON-LINE DEBUGGING ON AN IBM 
2250 DISPLAY 

INTERACTIVE APPLICATIONS SUPERVISOR (IAS/360) 
GENERALIZED TELEPROCESSING PROGRAM FOR SYSTEM/360 
DOS BTAM FOR LEASED LINE KSR 35 TELETYPES 
UNIVAC-1108 TO IBM-360 FLOATING POINT INTERNAL 
CONVERTER ('CVFLO8') 

7090 TO 360 FLOATING POINT INTERNAL CONVERTER 
("CVFLO9'‘) 

FORTRAN CHARACTER STRING PACKAGE 

CHARACTER FILTER PL1 

BSEARCH = A RANDOM ACCESS BINARY-SEARCH TECHNIQUE 
FOR SEQUENTIAL FILES ON DISK OR DRUM 
KWADE=KEYWORD AS A DICTIONARY ENTRY 

2741 READ AND WRITE ROUTINE 

PROGRAM TO CALCULATE THE AMOUNT OF CPU TIME 
AVAILABLE IN THE BACKGROUND WHEN RUNNING DOS 
MULTIPROGRAMMING 

FORTRAN ANALYSIS PROGRAM 

GENERAL TAXONOMY PROGRAM 

RESCALED RANGE TRANSFORM 

BULKHEAD SHEET PILING ANALYSIS 

SUBROUTINE UCONIC 

PROOF OF DEPOSIT ENTRY RUN WITH TRANSIT 
DISTRIBUTION 

PERSONAL TRUST ACCOUNTING PACKAGE TO ASSIST USERS 
IN INSTALLING OFF-LINE PROCESSING 

EQUIPMENT ORDER, SHIPMENT, INSTALLATION, AND 
DISCONTINUANCE REPORT FOR LARGE ACCOUNTS 

UNIT CONTROL SYSTEM FOR RETAILERS 

EXPERIMENTAL PROGRAM FOR DETERMINING POLYNOMIAL 
ZEROS 

INVRSOL 

EIGENRS 


INVALID CCCP/360-20 INVALID CODE CARD CORRECTION 
PROGRAM 

FIELD SELECTION AND LIST 

MODEL 20 STAND-ALONE DISK COPY UTILITY 

SHORT INPUT OUTPUT SYSTEM 

JULIAN DATE PROCESSING SUBROUTINES 

HOSPITAL PBAR PROGRAMS FOR A MFCM MODEL 20 
STATISTICAL COMPARISONS PROGRAM 

LINEAR REGRESSION IN TWO VARIABLES (LEAST SQUARE 
FIT) FOR THE MOD 20 

SAVINGS ACCOUNTING FOR THE 360 MOD 20 DISK 
WHOLESALE AND/OR RETAIL, ACCOUNTS RECEIVABLE, AGED 
TRIAL BALANCE 


1130 PRNZ MODIFIED FOR ADDITIONAL CARRIAGE CONTROL 
IBM 1130 REMOTE JOB ENTRY SYSTEM 

THE 1130/1800 KEYWORD INDEX GENERATOR 

IBM 1130 FORTRAN REREAD DEVICE AND FREE FORMAT 
KEYWORD INPUT ROUTINES 

MULTIPLE RANGE TEST FOR CORRELATED AND 
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7130-17.3.002 


1130-28.2.002 
1130-28.3.001 
1130-30.1.004 


1800-00.0.002 
1800-23.5.006 


IBM INSTALLATION NEWSLETTER 


HETEROSCEDASTIC MEANS 

GENERAL PURPOSE CHROMATOGRAPH PEAK INTEGRATION 
PROGRAM 

1130 PATIENT BILLING 

1130 HOSPITAL ACCOUNTS RECEIVABLE 

INDIVIDUALIZED HOMEWORK ASSIGNMENT AND QUIZ 
GENERATOR (QUIZ AND EXERCISE DEMONSTRATOR: Q.E.D.) 


OBJECT TIME I/O LOGICAL NUMBER GENERATOR 
IBM ANALOG DATA ACQUISITION PROGRAM 


69-08 
69-07 
69-08 
69-08 
69-04 


69-04 
69-04 
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*Selected Short Subjects 
1600 BPI PE Tape Drive Manual 
*OS/360 Planning Information 


*OS/360 MVT Region Determination 
Clarification 


OS/360 Additional DIDOCS Planning 
Information 


S/360 Model 25-1401 Compatibility Mode 
and Executing a FARGO One-Sixty- 
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SELECTED SHORT SUBJECTS 


The purpose of Selected Short Subjects is to 
bring together and highlight concise, factual 
and timely information which will indicate 
that action is to be taken by the IBM repre- 
sentative whose accounts are affected. 


1. 1600 BPI PE Tape Drive Manual 


A new IBM Confidential Sales and Systems 
Guide is now available from Mechanicsburg 
entitled ''1600 BPI Phase Encoding and the 
IBM 2420 Tape Drives". The form number 
is 220-1948. 


This marketing guide is intended for Marketing 
Representatives and Systems Engineers. It 
discusses the significance of 1600-bpi phase 
encoding and 2420 Magnetic Tape Units as 

they relate to system performance. Conver- 
sion techniques and justification for converting 
to these tape drives are discussed. This guide 
also includes references to recent successful 
conversions to 2420 Magnetic Tape Units. 


- OS/360 RELEASE 18 PLANNING INFORMATION 


As indicated in the Sales Manual, the next 
OS/360 release (#18) is planned for October 
31, 1969 availability from PID. Release 18 
is projected to include those items committed 
for October 31, maintenance and a number of 
incremental improvements. An index of items 
listed in this article is as follows: 
- Components Announced for October 31, 1969 
. Control Program Incremental Improvements 
. Data Management, IOS and Device Capability 
Incremental Improvements 
- SYSGEN Incremental Improvements 
- serviceability and Reliability Incremental 
Improvements 
. Utilities - Incremental Improvements 
. Graphics 
- Compiler and ianeuage Support Incremental 
Improvements 
-. Component Releases and Updated Systems 
- Component Support on Prior Systems 
. PTF and Emergency Bypass Support 


Components Announced for October 31 
Availability 


System Management Facilities (SMF) (P69-62): 
The SMF option available to MVT users 
gathers basic system information and statistics 
about each job's use of the CPU, core storage 
and I/O devices. Also included is support for 
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GJP improved from a June 30, 1970 availability 
date. | 

USA Standard COBOL (P68-145 and P69-88): 

A new COBOL compiler supporting the USA 
Standard COBOL will be an integrated component 
of Release 18. This new compiler which 
replaces COBOL F retains COBOL F's advanced 
features and includes new features of the USA 
Standard COBOL. COBOL F will continue to 

be distributed and maintained for two years 
following the initial availability of USA COBOL 
in Release 18. The Language Conversion 
Program (LCP) will not be part of Release 18,. 
but ‘will be made available as a separately 
orderable item. 


ISAM - Variable Length Records (VLR) (P69-97): 
The Indexed Sequential Access Method will 
provide the ability to create and maintain 
Variable Length Records. In addition, the data 
set utility IEBISAM will handle Variable Length 
Records. 


Model 585 Support (P68-44): 
Programming Support for the Model 85 under 
MVT or MFT will be integrated into Release 
18. The Model 85 has new features which 
require programming system support extension 
beyond that now in OS/360. These extensions, 
which are in addition to the MVT and MFT 
Capabilities already announced, include support 
of: . 

- CRT Operator Console 

. Extended precision floating point 

. Recovery Management Support 

. Assembler F Extensions 


Multiple Console Support (MCS) (P69-30): 
Multiple Console Support is an option provided | 
under MFT, MVT and M65 MP. It enables a 
Multiple Console configuration, which provides 
message routing to functional areas and | 
increased systems availability through alter- 
nate consoles and console switching. 


Model 65 Multiprocessing 2K pororaee Recon- 
figuration (P69-14): 

Storage reconfiguration provides high system 
availability by permitting deallocation of oper- 
ating system resources from an interrupted 
job, and by performing logical isolation of 
failing storage in 2K byte elements. 


BTAM Support for 2760 Optical Unit (P69-52) 
and 2741 Communication Terminal (P69-23): 
BTAM support for the 2760 and the 2741 will 
be provided with Release 18. 
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Model 65 MP. Graphics (P69-39): 
Support listed below will now be available: 


1. Graphic Programming Services 

2. Graphic Programming Services for 
FORTRAN | 

3. Graphic Job Processor 


4, FORTRAN Subroutines for Data Transmission 


between a S/360 M65 MP and an 1130 
5. Job Control from an 1130 to a 2250 using 
the Satellite Graphic Job Processor. 
6. Asymmetric support for the 1443, 2150, 
2501, 2250, 2260, 2701, 2702, 2703, 
2840 and 2848. 


Unannounced Incremental Impr ovements 
Planned for Inclusion in Release 18 


Control Program: 


» Resident Link Library Option in MFT- Provides 
an option for making re-entrant link library 
modules resident in main storage for MFT 
users, 


- Dedicated Workfiles in an MVT Environment- 
Allows for pre-allocation of workfiles as 
specified in cataloged procedures for 
initiators. The allocation and disposition 
takes place when the initiator is started and 
stopped. This eliminates envoking the DADSM 
allocate and scratch routines for each job 
step requesting workfiles. 


.. Reduction of Device Mask and Name Tables - 
Specific unit entries have been eliminated 
from both the device mask table and device 
main table, thus, reducing the size of these 
tables. The amount of core saved per device 


increases with the number of devices sysgened, 


For example; there will be approximately a 
2K savings when 60 devices are sysgened. 


- Step Dispatching Priority-Allows the user to 
more effectively utilize system resources 
by specifying dispatching priorities for each 
step or selected steps of a job. 


. ABTERM/ABEND-Remove from ABTERM/ 
ABEND the ability to place a system ina 


Wait-state. A damage assessment routine 


will process those conditions that previously 
led to a wait-state in an effort to maintain 
task and system operation without interruption. 


- Retained Volume Improvement - Allows the 
user to more effectively control volume 
traffic in RETAINed volumes and volumes 
containing PASSed data sets. 
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65 Multiprocessing - 
Allows for up to 4 additional 2365 - 13 core 
storage units to be attached to the model 65 
multiprocessor. 


. 2870 Selector Subchannel Separation - Device 


Allocation has been modified to treat selector 
subchannels on a 2870 channel as separate 
paths for data. 


. Start Command Symbolic Parameters-The 


start facility has been improved to permit 
symbolic parameter substitution and to 
permit override of any statement of a 


catalog procedure for a STARTed task. 


. MSGLEVEL Improvement - This facility has 


been modified to permit the user to control 
the categories of messages he desires to have 
issued. 


. Universal Channel Error Support - Provides 
one set of device dependent error recovery 


procedures which contain full channel error 
support for CPU models 65 and higher. 


. Mod 65 Recovery Management Support - 


Extended to include the multiple console support 
option. 


Data Management, IOS and Increased Device 
Capabilities 


. Expanded Device Support-Increases to 768 the 


number of I/O devices that can be supported. 
It also supports a second 2870 multiplexer 
channel. 


. 10S Ordered Seeked Queueing-Minimizes arm 


movement for seeks to direct access devices. 


. DOS to OS VTOC Conversion-Enables the use 


of standard OS/360 options for DASD allocation 
on volumes which have DOS data sets. This 
does not convert or permit reading of DOS_ 
data under OS, but enables packs initialized 

as DOS.Packs to be used with OS. 


. User Totalling Facility- Provides the user 


with the ability to maintain a control total 
as he creates a data set and to have that 
total synchronized with the records actually 
written on each volume using SAM. 


. User-Labels for Direct Access Devices-Now 


supported for data sets on direct access devices. 


. MOUNT/DISMOUNT Message Improvements - 


Provides additional information to the user 
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about the volumes being mounted or removed. 


. Re-write Volume Label-The use of scratch 
output tapes has been improved by causing 
OPEN and EOV to re-write all standard volume 
labels, to create or destroy labels as specified 
by the user, and ask for a new volume instead 
of giving an ABEND. 


- BTAM-Manual dial/answer WTC modems 
are supported. Also, a number of revisions 
to BTAM binary synchronous communication 
support has been made to enhance the 

reliability and compatibility characteristics 
of the system. 


. 2420 Model 5 Tape Unit-Support now provided. 


. RJE Improvement Package-Provides increased 
throughput on the 2780 and CPU work stations 
operating on medium speed lines, reduces the 
amount of core storage needed for the RJE 
region or partition and improves the maintain- 
ability of the RJE system. 


SYSGEN 


.I1/O Device SYSGEN-Allows the user to add 
devices to an existing system without requiring 
a complete operating system generation, 


. Multiple Address Generation-Allows the user 
to specify a group of like devices on one 
IODEVICE card. 


. User Job Card for Stage Two of SYSGEN-. 
Allows the user to specify his own job card 
for stage II during stage I. 


Serviceability and R eliability 


. System Environment Recording (SER)-Routines 
have been provided to support the Model 40-192K 
and the Model 50-384K storage sizes. 


. OLTE P-Modified to allow the running of 
tape gap test on a tape drive attached to the 
hi-speed multiplexer channel O. 


. Utilities 


. I[EHLIST improvement - The LISTVTOC 
FORMAT option has been expanded to include 
additional information 


. SCRATCH VTOC SYS-Function of IEHPROGM 
extended to scratch MVT created temporary 
data sets. 


4 


. Data Set Generator-Expanded to create and 
access records of an indexed sequential data 
set. Also, to select fields from an input 
record to be used in creating an output record. 


. Control Card Scan-Improved diagnostics 
provided. 


Graphics 


. GSP In Core Data Conversion Routines- Provides 
the FORTRAN programmer with the ability 
to dynamically change data formats. 


. GSP Performance Improvement-Improved 
coding eliminates loading of more than one 
copy of a GSP routine having an alternate 
entry point. | 


. GSP-SYSOUT Data Set Display- Provides 
flexible routine enabling the user to decide 
if he wants hard copy of data sets created by 
GSP foreground jobs after viewing the data sets. 


Compilers and Language Support 


. Revised FORTRAN Library Math Functions- 
The FORTRAN Library has been updated to 
take advantage of the improved floating point 
hardware. Certain algorithms have also been 

- revised. 


. FORTRAN VRE Support-Has been brought up 
to the standards for the spanned record type 
and will thus be compatible with data manage- 
ment creation and processing of such records. 
Previously created FORTRAN data sets are 
still usable within FORTRAN. 


. Assembler F OS/DOS Parm Field Option- 


Causes Assembler F to perform as DOS 
Assembler F. It will flag Q-CONS, DXD's, 
and CXD's and will not sort the RLD entries. 


. COBOL E NO SPIE Option- Provides the 


programmer the ability to surpress the 
generation of SVC 14 and provide his own 
assembly language program interrupt 
analysis routine. 


. RPG-Externally conditioned indicators can 


be specified to control the execution of the 
program or functions within the program. 

In addition, RPG will allow the creation of and 
additions to an indexed sequential data set. 
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. Linkage Editor .E-The diagnostic messages 
for synchronous errors are expanded to 
give more detailed information about the 
failing I/O operation. 


. Compilers Statistics-Various compilers will 
provide summary information about each 
source program compiled. This will include 
options in effect, the number of source © 
statements, and program size. 


Component Releases and Updated Systems 


It is our intent to provide component releases 
for use with Release 18 after the initial 
availability of Release 18. A planned lst of 
component releases will be provided with the 
Release 18 Announcement Letter. 


It is also our intent to provide an updated 
Release 18 similar to the updated Release 17 
previously provided. This updated Release 
can contain PTF's, maintenance and release 
independent components. The plan is to 
make the updated release available 3 to 4 
months following the initial availability of 
Release 18. Any component releases made 
available prior to the updated release will be 
a part of the updated Release 18. Those 
users not requiring the new function or main- 
tenance in Release 18 upon its initial avail- | 
ability will have the opportunity to defer ordering 
and installing Release 18 until the updated 
version becomes available. 


Component Support on Prior System Releases 


Many components such as compilers, sorts 
and utilities are release independent and may 
be used with and will be supported on a prior 
release. Details on the Release 18 components 
that will be supported on Release 17 will be 


provided in the Release 18 announcement letter: 


and memo to users. This will enable the 
Release 17 user to obtain the maintenance in 
these components, thus, providing him with an > 
improved system until he decides to install 
Release 18 or the updated Release 18. 


- 


PTF and fmergency Bypass Support 
(Sales Manual GI 65.6) | 


FE will apply PTFs or attempt to develop 
emergency bypasses when required on 

current systems. An OS release is ''current" 
for 9 months after the availability of the next 
release from PID. Release 15/16 is ''current" 
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and will be supported with PTFs through 
December 24, 1969. Release 17 will continue 
to be a current release for 9 months after 

the availability of Release 18. Thus, the user 
has a number of options; install selected | 
components of Release 18 on his "current" | 
system, install Release 18 or wait for the | 
updated Release 18, 


OS/360 ADDITIONAL DIDOCS PLANNING 
INFORMA TION 


This article provides additional information 
about the Device Independent Display Seren 
Console Support (DIDOCS) announced on 
August 20, 1969 for delivery by September 

30, 1970. The support includes all S/360 
configurations that support OS/360 MFT, 
MVT, and MP65, in addition to the Model 195 
which is supported for MVT only. 


The significant points to multiprogramming 
users other than the Model 195 are: 


» The 2260 is supported as an operator console 
under Multiple Console Support (MCS). It 
can be used as a primary console or a remote 
console, _ : 


« The 2250 Models 1 and 3 are supported as an 
operator's console under MCS for MFT, MVT 
and MP65. 2250 Model 1 was previously 
supported only for MVT users.’ | 


« The current 2250 Model 1 support will be 
replaced when DIDOCS becomes available. 
Models 50, 65, 67 in 65 mode, 75 and 91 
users must add Multiple Console Support to 
use the 2250 as a console. Model 85 has 
always required MCS. The usual extended 
support policy for maintenance of the replaced 
2250 support applies. 


The 2260 connected to a 2848 Model 3 by the 
Direct S/360 Channel Attachment with Alpha- 
numeric Keyboard and Line Addressing will be 
supported as a console device similar to the 
2250 and Model 85 Operator Console Feature 
Code 5450. The 2260 has a 12-line screen of 
80 characters per line. The top 8 lines are 
devoted to system messages, and the bottom 4 
are used as a system control area. New oper- 
ational improvements announced for the 2250 
Console will be included. Highlighting of action 
messages, Automatic Message Deletion Mode, 
and Roll Mode are examples. 
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The 2260 non-destructive cursor is supported 
as an optional feature. This feature is recom- 
mended as it permits the operator to backspace 
and correct errors. The operator does not 
have to retype the entire error line. He can 
change only the characters in error if desired. 
The non-destructive cursor can be used to 
delete action messages directly. Experience 
with the 2250 shows these features to be of 
significant advantage. 


The Multiple Console Support required for the 
DIDOCS and the 2260 includes a message routing 
feature. This can be used effectively to limit 


the amount of message traffic to a given operator 


station. The 2260 with its 8 lines of system 
messages can be significantly more effective 
than a device such as a typewriter or printer. 
This is, in part, due to the full view of all 
appropriate messages in an upright position. 
There is a special deletion method for action 
messages as they are responded to by the 
operator. Other human factors such as 
quietness of the display unit reduce operator 
fatigue. 


DIDOCS is consistent with the announced Model 
85 Operator Console Support and takes advantage 
of device dependent features of each display such 


as the light pen on the 2250 for message deletion. 


The support will provide uniform displays within 
the constraints of each of the three device types 
supported. | 


Core Storage Planning Information 


For MCS 


Basic Multiple Console Support 


resident module for MFT 1.8K 

resident module for MVT 2.6K 
Hardcopy Log on System Log for 

MFT (No change for MVT) 3. OK 


BSAM must be resident 
User exit routines will take 

additional core as needed ---- 
M85 Operator Console Feature 


5450 4.OK 
2740 Console without BTAM 
present in the system 6.2K 
plus 2.6 bytes for the 
first 2740 2.6K 
2740 Console with BTAM 
‘present in the system none 
plus 2.6K bytes for the 
first 2740 
Each console SYSGENed 0.3K 
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For DIDOCS 

Each Display Type Console SYSGENed 200 Bytes 

2250 on Model 91/195 5K 
Display Console 

2260 Display Console 2K 

Model 85 Operator Console 4K 


DOS/360 TIMESAVER GUIDE 


-. Unexpected DOS problems and no solution? 


. Can't figure what the SRL means? 
» Need a concise "here's-the-problem-and- 
solution'’ manual? 


The DATACENTER DOS TIMESAVER is a 
"cookbook" guide for preventing or solving 
time-consuming DOS problems. 


Covers: 


JCL examples 
utility customizing 
core print-out 
dump-restore (DOS and OS) 
DEBE 
DITTO | 
operational problems 
MPS operational problems 
DOS FE tips 
Available from Mechanicsburg as a Tie paper. 
(Form number Z77-9191-0. ) 
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INFORMATION ABOUT THE NEWSLETTER 


EVERY SALESMAN AND SYSTEMS ENGINEER 
SHOULD RECEIVE ONE COPY OF THE NEWS- 
LETTER, Each FE Branch Manager should 
receive five copies for distribution to Customer 
Engineers. 


The IBM Installation Newsletter is distributed 
only to IBM locations and is not available to 
customers. The Newsletter is separated into 
two parts. The first part contains information 
which is intended only for IBM personnel and 
the pages are labeled For IBM Internal Use 
Only. THESE PAGES, OR REPRODUCTIONS 
OF THEM, ARE NOT TO BE GIVEN TO 
CUSTOMERS, However, using your own good 
judgement, you may discuss pertinent information 
from these pages with a customer. The second 
part contains information which may be REPRO- 
DUCED by the Branch Office at their discretion 
and given to customers.. These pages are not 
labeled with any restrictive classification. Note 
that when any abstracts for Type III programs 
are given to the customer, he must be informed 
that the disclaimer for Type III programs as 
contained in the Newsletter, applies. YOUR 
COOPERATION IN PROPERLY HANDLING THE 
CONTENT OF THE IBM INSTALLATION NE WS- 
LETTER IS NECESSARY FOR ITS CONTINUED 
PUBLICATION. 


Changes to the quantity of the Newsletter shipped 
are to be made by the Administration 

Manager. (NOTE THAT EXTRA COPIES OF 

THE NEWSLETTER ARE NOT TO BE ORDERED 
FOR DISTRIBUTION OF INFORMATION TO 
CUSTOMERS, ) He should update and send the 

DP Administration Managers! Document Control 
card (Electro IBM N61508) to DP Document Control, 
DPD HQ. 


Direct inquiries concerning the contents of this 
Newsletter to: 


W. F. Malmborg, Editor 

IBM Installation Newsletter 

Dept. 812, DPD HQ 

112 East Post Road 

White Plains, New York 10601 
Telephone 914 Wh9-1900 Extension 6158 
Tie Line 374-6158 
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NEW _ PUBLICATIONS ANNOUNCED BY PRL'S 


Information is extracted and condensed from the 
weekly PRL's (Publications Release Letters) to 
insure that all Salesmen and Systems Engineers 
are aware of new or revised Reference Sources, 
Marketing Publications, and Field Engineering 
Publications. Normally, each issue of the 
Newsletter will contain information extracted 
and condensed from two PRL's, one following 
the other. The information will be placed in 

the Newsletter in its original sequence with no 
rearrangement of form numbers or titles. It 

is not intended to replace existing information 
and distribution sources. You should be certain 
that you are aware of these sources. 


Do not use the condensed Newsletter information 
to order publications. Most but not all (for 
example, some films and slide sets) of the items 
are available from Mechanicsburg. To receive the 
items you need without delay, prior to ordering 


-check the REQ (requisition Form) code in the 
"Accumulative Supplement to IBM Publications 


Current Price List (Z20-0100)"' which is attached 
to the weekly Publications Release Letter (PRL) 
and distributed to your Administration Manager. 
For an explanation of the REQ codes and other 
publications information see the first few pages 
of the 'IBM Publications Current Price List | 
Z20-0100."' 


The IBM publications requisition (MO2-0618) or 
ITPS should be used for ordering items from 
the IBM Distribution Center, Mechanicsburg, Pa. 


(IBM World Trade Corporation has its own 
distribution center and procedures.) 
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MARKETING PUBLICATIONS 


PRL #36 September 5, 1969 


C10-7002-0 
C10-7003-0 


C10-7006-0 


C26-3718-3 
C30-1005-0 


127~3025-0 
N20-2039-0 


N22-0342-0 
N26-0246-0 


N33=8609-0 
R20-6005-0 


R20~-9304-0 


R29~0206~4 
R29-0215~3 


R29-0249~2 


123-045 3-3 


123-3104-0 
229-0029-0 
R23-3060-2 


R31-0423-0 


$27-0655-0 
$32-0002-0 
Y25-2723-1 


PRL #37 September 12, 1969 


FORM NO. 


N20- 1002-26 


270-0028-3 
270-005 3-2 
270-0103-0 
570-0449-0 


C24-9001-5 
C33-4001-4 
C33-4003-1 
H20-0599~2 
H20-06 35-0 


H20-06 34-0 
H20-06 36-0 


K20-0328-0 
L22-6937-0 
N20-2012-0 


N27~3042-0 
N27-3044-0 


N33-1528-0 
N33-8066-0 
N33-8600-0 
N33-9062-0 


TITLE 


DACS Centers 

IBM System/ 3 Installation Manual-Physicai 
Planning (Spanish Translation) 

IBM System/ 3 Card System RPG II and Sort/Collate 
Reference Manual (Spanish Translation) 


IBM System/3 Card System Introduction 

(Spanish Translation) 

IBM System/3 Data Recording and Data Verifying 
Programs Guide (Spanish Translation) 

IBM System/3 Disk System Introduction 

(Spanish Translation) — 


IBM 1800 Multiprogramming Executive Operating 
System Introduction 

IBM S/ 360 OS/ DOS Planning for Improved BTAM 
Support of Remote BSC Stations 

IBM 2740~1/ 2950-2 Batch Buffer Terminal 
Installation Manual -- Physical Planning 


TNL to System/ 360 Continuous System Modeling 
Program (360A-CX-16X) User's Manual 

Re: H20-0367-2 

IBM System/ 360 Installation Manual 

Physical Planning ; 

IBM System/ 360 Component Descriptions 

Re: A26—-3599-3 

S/ 360 BOS Operator Messages Form C24-5024=3 
System/3 Application Design Case Study 
Exercises 

IBM Basic Punched Card Procedures 


System/ 360 COBOL-COBOL Program Fundamentals 
IBM System/ 360 COBOL - COBOL Programming 
Techniques 

IBM Computing Systems Fundamentals 


FIELD ENGINEERING PUBLICATIONS 


2020-II Processing Unit 


2914-1 Switching Unit 

Installation Planning Checklist 

Introduction to Computers - Student Self-Study 
Course 


1287 Optical Rd. Mod 3 & 4 - Student Guide 


IBM 1800 Processor - Controller (123-0483-2) 
FES 2401/2402 - Model 5 & 6 


2701 Data Adapter Unit 
se REFERENCE SOURCES 


TITLE 
DPT Newsletter Re: F20-8172-6 
MARKETING PUBLICATIONS 


9950/54 Micro Copier - IPC 

9951/56 Physical Planning Manual 
9965 Micro Copier - IPC 
Federal Supply Schedule Tabulating Cards 


S/360 Model 20 DPS/ TPS RPG SRL 

S/ 360 Model 20 CPS/DPS/ TPS BSCA IOCS 

S/360 Model 20 Remote Job Entry Work Station 

S/360 Retail IMPACT Staple System (DOS) Version 2 Program Description Manual 
Information Management System/ 360 for the IBM S/ 360 - Operations Manual 
Volume 1 - Systems Operation- Program Number 360A-CX-31X 

Information Management System/ 360 for the IBM S/ 360 Program Description Manual 
Information Management System/ 360 for the IBM S/ 360 Operations Manual- 

Volume 2 - Machine Operations 

Commercial Loan Accounting Using the IBM S/ 360 with 2260 Display Stations 

IBM S/ 360 Custom Feature Description - 2914 Switching Unit Model 1 - RPQ 880882 
TNL to Information Management System/ 360 for the IBM System/ 360 ADM 
Re:H20-0524-0 & -1 

TNL to IBM 2701 Adapter Unit Component Description Re: A22-6864~3 

TNL to IBM 2702/2703 Transmission Control Original Equipment Manufacturer's 
Information Re: A27-3012-0 

TNL to IBM S/360 Model 20 Functional Characteristics Re: A26-5847-4 & -5 

IBM S/ 360 Model 20 Remote Job Entry Work Station Re: C33-4003-1 

TNL to S/ 360 Model 20 TPS Operating Procedures Re: C24-9009-3 

TNL to $/ 360 Model 20 DPS Control and Service Programs Re:C24-9006-4 
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DISPOSITION 


NEW 
NEW 
NEW 
SCRAP-C26-3718-2 


N33~-8027-0 
NEW 


NEW 


NEW 


NEW 


UES-R29-0206—3 
UES=R29-0215-2 


UES-R29-0249-1 


SCRAP- S23-9047 
$23-905 1 
123-045 3-2 

NEW 

NEW 

UES-R23-3060-01 


NEW 


NEW 
NEW 
SCRAP - Y25-2723-0 


DISPOSITION 


Scrap N20-1002-25 


Scrap 270-0028-2 
Scrap 270-005 3-1 
NEW 
NEW 


Scrap C24-9001-4 & N33-9052 


Scrap C24-4001-3 
Scrap C33-4003-0 
UES H20-0599-1 
NEW 


NEW 
NEW 


NEW 
NEW 
NEW 


NEW 
NEW 


NEW 
NEW 
NEW 
NEW 
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PRL #37 (Continued) 


N33-9063-0 
N33-9064-0 
N33-9065-0 
R20-0065-1 


R20-9151-4 


R20-9152-4 
R20-9292-1 
R29-0145~2 


R29-0231-4 © 


R29-0252-1 


_-V25-6199-1 
X26-5961-6 
¥20-0294~1 


Y20-0396-0 


Y20-045 3-0 
Y28-2407-0 
Y28-2408-0 
Y33-8004-1 


Y33-8006-0 

Z23-6009-0 

Z29-1954-1 
Z29-1996-1 


277-8013-1 
277-9186-0 


Z77-9187-0 
Z277-9189-0 
277-9191-0 


123-0414-3 
123-0461-2 
-229-2193-0 
R23~3118-0 
R25-5364-2 
R27-9598-0 
R31-0291-3 
R31-0292-3 
R31-0293~-3 
R31-0294-2 


R31-0458-0 
$29-3556-0 
$29-3558-0 


$29~3559-0 | 
V31-0123-0 - 


V31-0178-0 
Y22-9506-5 


225-217 3-1 
225- 3526-0 
2Z31-0202-0 
231-0207-0 
231-0221-0 
Z31-0230-0 
231-~0240-0 
231-0244-0 


Z31-0245-0 
Z31-0253-0 


TNL to S/360 Model 20 Operating Procedures Re: C33-6004-3 

TNL to S/360 Mode] 20 DPS Performance Estimates Re: C33-6003-2 

TNL to S/360 Model 20 Disk Sort/Merge Re: C26-3806-4 

Property and Liability Information System ~ Education Material - Volume 4 Record 
Formats - Homeowners 

IBM S/ 360 COBOL - Writing Programs in COBOL 

IBM S/ 360 COBOL Techniques - COBOL Programming - PI 

6430 Programming Course Description 

Punched Card Data Processing Principles - 85 Collator Operation and Wiring Text 


$/360 Assembler Language Coding System Review Text 


S/360 Model 20 Assembler Language Coding Instructions 


IBM Magnetic Board Pieces 

IBM S/ 360 Model 20 Physical Planning Template 

Mathematical Programming System/ 360 Report Generator System Manual 
(360A-CO-20X) 

1130 Mechanism Design System-Kinematics System Manual, Volume 1 - Flowcharts 
Narratives Program Number 1130-EM-03X Program Application Bulletim 


- TNL to CALL/ 360 Internal Specifications Manual, Volume 6 Re: Y20-0388-0 


TNL to S/360 Operating Systems Consolidated Document Re: Y28-6681-1 
TNL to S/ 360 OS Colsolidated Document Re: Y28-6681-1 
$/360 Model 20 IOCS for the Binary Synchronous Communications Adapter PLM 


S/ 360 Model 20 Remote Job Entry Work Station Program Logic Manual 
System/ 3 Installation Control For Management ~ Examination 
Manager's Review Guide - Branch Marketing Assessment Program 
Manager's Review Guide - Basic Systems ' 


Reconstruction of a Nicked or Damaged Strip in the Middle of any Index Sequential 
File on the Data Cell 

Job Accounting, Benchmark Selection and Cost Performance Preduction for Multi- 
programming systems 

Development of a Large Hospital Data Bank 

Commercial OS - Modifications and Additions 

Data Center DOS Timesaver 


FIELD ENGINEERING PUBLICATIONS 


2403/2404 Model 2 & 3 Magnetic Tape Unit & Control Illustrated Parts Catalog 
2314 Direct Access Storage Facility Illustrated Parts Catalog 

IR Code Guide for S/360 Model 25 CPU - FE Reference Card 

Channel Adapter Student Self Study 

2703 Student Guide 

2420 Model 7 Instructional Diagrams 

Checkpoint A Review Sheet 

Check Point B, Review Sheet Course Development Worksheet 

Checkpoing C Review Sheet Course Development Worksheet 

Final Approval Review Sheet Course Development Worksheet 


System/3 Architecture Supplementary Course Material 
Supplement to R31-0299-0 

Supplement to R31-0296-1. 

Supplement to R31-0095-4 

L287/ L288 Optical Reader Preschool Microfiche Card 
System/3 Architecture Microfiche Card 

2401/2/3/4 and 2803/4 FE Installation Manual 


Instruction for Obtaining Reimbursement - Student Instruction Book 
FE & WT Course Material Listing 

5410 Central Processing Unit FE Maintenance Diagrams 

5410 Central Processing Unit FETOM 

Off-Line Keypunch FEMDM - Preliminary ' 

5424 Multi-Function Card Unit FEMM - Preliminary 

5203 Printer Attachment FEMDM - Preliminary 

5410 Central Processing Unit FEMM - Preliminary 


5203 Printer Attachment FETOM- Preliminary 
5424 Multi-Function Card Machine Attachment FETOM ~ Preliminary 
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NEW 
NEW 
NEW 
Scrap R20-0065-0 


Scrap R20-9151-3 
Scrap R20-9152-3 
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UES R29-0231-3 
UES R29-0252-0 
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NEW 
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OS/360 MVT REGION DETERMINATION 
CLARIFICATION 


The following is a clarification of the procedure 


followed to determine the region size used to 
initiate, execute, and terminate a job step. 


When a job is first interpreted, a region 
request is needed for the Step Control Table. 
If one is not provided on the JOB or EXEC 
statement, the default is not to MINPART, but 
to the size specified in the parameter field of 
the reader procedure. (See System Program- 
mer's Guide, C28-6550.) For example, the 
default size provided by a reader procedure at 
one installation was observed to be 100K 
whereas the procedure distributed by DPPID 
has a default of 50K. 


If the initiator/terminator (IEFSD061) and 
allocation (IEFSD062) modules are in the Link 
Pack area, the following happens: if the 
region request, either explicit or default, is 
less than MINPART, the latter will be used to 
initiate the step and then the region will be 
freed and the larger of the region request or 
the termination requirement will be obtained 
to execute and terminate the step; otherwise 
the region request will be used to initiate, 
execute, and terminate the step. (See MVT 
Job Management PLM, Y28-6660. ) 


The above means that if MINPART is 52K ana 


the reader procedure provides a default of 50K, 


a step which uses the default region size will 
introduce an overhead of releasing a region of 
52K to obtain 50K. 


S/360 MODEL 25-1401 COMPATIBILITY MODE 
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S/360 Model 25-1401 Compatibility 
Mode and Executing a FARGO One-Six ® 
Sixty-G Program 

If the user has implemented the '"'retest'' function 

of Fargo, itis possible to lose part of a print 

line because of overflow. The sequence of 

instructions in the control portion of Fargo is 

as follows: 


TEST 1 B HEAD,@ branch to heading on 
channel 12 
NOP X, X NOP 
B TEST 1 P branch if printer is busy 


B Process process detail record 
Due to the internal interpretive routines in the 
model 25, it is possible to execute the first 
instruction while the printer is still busy and 

not yet at channel 12, have the print complete 
and reach channel 12 during the interpretation 

of the NOP instruction, and hence fall through the 
next test. 


Then if part of a print line were set up and the © 
retest occurred before printing took place (the © 
next time through the above loop), the first 

branch would be taken and that portion of the 

print line that was set up would be wiped out by 

the heading routine. 


To correct the above problem, the author 

used 3 patch cards. Those cards will work 
either in the Fargo compiler or in the condensed 
object decks. It is not necessary to recompile 
any Fargo Programs. . Merely place the patch 
cards immediately ahead of the last card of 

the object deck. 


AND EXECUTING A FARGO ONE-SIXTY-G PROGRAM 


TBM cenerat PURPOSE CARD PUNCHING FORM 


NOTES: 


PUNCHING INSTRUCTIONS 


EXHIBIT 1 
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OS/DOS/360 USAS COBOL CLARIFICATION 


Two features of SYS/360 USAS COBOL were 
not documented accurately in the initial 
publication for these new products. 


1, OS/360 USAS COBOL Compiler XREF 
dictionary - non-referenced items will appear 
in order to facilitate ease of locating item 
definition. 


2. OS/DOS/360 USAS COBOL FILLER- 
condition-names (level-88 entries) may be 
associated with a data description entry that 
contains the FILLER clause so long as all 
others syntax rules are followed. 


DOS/360 SYSIN FILES USING PUNCH FEED 
READ 


This field contribution has not been submitted 
to any formal IBM test. Potential users 
should evaluate itsusefulness in their own 
environment prior to implementation. 


In many installations where multiprogramming 
is running under DOS with only one card reader, 


it would be nice to have a way to put a job 
stream out on disk for foreground batch oper- 
ation. Because Job Control does not support 
the punch feed read for SYSIN files, we often 
would stop background programming to build 


a new SYSIN file when a job STEP was finished. 


This often caused a long wait when the back- 
ground program was a long running program, 
Using S. P.I. mode of initiation of foreground 
programs requires too much operator console 
time. 


Exhibit 1 shows an 80-80 list of a program 
which is self-relocating and reads cards on 
punch feed read using SYS005 and writes on 
DISK under file name 'IJSYSWK' using SYS004. 
The supervisor has to be generated with 
SYSFIL and BJF=YES. Then 2 label sets are 
cataloged in each partition label area for 
IJSYS WK and IJSYSIN with the same extent 
area and I.D. but using SYS004 and SYSIN 
respectively. Then multi-batching can be 
easily run with new job streams started or 
stopped as desired. 


The requirement to use this program is that 
nothing be assigned to the punch feed read and 
a permanent assign of SYS004 to the disk for 


each partition. Then by cataloging the program 


with a phase card address of +0, and the name 
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of FORINIT a foreground job stream is started 
by the following commands: 


AR BATCH F1 
Fl // ASSGN SYSO005, X'00D'! 
Fl // EXEC FORINIT 

Fl // ASSGN SYSIN, X'193! 


The program reads a job stream from the 
punch feed read until it reads a card which 
contains $$ in columns 1 and 2. Modifications 
that can be made for each installation could be 
to add permanent assign cards to the start of 
the job streams and some comment cards anda 
PAUSE card on the end to direct the operator 
to STOP the partition and’ remove it from task 
selection. 


An alternate approach to this technique was 
published in INL 69-13. It used a macro 
instead of a program. 


* 
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_DOS/360 SYSIN FILES USING PUNCH FEED READ 


//_ JOB COMPILE & CATALOG FORINIT IN SELF RELOCATABLE FORM | 


// OPTION CATAL 
wee ne PHASE FOR INIT,4+6 <n eR 
// EXEC ASSEMBLY 
3 SS POND cease I eo a hn ee 
BALR 4-0 . 
BE a Hace SIN gh I a a ee 
OPENR IJSYSWK 
se A ea a a a rg 


ST 1,FIRSTA 
aes PPOMEE REISS «Cee 6240 2 SS eee el RE ee ce ea Re ea 
ST L,yFIRSTA+4 
Sa Se ORE RO RET AY « neem) Rel Send 95s Ss LOS, | CML eee REPRE Pv SNES Se ee Se eee eS ee ee ee cre ere ee eee ee eI 
ST = = Ls FIRSTA+8 
Fa iy Ca (8, OA 2 = 6 9 3) Seen eae ences ree Ce race A PN Me CNT eo en eee 
ST LsFIRSTA+12 


Sse ka at cal Ne tk I a a a Se 

MVC 0(16,3y+FIRSTA 

a a pa aa ng a oo es 

ST 1 -ADDHOLD > 

MVC... ROAR ODS (SY oO Gb a en i eo ee ie, 
. LA 1,CARDIN 
ee ee ee emer. | Seomeeee) ow 810) 5 (OE) Remeeee sett adeno 8 

. MVC READCCW4+1(3) -ADDHOLD+ 1 

Pn ee Ee Mere eT) a MCT er 26) OF os | SS ON eMac meer een ree ie ee Rael ree Ree deeecr eset eae ere Soe ee ae eae eee men ree ena eee Seer artis eee eat 


a er ee | NR A A BSR tse eer ORBSR en > 


ST 1 ,ADDHOLD | 

se OI A ap ns IN Ug Ss WO PP) hE: Bg) en Bh a I Pee ee 
LA 1L»CARDOUT 

eee ee aera. EL J.»+ADDHOLD aa a Nr ee es 
MVC PUNCHCCW+1(3) 4A POHOLD+41 

__ READ FXCP RCARD seta Dee et tt aaa a pres See 8 Po Set Bn oe et 


WATT RCARD 


BE EOU | 

gt MOND sO OI ge ce at pa ee 
WAIT PCARD | 

ee ae 9 AMP UL ES UGH) Cs nr eee eee ae a eT Cee eee eet re eT 


B READ 
es CLOSER LuSYSWK 
EQJ 
OE 000 a | CREP C1. ee eee ane EA Cee ee REE ene A See ee eee ae 
DC A( PCARD) | 
RSME 9, CMON (8 C1" | RRR Ree vee an eee eee TT Ree eee eee eee ene 
DC A(CARDIN} 
__ADOHOLO DSF. eae eee EA eT eT aoe Oe ee ee Le eee 
RCARD CCB SYSOUS. READCCW. | , 
se MIB ADE OW CC Wl RECO 5 CARD Ng MUON GOs a acc ee af et Se 
CARDIN DS CL8O 
SS TGNT. -s DC ins ESET. ee ee ee ee 
PCARD CCB. - SYSO0U5 + PUNCHEC Hs 


eee joa aiff Ql 3 9 Gi er Ge e' memmmee GE hc Are Oy send 0) UH Oe eae, Geaat © FB EM ys » 1 8 pe enteemin ees et ny nn eat eR aE Re RO cE nai vena Nee eee eee re nee ene 


_EaAKbOUT DC eb sxO' fF eh 


LJSYSvIK DTESD BLKSIZE=80,DEVADDR= SYS004+ LOAREAL=DISKOUT, TOAREAZ=DISK2,x 
= oT RECEORMEEIXUNBTYPEFLEZOULPULWORKAZYES 


Ree an Re en AE A RS A A Ne aR: oo Soe ee ED 
en ra ane eee 


DISKOUT DS CL88 
hls lS Dc his co PVG nee 2e Ree ae 58 a ee i a 
END SYSIN 
a _f D4 Bete aah pe, eee 
// EXEC LNKEDT | EXHIBIT 1 
JE tee delete, Foy gat yas eee ening ae 
‘i 
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-DOS/360 GUIDELINES FOR WRITING $$B 
. TRANSIENTS 


This article has not been submitted to any 
formal IBM test. Potential users should 
evaluate its usefulness in their own environment 
prior to implementation. 


B-transient programs are infrequently-used 
routines which are not resident in main storage 
and are, therefore, fetched or loaded from 

the core image library when needed. The B- 
transients occupy an area of 1200 bytes, 
referred to as the Logical Transient Area 
(LTA). | 


An SVC 2 instruction loads and executes a B- 
transient phase. A prefix of $$B to the name 
of a phase identifies it as a B-transient. The. 
normal return to supervisor nucleus control 
is an SVC 11, but a transient program may 
exit by fetching another B-transient with an 
SVC 2. Inthe latter case, the calling B- 
transient is overlaid by the transient being 
fetched. 


Register 1 must be loaded with the storage 
address of an 8 byte area, which contains 

the transient name, before the SVC 2 is issued. 
The Supervisor FETCH routine, then, has 
access to the name for searching the directories 
for the desired transient. 


It should be noted that the Transient Directory 
is limited in size, and an excessive number of 
entries will reduce the overall speed of DOS. 
The Supervisor will be forced to search the 
Core Image Directory for any transients which 
cannot be included in the Transient Directory. 
When items are cataloged to the Core Image 
Library, the entry is added at the end of the 
CI Directory. When a /& card is read the 
Transient Directory is re-written by searching 
the Core Image Directory for any $$A or $$B 
entries. When the Transient Directory is full, 
the search is stopped. This problem is 
especially critical on a 2311 system which has 
room for only 144 $$A and $$B Transients. 


Programs that are time dependent (TP) 

may be hampered by the excessive use of 
Transients. This should be considered before 
implementing any User written Transients. 


I, Supervisor Call Interrupt (SVC) 


An SVC is detected by microprogramming, 
which loads the SVC NEW PSW. The SVC 
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interrupt processor analyzes the SVC code 
placed in the SVC OLD PSW by the calling 
program. Control is transferred to the appro- 
priate processing routine. 


The following SVC codes are used to FETCH 
Transients and RETURN to the USER program. 


SVC 2: Fetches a B-transient. Loads a B- 
transient program (phase name prefix equals 
$$B) from the Core Image Library to the B- 
transient area and enters the B-transient at 
its load address plus 8 bytes. The storage 
address of the B-transient phase name must 
be supplied in general register 1. If register 
1 does not point to a $$B transient name, an 
illegal SVC 2 results. 


An address in general register 0 is ignored. 
The B-transient is loaded at the beginning 
address of the B-transient area. General 
register 15 is loaded with this address by 

the Supervisor and may be used by B-transients 
as a base register. Return may be either to 
the interrupted program or the highest priority 
program ready to run. : 


Only one program can use the B-transient area 
ata time. If the B-transient program is SVC 
7 bound, another program is selected. This 
program becomes SVC 2 bound (waiting for 

the B-transient area) if it issues an SVC 2. 
Another program is then selected. 


Note: The Supervisor may branch directly 

to the SVC 2 routine when fetching a B-trans- 
ient. If the transient is not in the library 
when requested by the supervisor, the system 
enters the wait state. 


SVC 8: Supplies the supervisory support to 
temporarily return from a B-transient program 
to the problem program. The B-transient 

area is not released. The task selection exit 
loads the problem program registers. An 

SVC 9 is used to return to the B-transient > 
program. 


SVC 9: Supplies the supervisory support for 
returning the B-transient after an SVC 8 is 
issued. The task selection exit loads the 
B-transient registers. 

SVC 11: Returns from a B-transient releasing 
the B-transient area. SVC 11 is invalid if 
issued by other than a B-transient. The logical 
transient area is released for use by other 
Return is to the highest 
priority program ready to run. 
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II. General Register Usage Conventions 


SVC 2: Register 0 is the only register used as 
a parameter-passing register. Register 1 is 
loaded with the address of an 8 byte "'DC"' which 
contains the transient name to be FETCHed. 
Register 15 is initialized by the Supervisor as 
the transient base register. | 


Example: 


user code 


LA 1, =c'$$BRELID' 
SR 0,0 
SVC 2 


All register contents are saved prior to the 
FETCH of the transient in question. 


If one transient issues an SVC 2 to FETCH a 
second transient, the first transient is over- 
laid and all registers remain intact. 


SVC 8: Register 14 must be loaded with the 
User Routine entry address. 


SVC 9: Register 0 is used to contain a LIOCS 
indicator if the LBRET macro is used after 
processing user labels. 


In general, while executing in a logical transient 
($$B), full use of all general registers is 
available. However, register 13 may contain 
unpredictable data if there was a need for ERP. 


When the problem program issues an SVC 2, the 


Supervisor saves the problem program registers. 


These are restored when the LTA is released 
by an SVC 11 issued from the transient. The 


only exception occurs if an SVC 8 is issued 
before an SVC 11 releases the LTA. In this 


case, the original problem program registers 
are re-loaded at SVC 8 time for use during 

the execution of the user's routine. Then the 
problem program registers are re-saved when 
the SVC 9 returns to the transient. Therefore, 
when the SVC 11 is issued to release the LTA, 
the problem program registers restored at 
that time will contain the values present at 

the last problem program exit, i.e., at the 
time of the SVC 9. 
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III. General Information 


1. $$ transients must be self-relocating (see 
program example). 


2. $$B transients must have the CCB located 
above location 300 dec. This is necessary if 
a cancel condition occurs and you require the 
CCB contents. ($$BE0J3 overlays 300 bytes) 


3. $$B transients must not exceed the 1200 byte 
limit of the LTA. 


4. $$B transients should contain the transient 
name as the first 8 bytes of the phase to allow 
identification in a core dump. The base 
register will be initialized to location 0, but the 
entry point is at byte 8 of the LTA. 


5. The upper end of the LTA may be used to 
pass data between multi-phase transients, 
as the LTA is not cleared by FETCH. 


IV. $$B Transient Example 


The following transient was written as an 
example to show one ''self-relocation'' method. 
Note that item III-2 was not adhered to. Ifa 
cancel condition occurs, with the phase, the 
messages 0P08 through 0P39 will contain 
invalid data. 


This transient will print 3 lines of data on 
SYSLOG, following the MSG IPL COMPLETE. 


01201 DOS IPL COMPLETE 
VOLUME ID 123456 

DATE 08/06/69 

RELEASE NO. 021 


Items 1 and 2 are retrieved from the system 


while item 3 is in the Transient phase. 
(The release number must be patched with 
each new DOS release. ) 

\ 
Program Example: 


To ''patch" this phase into your DOS Release 
21 System, the following must be done. 


1. RSERV $IPLRT2 from DOS Release 21 
2. Patch $IPLRT2 as follows: 


a. REP 002E04 with 47F0, E674 

b. REP 004240 with 4560, F676, 4110, E684, 
1B00, 0A92, 47F9, F23C 

c. REP 004250 with 5B5B, C2D9, C5D3, C9C4 


Change ESD card, 
11-6-9, 12-11-8 


col. 30-32 to 12-0-1-8-9, 


% 
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3. Catalog $IPLRT2 to DOS Release 21 4, Catalog $$BRELID to DOS Release 21 
// JOB CATAL // JOB CATAL 
// EXEC MAINT . // OPTION CATAL 
CATALR IJBIPL 7 INCLUDE 
(DECK) : (DECK) 
/* /* ' 
// OPTION CATAL // EXEC LNKEDT 
INCLUDE IJBIPL /& 
// EXEC LNKEDT 
/& 
(IV. $$B Transient Example): 
2 PUNCH a PHASE $$BRELID,+00 
3 $$BRELID START 0 
4& BEGIN EQU ® 
5 USING #,15 BASE REG LOADED BY SUPVR 
6 USING COMREG, 2 DSECT BASE REG 
7 DC Cas$BRELIDA XIENT NAME 
8 B #¢+6 
9 DC xa0000@ XIENT LEVEL ZOPTIONALG 
10 = INITIALIZE ADCONS», CCW S, CCB S 
ll « INITIALIZE THE ADDRESSES OF THE MESSAGES TO BE PRINTED ON SYSLOG 
12 L ‘SeMSGLAA LOAD THE ADCON FOR MSG1 INTO 
13 ALR 5,15 REG 5. ADD THE BASE REG TO IT, 
14 ST S»MSGLAA AND STORE BACK IN PROGRAM. 
15 L 5 eMSG2AA SAME AS MSG1 
16 | ALR 5,15 
17 ST 5 ~MSG2AA | 
18 L 5»MSG3AA SAME AS MSG1 
19 ALR 5,15 
20 ST 5—¢MSG3AA 
21 « INITIALIZE THE AODRESS OF THE CCB TO READ SYSRES VOL LABEL 
22 L 5, VOLRDA 
23 ALR 5,15 
24 ST 5~VOLRDA 
25 «@ INITIALIZE THE ADDRESS OF THE CCB FOR SYSLOG 
26 L 5eLOGWTA 
27. ALR 5,15 
28 ST S,LOGWTA | 
29 # INITIALIZE THE CCW ADDRESS WITHIN THE CCB FOR SYSRES 
30 MVC SAVE ,VOLRD+8 THE SAVE AREA IS REQUIRED 
31 L 12SAVE BECAUSE OF BOUNDRY ALIGNMENT 
32 | ALR 12915 
33 ST 12eSAVE 
34 MVC VOLRD+8%40, SAVE 
35 « INITIALIZE THE CCW ADDRESS WITHIN THE CCB FOR SYSLOG 
36 MVC SAVE »LOGWT+8 
37 L 12eSAVE 
38 ALR 12915 
39 | ST 122SAVE 
40 MVC LOGWT +8240, SAVE 
41 # INITIALIZE THE CCW STRING TO READ THE VOL ID ON SYSRES 
42 LA 8e4 SET CCW COUNT TO 4 
43 SR 10.10 ZERO GUT INDEX REG 
44 RELOC L 12,VOLCCW%100 CMD CODE AND DATA ADDRESS 
45 ALR 12215 PLUS BASE REG 
46 ST 12+¢VOLCCWZ100 RETURN TO CCW 
47 LA 10,82%100 INCREMENT TO NEXT CCW 
48 BCT 8»RELOC DO 4 TIMES 
49 « MAINLINE | 
50 # EXCcP VOLRD MACRO NOT EXPANDED INORDER TO 
51 L 1eVOLRDA RESOLVE ADDRESSES 


52 SVC 0 7 


September 26, 1969 


4 


IBM INSTALLATION NEWSLETTER 


Issue No. 69-19 


(IV. $$BTransient Example) -Continued 


53 # WAIT VOLRD 

54 L 1, VOLRDA 

55 ™M 2%10,Xa80a 

56 BO #+6 

57 SVC 7 

58 MVC MSGLAsDASDIO+F4 vOL ID TO MSG1l 

59 MVC LOGCNT »MSGILAL MSG LENGTH TO CCW 
60 MVC LOGADR,MSGLAA+tI1 MSG ADDRESS TO CCW 
61 BAL 6,WTCONSL GO WRITE MSG 

62 COMRG GET COMREG ADDRESS FOR DATE 
6348 360N-CL-453 COMRG CHANGE LEVEL 3-0 

64+ L 1,20 

65+ Svc 33 

66 LR 2el SET COMREG BASE REG 
67 MY¥C MSG2 A,DATE MOVE DATE TO MSG2 
68 MVC LOGC NT ,MSG2AL MSG2 LENGTH 

69 MVC LOGADReMSG2ZAAF1 MSG2 ADDRESS 

70 BAL 6eWTCONSL GO WRITE MSG2 

71 MVC LOGC NT ,MSG3AL MSG3 LENGTH 

T2 MVC LOGADR»MSG3AAF1 MSG3 ADDRESS 

73 BAL 6,WT CONSL GO WRITE MSG3 

74 SVC li EXIT TO JOB CONTROL 
75 & EXxce LOGWT 

76 WYCONSL L LeLOGWTA 

TT SVC 0 | 

78 @ WAIT LOGWT 

79 L 1e~LOGWTA 

80 ™ 2%10,Xa80a 

81 BO #+6 

82 SVC 7 

83 BR 6 

84 MSG1 DC CaVOLUME ID a 

85 MSGILA DC Ca a 

86 MSG2 DC CaDATE @ 

87 MSG2A DC CaXX /XX/XXA 

88 MSG3 DC C@RELEASE NO. O21a PATCH REL NO BEFORE CATAL 
89 MSGIAL DC Hal6a 

90 MSG2AL DC Hail3ea 

91 MSG3AL DC Hal5a 

92 VGOLRD CCB SYSRES» VOLCCW,Xa@8000a 

9348 360N-CL-453 CCB CHANGE LEVEL 3-0 

94+VOLRD DC XL2a0@ RESIDUAL COUNT 

95+ DC XL2@8000@ COMMUNICATIONS BYTES 

96+ DC XL2a0@ CSW STATUS BYTES 

97+ DC AL1ZO00 LOGICAL UNIT CLASS 

98+ DC AL1%60 LOGICAL UNIT 

99+ DC XL1a00 
100+ DC AL3Z2VOLCCWo CCW ADDRESS 

101+ DC Ba0d000000NSd STATUS BYTE 

102+ DC AL3%00 CSW CCW ADDRESS 
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(IV. $$B Transient Example)-Continued 


103 VOLCCW CCW Te SEEKADs Xa40a,6 


104 CCW 49 ,SEEKAD+2,X840a,5 

105 CCW 82*-82026 

106 CCw 6eDASD1I0,0,80 

1O7 SEEKAD DC X¥a200000000000003ea CYL 0 HD O REC 3 


108 DASDIO DS CL80 
109 LOGWT CCB SYSLOGeWICCW, X280000 


110+# 360N-CL-453 CCB CHANGE LEVEL 3-0 

lil O0,POSSIBLE ERROR IN SECOND OPERAND 
112+LOGWT DC XL2a0@ RESIDUAL COUNT 

113+ DC XL2a@8000@ COMMUNICATIONS BYTES 
114+ DC XL2a@0@ CSW STATUS BYTES 

115+ DC AL1%0n0 LOGICAL UNIT CLASS 

116+ DC AL1%40 LOGICAL UNIT 

117+ DC XL1la0a 

118+ DC AL3ZwTCCwao CCW ADDRESS 

119+ DC Ba00000000@ STATUS BYTE 

120+ DC AL3Z00 CSW CCW ADDRESS 

121 DS OD 


122 wTCCW CCW 
123 * THIS CCW, DEFINED AS A OS, CAUSED THE MNOTE IN THE LOGWT CCB 
124 WTCCw DS OCL8 
125 CMD DC Xxa09a 
126 LOGADR DC Xa000000a 
127 FLAGS DC Xa0000@ 
128 LOGCNT DC Xa0000a 
129 SAVE DS F 

© 130 MSGLAA DC AZMSG10 
131 MSG2AA DC AZMSG20 
132 MSG3AA DC AZMSG3a0 
133 VOLRDA OC AZVOLRDA 
134 LOGWTA DC AZLOGwWTa 


135 COMREG DSECT SUPERVISOR COMM REGION 
136 DATE DS CL8 
137 END BEGIN 
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TYPE III AND IV PROGRAMS 


Type III programs are those which have been submitted by one or more IBM employees. 
They are programs of general interest submitted for unrestricted distribution. 

They have met a basic set of programming and documentation standards but are not 
program tested in any formal fashion by the IBM Corporation. These programs were 
available for delivery from the Program Information Department prior to June 23, 
1969. 


Type IV programs are those contributed for unrestricted distribution by one or 
more authors of which at least one is an employee of an IBM customer. They are 
made available by IBM essentially in the author's original form, but conform to 
published Type IV standards. IBM exercises no control over the technical content 
of the documentation but merely assures that the quality of reproduction is 
satisfactory. Type IV programs have not been tested by IBM. 


IBM makes no warranty, expressed or implied, as to the documentation, function 

or performance of these programs, and the user is expected to make the final 
evaluation as to their usefulness in his own environment. 

ao ---- =~ == =~ +--+ = - = - = - = == TYPE III REVISION ---------~--------~------~------- 


360D-06.7.011 FILING AND SOURCE DATA ENTRY TECHNIQUES FOR EASIER RETRIEVAL 
(FASTER-OS). Material Revised - The Documentation and Machine Readable, 


BASIC PROGRAM PACKAGE 

DOCUMENTATION - Write-up. 

MACHINE READABLE - Appropriate material delivered. 
OPTIONAL PROGRAM PACKAGE = None. 
ORDERING INFORMATION: PROGRAM NUMBER 360D067011 


PROGRAM NUMBER DISTRIBUTION MEDIUM USER VOLUME 


EXTENSION TYPE CODE REQUIREMENT 
BASIC none | DTR 9/800 28 none 
DTR 9/1600 29 none 
DTR 7DC/800 26 none 
OPTIONAL none none none 
ween nnn 2 = = = = = = = = = = TYPE III REVISION -------------------------------- 
360D-06.3.003 BASIC AUTODIN ACCESS METHOD FOR S/360 DOS. Material Revised - 


The Documentation, Machine Readable and Catalog Abstract. 
ORDERING INFORMATION: PROGRAM NUMBER 360D063003 


PROGRAM NUMBER DISTRIBUTION MEDIUM USER VOLUME 


EXTENS ION TYPE CODE REQUIREMENT 
BASIC none DTR 9/800 28 none 
DTR 9/1600 29 none 
DTR 7DC/800 26 none 
OPTIONAL none none none 
anne ee --- - -- -- - -- - - = - = - - -- = ---- TYPE III REVISION -------------------------------- 
360D-06.7.012 FILING AND SOURCE DATA ENTRY TECHNIQUES FOR EASIER RETRIEVAL 


(FASTER=DOS). Material Revised - The Documentation and Machine Readable. 


BASIC PROGRAM PACKAGE 
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DOCUMENTATION - Write-up. 
MACHINE READABLE - Appropriate material delivered. 


OPTIONAL PROGRAM PACKAGE - None. 
ORDERING INFORMATION: PROGRAM NUMBER 360D067012 


PROGRAM NUMBER DISTRIBUTION MEDIUM USER VOLUME 


EXTENSION TYPE | CODE REQUIREMENT 

BASIC none ss DPR «9/800 28 = none 

DTR 9/1600 29 none 

DTR 7DC/800 26 none 
OPTIONAL none none none 
een wn eee ee eee eee enn en TYPE IV REVISION ---------- wren nna ------ 
360D-16.4.010 SYNTH1 (A COMPUTER PROGRAM FOR THE DESIGN OF REACTIVE NETWORKS 
FROM A SET OF ARBITRARY POLES AND ZEROES). Material Revised - The Documentation. 
wenn nn +--+ = - === TYPE IV REVISION ------~--------------------- ------ 
—360D-16.2.020 COLUMN DESIGN - WORKING STRESS METHOD. Material Revised - The 


Documentation and Machine Readable. 
ORDERING INFORMATION: PROGRAM NUMBER 360D162020 


PROGRAM NUMBER DISTRIBUTION MEDIUM USER. VOLUME 


EXTENSION TYPE CODE. REQUIREMENT 
BASIC none DIR 00 | none 
OPTIONAL none | none | none 
we enn nnn nn = = = NEW TYPE IV PROGRAM -<<----------------------------- 


GC=-21 


DESCRIPTION - This program allows calculation of the displacements, internal moments 
and reactions of a plate of any shape in bending. The plate .can be supported in 
any possible way and loaded by any external force. The plate can be of constant 
or variable thickness. It can be simply supported or clamped on separate points 
or along segments of straightline. The value of the displacement at some points 
can also be imposed; this possibility is used in the analysis of the subsidence 
of a support. The external forces are formed by distributed vertical loads, | 
concentrated loads, concentrated moments applied to the boundary. Several load 
cases can be processed in the same run, The mathematical model of Kirchhof is 
used; in this model, the unknown is the vertical displacement of the middle plane 
of the plate. The numerical calculation is then performed by the finite element 
method. The curved boundary is treated as polygonal lines; the plate is divided 
into triangular and rectangular elements; both types can be used together ina 
same computation, 


PROGRAMMING SYSTEMS - Written in FORTRAN IV; operates under 0S/360. 


MINIMUM SYSTEM REQUIREMENTS - The program runs on a S/360 Model 40 with 128K 
minimum. Modifications to the program require a 256K machine for re-compilation. 


BASIC PROGRAM PACKAGE 
DOCUMENTATION - Write-up. 
MACHINE READABLE - Object code, source code and 
sample problem. 
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OPTIONAL PROGRAM PACKAGE - None. 
ORDERING INFORMATION: PROGRAM NUMBER 360D162022 


PROGRAM NUMBER DISTRIBUTION MEDIUM USER VOLUME 


EXTENSION TYPE CODE REQUIREMENT 

BASIC none DTR 9/800 28 none 

DTR 9/1600 29 none 

DTR 7DC/800 26 none 

OPTIONAL none none | none 
------ we ee ee enn nnn == NEW TYPE IV PROGRAM wooo een nnn nn nnn nen enn n nnn nner 


COMPUTER CALCULATION OF FREQUENCY RESPONSE FUNCTIONS FROM STEP RESPONSE DATA. 


DESCRIPTION - Subroutine BODE was constructed to determine the frequency response 
of a system whose transient response to a step function is known. The program 
is based on a procedure developed by Samulon which includes phase and magnitude 


correction factors. Frequency response field testing requires that a frequency 


source be applied to the system under study and magnitude and phase shift determined 
for each individual frequency of interest. Through the use of this program, it 

is necessary to apply only a step change to the system in the field and record 

its transient response. The transient response amplitude at discrete points is 

fed into the program along with the time interval between each data point. The 
program supplies as its output the desired frequency response data. 


‘PROGRAMMING SYSTEMS - Written in FORTRAN IV. 


MINIMUM SYSTEM REQUIREMENTS - Those associated with the FORTRAN IV compilers. 


BASIC PROGRAM PACKAGE 

DOCUMENTATION - Write-up. 

MACHINE READABLE - Source'code and sample problem. 
OPTIONAL PROGRAM PACKAGE - None. 
ORDERING INFORMATION: PROGRAM NUMBER 360D168002 


PROGRAM NUMBER DISTRIBUTION MEDIUM USER VOLUME 


EXTENSION TYPE CODE REQUIREMENT 
BASIC none a DTR* 00 none 
OPTIONAL none none | none 
~----------~------------------ NEW TYPE IV PROGRAM -------------------------------- 


1400 INPUT/OUTPUT STANDARD LABEL PROCESSING EXITS FOR 483 DISK & TAPE SORT 


DESCRIPTION - These two exit routines are designed to process 1400 input and output 
standard tape labels under the DOS Tape & Disk Sort/Merge (360N-SM-483). Multifile 
and Multireel processing is supported, but deblocking is not supported. Mixed 

360 standard labels and 1400 standard labels are supported on input. Label errors 
are handled under the control of computer operator via the console typewriter. 

The routines must be cataloged in the user's Core Image Library. They are self- 
relocating, therefore, able to operate in any batched partition with the SORT 
program. This routine should be of value to installations having large core and 
using 1400 emulation. It will allow them to take advantage of the increased speed 
and foreground capabilities of the 483 Sort when working with 1400 tapes. 
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PROGRAMMING SYSTEMS - The exits are written in Assembler language and were assembled 
under DOS Release 18. The exits were tested under DOS Release 19, 


MINIMUM SYSTEM REQUIREMENTS - System/360 Model 30 and any hardware required by 
DOS /360. 


BASIC PROGRAM PACKAGE 
DOCUMENTATION - Write-up. 
MACHINE READABLE - Source code. 
OPTIONAL PROGRAM PACKAGE — None. 
ORDERING INFORMATION: PROGRAM NUMBER 360D003028 


PROGRAM NUMBER DISTRIBUTION MEDIUM USER VOLUME 


EXTENSION TYPE CODE REQUIREMENT 

BASIC none DTR 9/800 28 none 

DTR 9/1600 29 none 

DTR 7DC/800 26 none 

OPTIONAL none none | a none 
~----------------------------- NEW TYPE IV PROGRAM -------------------------------- 


KWIC INDEX GENERATOR 


DESCRIPTION - This package contains three mainlines and the associated subroutines 
to generate a Key~Word-In-Context index. Input format is completely general, and 
will probably accept cards which have already been punched for another purpose. 
Program operation is controlled through aveereons and answers on the console 
keyboard and eYPewEeteE: 


PROGRAMMING SYSTEMS - Written in FORTRAN, and the three parts of the mainline are 
linked through Call Link statements. 


MINIMUM SYSTEM REQUIREMENTS - Requires an 8K machine with 1132 Printer, 1442 Card 
Read=-Punch, and one disk. 


BASIC PROGRAM PACKAGE 

DOCUMENTATION - Write-up. 

MACHINE READABLE - Source code and sample problem. 
OPTIONAL PROGRAM PACKAGE - None. 
ORDERING INFORMATION: PROGRAM NUMBER 1130066017 


PROGRAM NUMBER DISTRIBUTION MEDIUM USER VOLUME 


EXTENSION TYPE CODE REQUIREMENT 
BASIC none —™ CARDS =~ ~+#15 = ~~—~—none 
OPTIONAL none none | none 
~--------- +--+ +--+ == += =~ NEW TYPE IV PROGRAM -------------------------------- 


PURDUE FARM SUPPLY CENTER MANAGEMENT GAME 


DESCRIPTION - The Purdue Farm Supply Center Management Game simulates the 
competitive market environment in which farm supply centers selling feeds, 
fertilizers and other agricultural inputs and purchasing grains compete. From 
one to eight teams can compete directly in a market (set). Each team (Center) 
makes 41 decisions which would normally be made on an annual basis such as price 
levels for products and services, quantity and quality discounts, hog and layer 
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contracting, personnel, investment, facility expansion and orders. The game can 
be used to teach business planning techniques, economic and accounting principles 
or nature of the firm and industry. 


PROGRAMMING SYSTEMS - Written in FORTRAN IV and contains 10 subroutines. Read 
and write statements have been written in variable form for easy adaption to other 
computer equipment. 


MINIMUM SYSTEM REQUIREMENTS - An 1130 8K Disk System with a 1442 Card Reader/Punch 
and a 1403 Printer. Unused core is 600 (HEX) words. 


BASIC PROGRAM PACKAGE 

DOCUMENTATION ~ Write-up. 

MACHINE READABLE - Source code and sample problem. 
OPTIONAL PROGRAM PACKAGE =— None. 
ORDERING INFORMATION: PROGRAM NUMBER 1130155001 


PROGRAM NUMBER DISTRIBUTION MEDIUM USER VOLUME 


EXTENSION TYPE CODE REQUIREMENT 
BASIC none” CARDS 15 ~—~—~—none 
OPTIONAL none | none none 
oo at om Om ee Om a ae Om Se een OD OD OD OD OD oD OD mn eS Dm mE ee ene OS NEW TYPE IV PROGRAM were ee ee ee er ee eee wes wr es eres 


MOON FLIGHT 


DESCRIPTION - Plan your own flight to the moon. Starting from a parking orbit, 

add an incremental velocity at some point around the orbit, then coast. Loops 

and figure-eights around the moon are possible. Velocity corrections, permitted 

at any time, make it possible to orbit the moon and return to earth. The flight 
may be traced by listing the result of every tenth iteration of the solution on 

the printer. An after-the-fact plot of the trajectory may be dumped on the printer. 
For users with on-line plotting devices, a call to a subroutine ‘'LTPLT' makes 
available the 'X-Y' coordinates (in miles) after iteration. 


PROGRAMMING SYSTEMS - Written in FORTRAN; operates under 1130-0S-005 (Disk Monitor, 
Version 2). | 


MINIMUM SYSTEM REQUIREMENTS - 1130 Model 2B (I/O is user's option). 
BASIC PROGRAM PACKAGE 
DOCUMENTATION - Write-up. 
- MACHINE READABLE - Object and source code. 
OPTIONAL PROGRAM PACKAGE = None. 
ORDERING INFORMATION: PROGRAM NUMBER: 1130302005 


PROGRAM NUMBER DISTRIBUTION MEDIUM USER VOLUME 


EXTENSION TYPE CODE REQUIREMENT 
BASIC none CARDS (tia none 
OPTIONAL none none none 
Se ee on on me a ae oe ee oe a mene eee om oe NEW TYPE IV PROGRAM oe eee ese eee ne eee eee enero rere 


COMPUTER PROGRAM FOR A HOSPITAL BLOOD BANK 
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DESCRIPTION - Computer program for maintaining records for a hospital blood bank. 


PROGRAMMING SYSTEMS = Written in 1800 FORTRAN and 1800 Assembler language and uses 
1800 TSX. Requires MIOF (available from DACS Centers) and MAGOP (1800-03.4.001) 
Type 3 programs available from IBM, Program Information Department. 
MINIMUM SYSTEM REQUIREMENTS —- 16K 1801, 1-1810, 11-1442, 1-1443, and a 1-1816. 
BASIC PROGRAM PACKAGE 

DOCUMENTATION - Write-up. 

MACHINE READABLE - Object code and sample problem. 


OPTIONAL PROGRAM PACKAGE - None. 
ORDERING INFORMATION: PROGRAM NUMBER 1800252001 


PROGRAM NUMBER DISTRIBUTION MEDIUM USER VOLUME 


EXTENSION TYPE CODE REQUIREMENT 

BASIC none MT 9/800 28 01 
MT 9/1600 29 01 

MT 7DC/800 26 01 

OPTIONAL none | none | none 


Following is an accumulative list of new Type III and Type IV programs which have 
been made available since the last edition of the Catalogs of Programs or their 
Supplements. Abstracts describing these programs can be found in the Installation 
Newsletter Issue No. shown below. 


Newsletter 
Issue No. 


Program Program Title 


Number 


360D-00.0.017 SPOOL, A PACKAGE TO CONVERT CURRENT OR FUTURE) 


PRINTED REPORTS TO MAGNETIC TAPE FOR FOREGROUND OR 


BACKGROUND PRINTING LATER 69-09 
360D-00.0.020 2495 UTILITY PROGRAM FOR 0OS/360 69—11 
360D-00.0.022 PUFER ~- PUNCH FEED READ UTILITY CARD TO TAPE 69=15 
360D-00.1.021 S/360 GENERALIZED EXTRACTION AND MATCH PROGRAM 69-07 
360D-00.1.022 NYU PRINT-UTILITY PROGRAM 69-07 
360D-00.2.006 OS SYSTEM/360 FLOWCHART (OS FLOW): DOS FLOWCHART 

UNDER OS/360 69-03 
360D-00.3.025 S/360 DOS TAPE TO PRINTER/PUNCH SPOOLING SYSTEM 69-08 


360D-00.3.026 FORTRAN TAPE DISK READ WRITE SUBROUTINES 69=-16 


360D-00.3.027 SEVEN TRACK OCTAL TAPE DUMP 69=—11 
360D-00.3.028 1400 INPUT/OUTPUT STANDARD LABEL PROCESSING EXITS 

FOR 483 DISK & TAPE SORT 69=19 
360D-00.4.015 DAP DIRECT ACCESS PATCH PROGRAM 69-09 
360D-00.4.018 IBM SYSTEM/360 INDEXED SEQUENTIAL DASD TO PRINT 

UTILITY 69—17 
360D-00.5.005 FORMATTED LISTING OF VTOC FOR 0OS/360 69-08 
360D-00.5.006 SHAREDISK 69—11 
360D-00.6.011 © A HYPERTEXT EDITING SYSTEM FOR THE S/360 USING 

THE 2250 DISPLAY 69-18 
360D-01.0.009 OS/360 DATE AND TIME SUBROUTINE (DT01) WITH 

CONVERSION FROM JULIAN DATE TO GREGORIAN 69-09 
360D-01.1.006 COMPILE AND GO FOR THE OS 360, PL/I (F) COMPILER 69-06 
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360D-01.3.002 


360D-01.4.010 
360D-03.0.007 
360D-03.0.008 
360D-03.0.010 
360D-03.0.012 
360D-03.1.014 


360D-03.2.011 
360D-03.2.013 
360D-03.2.014 
360D-03.2.015 
360D-03.3.008 


360D-03.3.009 
—360D-03.3.010 
360D-03,3.011 
360D-03.4.026 
360D-03.4.027 
360D-03.4.028 
360D-03.4.031 
360D-03.6,009 


360D-03.6.010 
360D-03.6.012 


360D-03.6.013. 


.360D-03.6.017 
360D-03.6.018 
360D-03.7.025 
360D-03.7.026 


360D-03.7.027 


360D-03.7.028 
360D-03.7.031 


360D-03.8.013 
360D-03.8.015 


360D-04.0.008 
360D-04.0.009 
360D-04.1.010 
360D-04.1.011 
360D-04.2.007 


360D-04.6.001 


360D-05.1.016 
360D-05.2.010 
360D-05.2.011 
360D-06.1.005 
360D-06.3.006 
360D-06.3.007 
360D-06.3.008 
360D-06.5.006 


360D-06.5.007 


360D-06.6.003 
360D-06.6.004 
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OS/360 RELEASE 18 MVT DEDICATFp 
WORKFILES IMPROVE PERFORMANCE 


All OS/360 MVT installations should 
consider using the Release 18 Dedicated 
Workfiles facility. The results of 
measurements indicate an improvement in 
throughput of a jobstream using dedicated 
workfiles over a jobstream using non- 
dedicated workfiles. The facility is 
most helpful when the jobstream has manv 
steps that require temporary direct 
access space because neither allocation 
nor unallocation of the temporary space 
is done at step time. 


‘Runs were made on an OS/360 Model 50I 
using two 2311's for system residence 

and two 2311's for scratch space. For 
this configuration, the use of the 
Dedicated facility gave between a 1.1 

and a 1.4 second improvement per dedicated 
data set used when compared with non- 
dedicated data sets. Measurements were 
made on a pre-Release 18 system containing 
some Release 17 modules. 


Since a typical compile-link edit-go 
(CLG) job requires temporary data sets, 
there can be a savings of several seconds 
per job. 


An analysis of the runs vields the 
following table: 


Improvement in Scheduler Time =- CLG 
COBOL FORTRAN PL/I Utility 


Reduction in 
Scheduler Time |24% 12% ‘25% 55% 


Improvement 

(sec.) per 

dedicated 

data set 

used Lee Te2 3153 1.4 


If three minutes were spent in the exe- 
cution (CLG) of each job, then the 
projected savings in minutes per hour 
for each initiator would be: COBOL=-2.0, 
FORTRAN-0.9, PL/I-1.9, and Utility-4.7. 


The Release 18 Dedicated Workfile facility 
was written for MVT only, since a user 

of PCP has the capability to pre-allocate 
data sets. When an initiator with the 
Dedicated facility is started, specific 
data sets are allocated for all the jobs 
running under it and are unallocated 

when the initiator is stopped. Those 
jobs that desire a dedicated data set 
obtain it by using the DSNAME key word 
recognized by the initiator. There is 

no contention between initiators for a 
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dedicated data set because each initiator 
allocates different space for its own 
dedicated data sets. Therefore, jobs 
running under different initiators may 
use the same DSNAMES without any 
confusion. 


OS/360 PERFORMANCE OF MULTIPLE INITIATORS 


How many initiators should be started 
with MVT? This question has troubled 
several accounts. Normally, there are 
limits to the number of initiators caused 
either by the amount of main storage 
available or by the number of I/0 devices 
available. But large systems such as 

the models 85, 91, and the multiprocessing 
M65 may not be so limited by these 
considerations. A more fundamental point 
relates to the design of the system 
itself. Are there any limitations in 

the system that would reduce the 
effectiveness of a large number of 
initiators? These notes will discuss 
such a limitation in the system and the 
kinds of things a user might choose to 

do about it. 7 


Upon first glance there does not seem to be 


any limitation on the number of initia- 
tors other than the fifteen protect keys. 
Since the reader and writers operate in 
key zero they are outside this limitation. 
However, there is a function in MVT that 
can hamper the effectiveness of a large 
number of initiators. This function is 
the allocation/termination routine, 


Allocation/termination code is serial 
in nature. It uses the ENQ macro to 
guarantee that only one initiator at a 
time can have access to the UCB's, 
Therefore, with any jobstream there is 
a limit on the speed that the jobstream 
will run regardless of an increased 
number of initiators. This limit is the 
time necessary to run 
allocation/termination twice for each 
jobstep in the stream, 


Let us look briefly at some of the things 
that happen in allocation. In the first 
place the queue records for the job step 
must be read from and written into 
SYS1.SYSJOBQE. Device allocations are 
made. For direct access volumes (and 
tapes as well if AVR is included) mount 
messages are issued and the mounting of 
the correct volume is checked. For new 
direct access data sets the actual space 
that the data set will occupy is assigned 
at this time. Finally, messages are 
written into the SYS1.SYSJOBQE data set 
describing the allocations that have 
taken place. 
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It is possible to measure the amount of 
time that is spent waiting for allocation 
as well as the time in allocation. This 
can be done by modifying the ENO routines 
to check for the name of the allocation 
resources (SYSIEFSD Q4 and Q5). These 
measurements were done on a Model 91 

with several jobstreams, a commercial 
stream and a scientific stream. The 
ground rules for the measurement were 
‘~that no writers were active and no mounts 
were necessary because PRESRES was used 
to insure that all needed volumes were 
pre-mounted. 


Chart 1 gives the percentage of time 

that an average task spent waiting for 
allocation or termination. Chart 2 gives 
the time for the jobstream with various 
numbers of initiators as well as the 
time that Q4 and 05 were in use. Notice 
that in one case increasing the number 

of initiators caused the time for the 
entire jobstream to increase. It is 

also worth noticing that the case when 
SYS1.SYSJOBQE was located on a 2311 shows 
that an average task spent from 30-60% 
of its time just waiting for allocation 
or termination. These measurements do 
not include a 2314 SYS1.SYSJOBQE but we 
can speculate that the 2314 would be 
somewhere between the 2301 and the 2311 
on Chart 1. It would probably be closer 
to the 2311 than to the 2301, 


Clearly, the case of eight initiators 
shown in Chart 2 demonstrates that the 
allocation routines are in use 100% of 
the time for the 2311. Even on the 2301 
the usage is over 75% of the total time. 


It is true that the jobstreams used were 
fairly high intensity i.e., many short 
job steps. Remember, though, that no 
mounts took place during the measurement 
nor was there a writer active. These 
functions would contribute to Q5 usage. 
However, there are going to be customers 
who wish to run high-intensity job streams 
on our large systems. The next section 
will explore what the user might do in 
case the allocation/termination routines 
seem to be a bottleneck in his | 
applications. 


Recommendations 


1. Large systems. should consider placing 
SYS1.SYSJOBQE on the 2301. This action 
seems reasonable when more than four or 
five initiators will be used to schedule 
jobs. Notice that initiators that are 
tied up for long periods with a single 
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job step such as a TP job can be ignored 
in this connection. 


2. Since space assignement for new data. 
sets on direct access takes place during 
allocation, the number of new data sets 
should be held to a minimum, Creation 

of a new data set can take several seconds 
and hence lengthen allocation time 
considerably. A Release 18 improvement 
will help substationally in this respect. 
This incremental will allow an initiator 
to have Dedicated Work Files that could 

be used by the job steps that are selected 
by that initiator. In the absence of 

this feature, it may be possible to use 
Class scheduling and dedicated work 

files. However, this would normally 

mean that only one job of a given type 
could be running at a time. 


3. Reducing the number of jobsteps in 

a job will obviously reduce the number 
of times that the allocation/termination 
routines must execute. For this reason 
the Loader would seem to offer much help 
to certain environments. One step 
monitors that use the ATTACH capability 
might also be investigated for some 
applications. For small volume sorts 
the PL/I SORT feature and the COBOL SORT 
VERB would reduce scheduler usage. 


4, Careful planning needs to be done 

to reduce the impact of mount time. The 
time that is spent by an operator 
searching for a volume involves a complete 
lockup in allocation. When this lockup 
occurs all the writers will pause when 


they finish processing a data set. The 


PUBLIC/PRIVATE facilities of the system 
should be used where possible to eliminate 
unnecessary mounting and dismounting of 
volumes. For example, if a PRIVATE 
volume must be used in more than one 
step of a job the "RETAIN" parameter 
should be used to prevent an unnecessary 
Class scheduling should 
be used to balance the necessary setup 
so that the operator can keep up and 
delays are avoided. 


In addition, there was a Scheduler Change 
distributed by Poughkeepsie HQ FSC to 
all SD&I Centers on July 25, 1969. This 
change applies to Release 17. It will 
allow the scheduler to leave allocation 
without waiting for a mount of an "old" 
data set. This change should reduce the 
time spent in allocation. This local 
modification has been approved for 
distribution by SD&I Centers as an 
exception to a general policy. 
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5. The use of Automatic Volume Recog- 
nition (AVR) must be studied to determine 
whether or not it is justified. The 
reason why AVR is a consideration relates 
to its effect on the processing of tape 
volumes. Without AVR the mount of a 

tape is not required during allocation; 
instead the mount can be deferred until 
OPEN time. When AVR is included in the 
system, tape volumes must be mounted 
before the initiator leaves allocation. 
If the operators are able to stay ahead 
by premounting tape volumes then there 
will be no delay. On the other hand, 

if the operators are not able to keep 
ahead, it might be better to remove AVR 
from the system. 


6. There is not much the user can do 
to reduce the dependence of the writer 
on Q5. 
will reduce the contention for allocation 
and thus reduce the impact on the writer. 
There are no plans to solve this 
currently. 


7. A final possibility that might be 
looked at in MVT is track stacking 
(INITOBUF). In some cases track stacking 
may reduce the time spent in allocation 
because when the stack is written back 
to SYS1.SYSJOBQE the initiator can leave 
allocation. Without track stacking 
individual 176 byte records would be 
written instead. However, overall 
activity into SYS1.SYSJOBQE may increase 
because instead of a single record being 
read or written an entire stack must 
always be read. Selecting an optimum 
value for track stacking may prove 
difficult. 


Conclusion 


The potential effects of allocation/ 
termination on multiple initiator 
performance have been discussed in this 
report. Several methods have heen 
explored to reduce this impact hut any 
complete solution of the problem must 
await changes in the logic of the 
operating system. 


Chart 1 


Percentage of time that an average task 
spent waiting for 04 or 05, Model 91, 


Number of JOBQOE on JOBQE on 
Initiators 2311 2301 

it) 32% 4G, 

5 Yug 7% 

6 52% 8% 

7 58% 12% 

8 64% 16% 
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Chart 2 
Number of JOBQE on JOBOE on 
Tnitiators 2311 2301 
Total Q5 Total Q5 
Time Time Time Time 
Sec. Sec. Sec. Sec. 
5 820 810 850 520 
6 820 810 880 600 
7 800 770 825 580 
8 840 840 800 660 
Note: In the system with JOBQE on the 


2311 LINKLIB and FORTLIB were on 2301. 


OS/360 CHECKPOINT TIMINGS REPORT 
Introduction 


The HQ FSC has recently completed a 
series of measurements of the 0OS/360 
Checkpoint facility under MVT. The 
purpose of these measurements was not 

to study all possibilities in the use 

of Checkpoint. Instead, it is intended 
to provide some planning information for 
those accounts that are going to install 
Checkpoint under MVT. Those who want 
the essential results of the study should 
turn to the section of this report 
entitled "Conclusions". 


Background 


The Checkpoint/Restart feature of OS/360 
is new in Release 17. We ran a series 
of measurements on a model 50 with MVT 
to determine what the performance of an 
individual checkpoint is and what the 
impact of checkpoint on a production job 
might be. We do not claim that our 
measurements are universally applicable 
nor did we do an exhaustive set of 
measurements. 


The method used to derive the timings 

for an individual checkpoint was to 
precede and follow the execution of the 
checkpoint SVC with a request for the 
time. In the absence of any other active 
tasks in the system this measure of 
elapsed time is used to determine 
performance, 


Elapsed time is also used as the measure=- 
ment of sort performance. Sort was 
chosen as the vehicle to measure the 
effect of Checkpoint on a production 

type run. We felt that OS Sort was the 
component of the operating system where 


most accounts would be likely to implement 


checkpoint first. 
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Care was taken during the measurements 
that we made to printout LOGREC and 
observe any errors that might have 
occurred. In this way we were able to 
uarantee that I/O errors did not 
invalidate our measurements. 


As a final point it is worth noting that 
the Checkpoint data set was never OPEN 
when we issued the CHECKPOINT macro. 
Timings would be improved if this data 
set were OPENed by the problem program. 


Conclusions 


1. Elapsed time for an individual check- 
point has been established as from 4- 

15 seconds in the cases studied. Table 

1 gives details on these measurements. 


2. By observation most of the checkpoint 
time seems to be I/O time. The measure- 
ments are probably roughly applicable 

to either a Model 40 or a Model 65. 
However, our systems residence was a 
2314. We did not measure what a change 
here would do to timing. 


3. Users will want to increase the 
blocking factor on the checkpoint data 
set up to the maximum. When the 
checkpoint data set is on a 2314 the 
maximum blocksize produces a checkpoint 
time three times as fast as the minimum 
blocksize. However, when the checkpoint 
data set is a tape, users will want to 
consider the time involved for error 
recovery if extremely large blocksizes 
are used. 


4, When the checkpoint data set is on 
the 2314 the use of chained scheduling 
in our runs did not produce significant 
improvement over full track blocking. 


5. The times for these checkpoints could 
be reduced further if the checkpoint 

data set were OPEN before the checkpoint. 
macro was issued. 


6. Table 2 shows the impact of check- 
point on a five minute 2314 sort when 
the Balanced merge technique was used. 
Notice that the user should specify 
DISP=MOD if his checkpoint data set is 
on tape. 
on page 54 of the Sort SRL (C28-6543=5). 
The increase in Sort time shown in Table 
2 could be reduced by specifying a larger 
blocksize on the checkpoint data set. 


7. Table 2 also shows that suppressing 
the checkpoint through the JCL is as 
effective so far as timing is concerned 
as removing the checkpoint macro from 
the problem program. 
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8. Table 3 shows an overhead for check- 
point of about 25 seconds in a total 
sort time of 530 seconds without 
checkpoint. This case also shows that 
the effect of increasing the blocksize 
on the checkpoint data set was a saving 
of nearly a minute in a ten minute sort. 


9. By comparing Table 2 and Table 3 we 
can compare the checkpoint protection 
of the oscillating tape sort and the 
balanced (2314) sort for this application, 
As far as number of checkpoints taken. 
the two sort techniques are nearly 
equivalent, five for balanced and six 
for oscillating. The frequency of 
checkpoints differs. With the 2314 sort 
a checkpoint was taken on an average of 


once a minute while, with the tape sort, 


a checkpoint was taken on an average of 
once every two minutes. A faster tape 
drive would presumably change this ratio. 
Howver, users will have to evaluate this 
consideration in their own environment. 


HARDWARE CONFIGURATION 


All measurements were made on a 512K model 50. Tapes are on 
Channel 2. All tapes were 9 track 90KB. System residence was ona 
2314 on Channel 2 with a two channel switch so that it could be accessed 
through Channel 3 as well. | 


OPERATING SYSTEM 


The operating system used in the measurements was Release 17 
MVT, The RSVC, BLDL and RAM module listings are given in Table 
4, 5and 6 respectively. Pertinent options from the Stage I Sysgen are 
given below. 

CTRL PROG TYPE=MVT, MAXIO=50, 
FETCH=PCI, OPTIONS=ROLLOUT, QSPACE=10 
OVERLAY=ASYCHRON 

SCHEDULR TYPE=MVT, ACCTRTN = 
SUPPLIED, OPTIONS = (BYLABEL, RJE), 
VLMOUNT=AVR, JOBQFMT = 15, JOBQLMT = 


150, JOBQTMT = 60 


SUPRVSOR RESIDENT = (ATTACH, 
EXTRACT, IDENTIFY, SPIE, BLDLTAB, 
RENTCODE, TRSVC), OPTIONS = 
(IDENTIFY, TRSVCTBL, PROTECT, 
COMM, ONLNTEST, RER), TIMER = 


JOBSTEP, TRACE=5, SER=SER 1 
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CHECKPOINT TIMING 


MODEL 50 
SYSRES-~- 2314 


Region 
Location of Checkpoint 
Data Set 


70K 100K 


90KB Tape BLKSIZE = 600 

9O0KB Tape unspecified BLKSIZE 

2314 BLKSIZE = 600 

2314 FT Blocking 

2314 FT Blocking-(OPCD=C, NCP-2) 
2314 FT Blocking 

2314 FT Blocking-(OPCD=C, NCP=2) 
2314 FT Blocking-(OPCD=C, NCP=3) 
2314 FT Blocking-(OPTCD=-C, NCP=10) 


2314 BLKSIZE = 600 


2314 BLKSIZE = 600 (OPTCD=C, NCP=5) 


NOTE: l. 


Size 


200K 


12. 53 sec. 
7.25 sec. 
15.27 sec. 


5.13 sec. 


Checkpoint data set not open when CHKPT Macro issued. 


2. In all cases CHKPT Macro issued at EOV exit from DCB 


exit list. 


TABLE 1! 


IMPACT OF CHECKPOINT ON SORT 


MODEL 50 - REGION SIZE 200K 
SYSRES - 2314 
50, 000 records LRECL = 100 
Sortin, Sortout on 9OKB Tape 
3 work areas on 2314 


BLKSIZE = 5,000 


Checkpoint Data Set on 90OKB Tape 


Sort Time 


Checkpoint Data Set 
DISP-KEEP, BLKSIZE = 600 6 min. 55 sec. 


Checkpoint Data Set 
DISP=-MOD, BLKSIZE = 600 5 min. 42 sec. 


RD=RNC (No checkpoints taken) 4 min. 46 sec. 


RD=RNC & CHKPT parameter 4 min. 46 sec. 


removed from Sort Card 


Note: 5 Checkpoints taken during sort. 


TABLE 2 
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IMPACT OF CHECKPOINT ON SORT 


MODEL 50 - REGION SIZE 200K 


SYSRES - 2314 


50,000 records 
Sortin, Sortout on 2314 
4 90KB 2400 work tapes 


Checkpoint Data Set on 2314 


Checkpoint Data Set 
BLKSIZE = 600 


Checkpoint Data Set 
No blocksize specified 


RD=RNC (Suppress checkpoint 
by JCL) 


6 Checkpoints taken during sort. 


LRECL = 100 


BLKSIZE = 7,000 


Sort Time 


10 min. 6 sec. 


9 min. 15 8ec. 


8 min. 50 sec. 


TABLE 3 


BLDL MODULE LIST - TABLE 4 


IEFW21SD 
IEFW41SD 
IEFW42SD 
IEF XJ000 
IEFO85SD 
IEF 086SD 

IEWL 

IEWLF 128 
IEWLF440 
IEWLF880 
IEWSZOVR 
LINKEDIT 


I1GGO019BC 
IGGOI9AL 
IGGO19BD 
IGGOILOBE 


IEEVATT] IEFSD080 
IEEVWAIT IEFSD085 
IEEVWTR) IEFSDO86 
IEFIRC IEFSDO87 
IEFQMRAW IEFSD094 
IEF QMSSS IEFSD104 
IEFSDO060 IEF VHA 
IEFSD061 IEF VHN 
IEFS D062 IEF VHI1 
IEFSD065 IEF VM1 
IEFSD071 IEF WCO000 
IEFSDO079 IEF WDO000 
RAM MODULE LIST - TABLE 5 

IGG0O19CK IGGOI9CA 
IGGO19AV 1GG019CB 
I1GG019AM IGGOIJAD 
I1GG019AH IGGO1L9AN 
IGG019AG IGGO19AC 


1GC00021 1GG05501 

IGC0003B IGG0550L 
IGCOO003E 1GG0550M 
IGCOO0O05E IGG0550N 
IGC0002D 1GG0550Z 
IGCO002ZA IGGO551A 
I1GC0002H 1GG0325B 
IGCOOO1I 1GG0325D 
IGC0003D I1GG0325E 
IGC0007B 1GG0325G 
IGC0107B IGG0325H 
IGGOCLF2 1GG0290A 
IGG0553A I1GG0290B 
1GG0553B 1GG0290C 
I1GG0553C IGG0290D 
1GG0553D IGGO200A 
IGG0553E IGGO0200F 
I1GG0550K 1GG0200G 


RSVC MODULE LIST - TABLE 6 


IGGO201A 
1GC0002% 
IGGOI9IA 
IGG0191B 
IGG0191D 
IGGO0191I 
IGGO191J 
I1GG01910 
1GG01911 
1GG0190I 
IGG0190L 
1GG0190M 
1GG0190S 
I1GGO0190Y 
1GG0190Z 
IGGO191IN 
IGGO200Y 
IGG0290E 
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0S/360 PUBLICATIONS GO MICROFICHE 


DP is conducting a pilot Microfilm Program 
on the IBM System/360 Operating System 
(OS) Publications, excluding the Program 
Logic Manuals (PLM). 


Presently, fifty-seven (57) of the SRL 
Publications are available on Microfiche 
from the IBM Distribution Center. 


Fach 3-1/4 x 7-3/8" (Tab Card size) 
Microfiche card contains up to ninety 

(90) 8-1/2 x11 text pages, reduced twenty- 
four times (24:1). 


Associated TNLs have been incorporated 
into their respective hase manuals 
resulting in an up-to-date Microfiche 
card, 


The Microfiche version will carry a form 
number similar to the hard copy version 
except the second character in the prefix 
will now be an alphabetic character; 
whereas the suffix will now become zero 
(0) on the initial Microfiche card version 
regardless of the hard copy form number 
suffix. Example: 


Hard copy version form number and title 


C28-6631-6 IBM System/360 OS Messages 
and Codes 


Microfiche version form number and title 


CB8-6631-0, IBM System/360 OS Messages 
and Codes 


In the above example, CB8-6631=-0 is 
equivalent to C28-6631-6 and includes 
a subsequent up-date, TNL N28=-2373. 


Both of the above form numbers will 
appear in the various catalogs and indexes 
available. 


Use key "G" applies to both versions. 


The Microfiche card is in addition to, 
and not intended to replace the hard 
copy version of the SRL publications. 


S/360 Model 25 PRINT SPEED COMPARISONS 
USING MCS ON NATIVELY ATTACHED 
CLARIFICATION 


An article on this subject appeared in 
INL 69-18, Reader response indicates 
the subject may still need further 
clarification. The article has heen 
modified and is again printed below. 


When configurating or planning for the 
use of the Multiple Character Set feature 
on a 1403 natively-attached to a 2025, 
particular attention must be paid to 
possible degradation in expected print 
speeds. Perferred character arrangements 
will run at the slowest of the speeds 
specified for that arrangement in the 
type catalog. To avoid severe print 
speed degradation, it is desirable to 
choose an alternate comparable "straight" 
arrangement over a preferred arrangement, 
whenever possible. A "straight" 
arrangement is one in which each graphic 
appears the same number of times on the 
chain/train. 


Following is a chart of preferred 
arrangements with comparable straight 
arrangements and speed comparisons for 
a 1403=N1. 


NOTE: There is no lozenge on the PN 
arrangement. If a lozenge is required 
by an RN user, it may be obtained by 
substituting a lozenge in each array for 
any character not needed by the customer. 


For further information consult the Type 
Catalog of the Sales Manual. | 


Arrangement Speed 
PCS-AN, PCS-HN Numeric, Alpha, or 


Special-560 LPM 


Alternate AN, 


HN All Graphics-1100 LPM 

QN, ONC Alpha, Numeric, or | 
Specials-310 LPM 

Alternate PN All Graphics-955 ‘LPM 

RN =—t—‘“‘i‘;OW....V...CLCUChALpRa, vmNumeric, Or) 


Specials-310 LPM 


Alternate PN 


(Note) All Graphics=-955 LPM 

SN Alpha, Numeric, or 
Specials=-310 LPM 

Alternate TN All Graphics-560 LPM 

YN ~=—COti‘i‘“‘(‘(OW.)V Alpha, Numeric, Or 


Specials-560 LPM 


Alternate AN 
or HN All Graphics-1100 LPM 
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S/360 Model 20 BSCA IOCS Modification 


Problem: Unit record error on 360/M20 
neon meee e s e 
causing the communications line to drop. 


Problem Description: When operating 
with leased line logic on a switched 
network, a unit record error on the S/360 
Model 20 will cause the line to drop. 
(Ex. Reader Stop, Forms Check, etc.) 
Interrupt Handler Routine gains control 
when the error occurs and passes control 
to the BSCA IOCS ABORT routine which 
will issue a 'CIO DISABLE BSCA‘' command. 
The resultant effect is that the data 
set will go 'ON HOOK,' terminating the 
telephone connection before the operator 
can clear the unit record error. 


Circumvention: To avoid the discon: 


necting of the line: 


1. Locate the S/360 Model 20 BSCA I0cS 
ABORT Module and verify the statement 
after label IDK9 which reads: 


9B5300C8 C10 200, X '53' DISABLE BSCA 
replace with: 
470000C8 NOP 


2. Continue issuing Read or Write 
Initials until the operator has cleared 
the unit record error and continued. 


S/360 Transmitting to Model 20: 


With this correction applied the ABORT 
routine will be entered as before, but 
only an EOT will be sent to: S/360. 
Consequently, when S/360 is the 
transmitting station the user can cycle 
on a write TI after encountering an EOT 
response. DOS BTAM will post user with 
X'41" and bit 1 of BYTE 24 (DECB FLAG 
BYTE) will be on if it is an EOT. 


The Model 20 BSCA IOCS Routine will 
eventually return control to the user. 
BYTE 2, Bit 0 of the TECB will indicate 
whether there was an ABORT or not. If 
so, the user can cycle on a READ dtfname, 
TR. When the I/O error is corrected, 
S/360 and the model 20 can now get hack 
into SYNCH and resume processing. 


S/360 Receiving From Model 20: 


The above solution applies with the only 
difference being that S/360 will cycle 
on a READ TI and the Model 20 will issue 
a write TW. 
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2711 LINE ADAPTER UNIT SALES MANUAL PAGE 
CORRECTION 


Item four under Specify states Use of 
Cable Order Form 120-1080 is not 
applicable to the 2711, 


Use Communications Cable Order Form 120- 
1507 when ordering cables. The Sales 
Manual page will be corrected. In the 
meantime, correct the existing page. 


INFORMATION ABOUT THE NEWSLETTER 


EVERY SALESMAN AND SYSTEMS ENGINEER 
SHOULD RECEIVE ONE COPY OF THE NEWSLETTER, 
Each FE Branch Manager should receive 
five copies for distribution to Customer 
Engineers. 


The IBM Installation Newsletter is 
distributed only to IBM locations and 

is not available to customers. The 
Newsletter is separated into two parts. 
The first part contains information which 
is intended only for IBM personnel anc 
the pages are labeled For IBM Interna 

Use Only. THESE PAGES, OR REPRODUCTIONS 
OF THEM, ARE NOT TO BE GIVEN TO CUSTOMERS. 
However, using your own good judgement, 
you may discuss pertinent information 
from these pages with a customer. The 
second part contains information which 
may be reproduced by the Branch Office 
at their discretion and given to 
customers. These pages are not labeled 
with any restrictive classification. 
Note that when any abstracts for Type 
III and Type IV programs are given to 
the customer, he must be informed that 
the disclaimers for Type III and Type 

IV programs as contained in the 
Newsletter, applies. YOUR COOPERATION 
IN PROPERLY HANDLING THE CONTENT OF THE 
IBM INSTALLATION NEWSLETTER IS NECESSARY 
FOR ITS CONTINUED PUBLICATION. 


Changes to the quantity of the Newsletter 
Shipped are to be made by the Admini- 
stration Manager. He should update and 
send the DP Administration Managers' 
Document Control card (Electro IBM N61508) 
to DP Document Control, DPD HQ. 
Direct inquiries concerning the contents 
of this Newsletter to: 


W. F. Malmborg, Editor 

IBM Installation Newsletter 

Dept. 812, DPD HQ 

112 East Post Road 

White Plains, New York 10601 
Telephone 914 949-1900 Extension 6158 _ 
Tie Line 374-6158 
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NEW PUBLICATIONS ANNOUNCED BY PRLs 


Information is extracted and condensed 
from the weekly PRLs (Publications Release 
Letters) to insure that all Salesmen and 
Systems Engineers are aware of new or 
revised Reference Sources, Marketing 
Publications, and Field Engineering 
Publications. Normally, each issue of 
the Newsletter will contain information 
extracted and condensed from two PRLs, 
one following the other. The information 
will be placed in the Newsletter in its 
original sequence with no rearrangement 
of form numbers or titles. It is not 
intended to replace existing information 
and distribution sources. You should 

be certain that you are aware of these 
sources. 


Do not use the condensed Newsletter 
information to order publications. Most 
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but not all (for example, some films and 
Slide sets) of the items are available 
from Mechanicsburg. To receive the items 
you need without delay, prior to ordering 
check the REQ (Requisition Form) code 

in the "Accumulative Supplement to IBM 
Publications Current Price List (z20- 
0100)" which is attached to the weekly 
Publications Release Letter (PRL) and 
distributed to your Administration 
Manager. For an explanation of the REQ 
codes and other publications information 
see the first few pages of the "IBM 


ae Current Price List Z20- 


The IBM publications requisition (MO2- 
0618) or ITPS should be used for ordering 


items from the IBM Distribution Center, 
Mechanicsburg, Pa. 


(IBM World Trade Corporation has its own 
distribution center and procedures, ) 


PRL #38 September 1 9, 1 969 MARKETING PUBLICATIONS 
FORM NO, TITLE 
DISPOSITION 
221-0384—=2 IBM 2803/2804 Tape Control Model 1 Proposal Insert 
320~1029-0 Purdue Agricultural Accounting Program NEW 
320-1030-0 SHAS - Terminal Operators Guide NEW 
320-1906-8 August 1969 "In Brief" NEW 
520-2196-0 IBM System/ 3 for Banks Scrap 320-1806-7 
NEW 
520-2206-1 System/ 360 Model 195, 
548-0012-0 CE Career Guide NEW 
548-0013-0 CE Manager Career Guide NEW 
549-0717-0 MT/SC Third Tape Station Specification Folder NEW 
A27-3013-0 IBM 2770 Data Communication System System Components NEW 
A33-4500~-1 IBM S/ 360 Component Description - 2826 Paper Tape Control, 1017 Paper Tape NEW 
Reader, 1018 Paper Tape Punch Scrap A33-4500-0 
C20-1646-5 A Programmer's Introduction to IBM S/ 360 Assembler Language Student Text 
C30-2020-0 IBM S/ 360 OS Planning for Telecommunications Access Method Scrap C20-1646=4 
E20-0333-0 Library Automation - Computer Produced Book Catalog NEW , 
K20-0322-0 Bankmark Charge Card System - Optical Character Reading and Descriptive NEW 
Billing Using the IBM S/ 360 and 1287 Optical Reader NEW 
K20-0330-0 Consolidated Functions Processing IBM S/ 360 Model 20 with Direct Access 
Storage at United Home Life Insurance Company Application Brief NEW 
N23-0684-0 TNL to Introduction to S/360 Advisor Guide Re: R29-0244 
N27-1316-0 TNL to S/360 OS and 1130 Disk Monitor System - S/360 - 1130 Data NEW 
Transmission for FORTRAN Re: C27-6937-1 NEW 
N33-9060-0 TNL to S/36Q Model 20 DPS Systems Generation and Maintenance - C33-6006-2 
R20-1037-0 S/ 360 Disk And Tape OS Coding (DOS/ TOS) Education Guide NEW 
R20-1039-2 S/ 360 Disk and Tape Operating System Coding (DOS/TOS) Student Materials NEW 
R20-1078-2 S/ 360 Operators Reference Guide Handbook NEW 
R20-6003-0 System/3 Application Design Education Guide UES R20-1078-1 
R20-8083-0 S/ 360 Model 20 Installation Programming - Disk/ Tape Learner - Paced Format NEW 
Study Guide NEW 
R20-8084-0 S/ 360 Model 20 Installation Programming - Disk/Tape Learner - Paced Format 
Student Materials NEW 
R20-8085-0 S/ 360 Model 20 Installation Programming - Disk/ Tape Learner - Paced Format 
Advisor Guidelines NEW 
R20-8086-0 IBM 1800 Data Acquisition and Control System MPX Conversion Education Guide 
R20-9001-2 IBM 1401 Data Processing System Accelerated Basic Programming Course NEW 
Description Scrap R20-9001-1 
R20-9171-1 S/ 360 Assembler Language Coding Workshop Course Description 
R20-9293-0 S/ 360 Model 20 Installation Programming - Disk/ Tape Learner-Paced Format NEW 
Course Description NEW 
R20-9306-0 System/ 3 Application Design Course Description 
R20-9309-0 System/ 3 Executive Introduction Course Description NEW 
R29-0211-4 System/ 360 COBOL Writing Programs in Cobol Reference Handbook NEW 
R29-0253-1 System/ 360 Model Assembler Language Coding Sample Problems UES R29-0211-3 
X20-1786-0 Numerical Control Coding Form/AUTOSPOT Tool Information Form UES R29-0253-0 
Y20-0044-2 Index Tabs for DP Sales Manual NEW 
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PRL #38 (Continued) 


Y20-0431-0 Information Management System/ 360 for the IBM System/ 360 System Manual 
Volume 1 - Program Logic 
Y20-0432-0 Information Management System/ 360 for the IBM S/ 360 System Manual, 
Volume 2 - Flowcharts 
Y20-045 8-0 TNL to Service for Consultants Re: Y20-0161 
Y33~6003-1 PL/I Language Specifications 
Y33-8019-0 TNL to S/360 Model 20 Remote Job Entry Work Station Program Logic-Y33-8006 
Y33-9044.0 TNL to S/360 Model 20 DPS Control and Service Program Logic Manual 
Re: Y33-9008~2 
YBO-0433-0 Information Management S/ 360 for the S/ 360 System Manual, Volume 3 - 
Assembly Listings 
Z77~9192-0 Software Measurement of the Performance of a Tele-communications 
Based System 
FIELD ENGINEERING PUBLICATIONS 
123~1028-1 2265 Display Station Parts Catalog 
225 -6369-6 557 Alphabetic Interpreter FEMM 
229-0033~-0 FES to IR, MINI-IR, PAIR Preparation Instructions Booklet Re: 229-0021-0 
R23-3104-1 2701 Data Adapter Unit Type1 Student Self Study 
R23-3128-2 2313 Disk Storage Drive Study Course 
R23-3157-1 2841 Storage Control Student Self-Study Course 
R27-9506-2 S/ 360 Channel Adapter Student Self Study 
R25-5424-0 Selectric I/O Mechanical Keyboard 
R25-5425-0 2025 ICA Start/Stop Adapter Student Guide 
R31-0281-1 1907 Batch Recording Model 5 
R31-0455-0 1907 Model 6 Rots Mark Scanner Student Guide 
$29-2545-0 Supplement to 2948 FE Education Student Guide Re: R23-3127-0 
$29-3557-0 Supplement to 514 519 Student Guide Re: R31-0313-0 
Y22-6608-0 2365 Processor Storage Models 1, 2, 3 and 13 FETOM 
Y22-6753-0 2085 Processing Unit:E-Unit Operations FETOM 
Y22-6755-0 S/ 360 Model 85 Channel Adapter FETMM 
Y22-6762-0 2085 Base Machine FEMDM 
Y22-6763-0 2085 Features FEMDM 
Y25-2768-1 2841 Storage Control Student Quiz #1 
Y25-2771~1 2841 Storage Control Student Quiz #4 
Y25~-2772~1 2841 Storage Control Prerequisite Quiz 
Y25-3059-2 1130 Computing System Student Quiz 
Y25~-3783~1 84 Sorter Prerequisite Quiz 
Y27~-2138-2 2848 Display Control FETOM 
Y33-~-3003-0 1018 Paper Tape Punch FEMM 
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DOS/360 COMPILERS, ASSEMBLER AND LINK 
EDITOR IN FOREGROUND 


This field contribution has not been 
submitted to any formal IBM test. 
Potential users should evaluate its 
usefulness in their own environment prior 
to implementation. 


An alternate approach for Assembler and 
Link Editor was described in INL 69-10. 


Job Control, Assembler F, Linkage Editor, 
and maintenance functions (except condense 
of core image libraries) can run in 
Foreground Two or Foreground One as well 
as background with a few simple changes. 


These changes were made to DOS Release 
20 and operate on a 128K Model 40 with 
a 16K Supervisor. Excessive turnaround 
time experienced by the programmers 
prompted these changes. 


Changes only involved six modules: IJBJC3, 
IJBJC2, IJBJC1, IJBLE1, IJSCBLO1, and 
IJROOO. 


First, we consider Job Control. We have 
three objectives to accomplish here. 


Ones: we want to prevent the system from 
disallowing the following cards. 

1. ACTION 

2. ENTRY 

3. PHASE 

4. INCLUDE 

We accomplish this by changing $JOBCTLA. 
Punch out IJBJC1 ($JOBCTLA) and REP at 
location 2ED6 with a 47FQ. 


Two: we want to make all assignments 

in Foreground valid. Punch out IJBJC2 
($JOBCTLD) and REP at location 2CD6 with 
a 47FQ. 


Three: We want to make all “option" 
parameters valid for Foreground. Punch 
out IJBJC3 ($JOBCTLG) and REP at location 
3D3A with a O7F7. 


We must make sure the work files for the 
compilers and the Linkage Editor be 
assigned to disk. For the Linkage Editor, 
punch out IJBLE1 ($LINKEDT) and REP at 
location #FBS with a 47F%. This assigns 
work files to a 2311. For a 2314, REP 

at location @FBE with a 47FQ. 


For COBOL, punch out IJSCBL#1 and REP 
at location 5A with a 47Ff. Make the 
same change for a 2314. 
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For RPG, punch out IJR@$P and REP at @ 
location D5@ with a 47F8,864C for 2311'S. 

If you have 2314's REP at Location D59 

with a 47F9,865C. 


When these changes are made, catalog 
IJBSL2 to F2 or F1 with this job stream: 


// JOB CATAL 

// OPTION CATAL 
ACTION F2 (or F1) 
INCLUDE IJBLE 

// EXEC LNKEDT 

// OPTION CATAL 
ACTION F2 (or F1) 
INCLUD IJBSL2 

// EXEC LNKEDT 

/& 


The final step is to Linkedit the 
compilers from Foreground. 


The compilers will run in Background 
without re-linkediting, but core must 
not be allocated to Foreground. All 
maintenance functions, except condense 
of core image library, will run in 
Foreground. cCondense of core image 
library will run in Background, but core 
must not be allocated to foreground. 

The assembler (IJQD32) and 44K assembler 
(IJYASM) do not need modifications to _ 
run in Foreground. Changes to PL/I are 
Similar to COBOL. 


With these changes, it is impossible to 
destroy system directories by updating 
the directories from two partitions. 
The reason being that Linkedt will run 
Only in one partiton at a time. 


DOS/360 RELEASE 20 TRACE MACRO 


The coding for a DOS Release 20 ALP TRACE 
Macro is similar in operation to the 
COBOL READY TRACE statement. In Exhibit 
1 the Macro provides a label and 
subroutine trace on SYSLST. It remains 

a part of the program and is activated 

by setting UPSI switch X 01 on. 


The user includes the Macro definition 
coding directly following the // EXEC 
ASSEMBLY statement and then codes the 
TRACE Macro at any point in his program 
at which a trace is desired, 
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Examples: 


// EXEC ASSEMBLY 
Macro 
Definition 
Coding 


RTNB TRACE 


END START 


As the labels RTNA and RTNB are reached 
the names 'RTNA' and 'RTNB' are printed 
on syslst. 


DOS/360 RELEASE 20 TRACE MACRO 


STMT SOURCE STATEMENT 


1 MACRO 

2 &NAME TRACE 

3 GBLB &Bl 

4 ENAME BCR 0,0 

5 AIF (€B1 EQ 1).T1 
6 &Bl SETB (1) 

qT B TE SYSNDX 

8 TRACE MVC TMSG 01) 

9 COMRG 

10 ™M 23(1),X*O1! 
11 BZ XE SYSNDX 

12 ExcP CCBESYSNDX 
13 WALT CCBESYSNDX 
14 X&SYSNDX XC TMSGsTMSG 
15 BR 14 


16 CCBESYSNDX CCB SYSLST sCCWESYSNDX 
17 CCWESYSNDX CCW 9,TMSG eX'20'98 


18 TRCSV DS 4F 

19 TMSG DS D 

20 «Tl ANOP 

21 TESYSNDX STM 14,11 RCSV 

22 L 15,=A( TRACE) 
23 LA L,»,=CLE*ENAME § 
24 BALR 14,15 

25 LM 14,1,TRCSV 
26 MENO 

27 MACRO 

28 ENAME READK E&FILE,&ERR 
29 &NAME READ - EFILE,KEY 

30 WAITF S&FILE 

31 L 15,=A( (STOCK) 
32 L Ly,=ACEFILE) 
33 BALR 14,515 

34 C 1,=F°5* 

35 BL GERR 


36 MEND 


EXHIBIT 1 


DOS/360 LABEL PROCESSING AND FILE 
DESCRIPTION. ©... 


Problem: Incomplete file processing 


The User must supply a DLBL for each 
logical file to be processed and an 
EXTENT for each area on the DASD device. 
OPEN uses the information supplied by 
these statements and also certain 
information from the DTF table. 


For input, the extent(s) for a file must 
either coincide with, or be within, an 
existing extent(s) that is defined in 
the VTOC. IOCS opens only an existing 
file or a subset of an existing file. 


END-oOf-FILE is determined by either the 
last extent specified or by an end-of- 
file record on the DASD. 


Normal END-of-FILE processing takes 
place. 


Refer: Supervisor and I/O Macros 
C-24-5037-5 page 25 
DASD STANDARD LABELS 


DOS/360 ROUTINE TO CALL SORT FROM COBOL 


D 

This field contribution has not been 
submitted to any formal IBM test. 
Potential users should evaluate its 
usefulness in their own environment prior 
to implementation, 


Using an assembly language subroutine, 
it is possible to gain access to the 
sorting capability of Sort 483 during 
the execution of a program written in 
COBOL D. | 


Exhibit 1 shows the COBOL statements 
necessary to exit to the assembly language 
program which calls the root phase of 

the sort program. ‘ERROR=<BYTE' is a one 
position field in the COBOL program which 
will contain a '1' if an error has 
occurred during sorting. The other 
parameters contain information which is 
used by the sort program, 


The assembly language program, shown in 
Exhibit 2, first saves the base registers 
from the calling COBOL program. The 

sort parameters, passed from the COBOL 
program, are then initialized for the 
sort program. Next the address at which 
the sort is to be loaded is placed in 
register zero. This address must be on 

a double-word boundary above the problem 
program area. A code, which indicates 
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the successful completion of the sort 
program, is placed in 'RETURN'. A code 
of zero indicates successful completion 
of the sort. 


The routine was tested on a 64K Model 30 
using DOS Release 19, 
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Note that address constants of zero are 
set up for parameters not required or 
where default parameters are used. Also, 
there will be a possible degradation in 
the sort time due to loss of core 


depending on the size of the COBOL 


program, 


DOS/360 ROUTINE TO CALL SORT FROM COBOL D 


LINE NO. SEQ. NO. SGURCE STATEMENT 
217 110030 ENTER LINKAGE. 
218 110940 CALL 'GETDATE* USING HEAD-DATE. 
219 110050 ENTER COBOL. 
220 110060 ENTER LINKAGE. 
221 110061 CALL *"GETUPSI® USING UPSI-BYTE. 
222 110062 ENTER COBOL. | 
223 110063 IF UPSI-BYTE = *1L0000000' GO TOD ENTER-LINKAGE. 
224 110064 IF UPSI-BYTE = 01000000 GO TO START-PART-2. 
S$ 225 110020 START. OPEN INPUT INV LOT CUTPUT OUT-FILE. 
226 110070 READ-INV-MSTR. 
227 110080 READ INV AT END GO TG END-PART-1. 
228 110090 IF INV-LCT-NO = 99999 GO TC END-PART-1. 
229 110100 MOVE O TO INDEX. 
230 110110 IF INV-IS-DELETED GG TG READ-INV-MSTR. 
231 110120 MOVE SPACES TO SORT-FILE. 
232 110130 MOVE INV-LOT-NO TC SYM-KEY S-LOT. 
233 110140 TEST-ROLL. 
234 110155 ADD 1 TO INDEX. 
§ 235 110150 IF INDEX = 19 GO TO READ-INV-MSTR. 
236 1191 6C IF INV-ROLL-NC (INDEX) = SPACES 
237 110170 GO TC TEST-ROLL. 
238 110175 IF LOT-KEY = SYM-KEY NEXT SENTENCE ELSE 
239 110180 READ LOT INVALID KEY MOVE SPACES TO LOT-HISTORY 
240 110190 MOVE SYM-KEY TO LCT-KEY MOVE ZEROS TO TYPE WIDTH. 
241 120020 MOVE INV-LOT-NO TC S-LCT. 
242 120030 MOVE WIOTH TO S-wIDTH. 
243 120040 MOVE TYPE TO S-TYPE. 
244 120050 MOVE INV-ROLL-NO (INDEX) TO S-ROLL. 
245 120060 MOVE INV-YARDS-PER-ROLL (INDEX) TO S~-YARDS. 
246 120070 MOVE DATE-LOT TC S-DATE. 
247 120089 MOVE SUPPLIER TC S-SUPPL. 
248 120090 MOVE L-FIBER TC S-FIBER. 
249 120190 MOVE L-PRINT TO SPRINT. 
250 120110 MOVE L-COLOR TO S-COLOR. 
251 120120 MOVE STYLE TO S-STYLE. 
252 120130 WRITE SORT-FILE. 
253 120140 GO TO TEST-ROLL. 
254 12015C END-PART-1. 
255 120160 CLOSE INV LOT OUT-FILE. 
256 120165 ENTER-LINKAGE. 
257 120170 ENTER LINKAGE. | 
258 120180 CALL *BMCS$SORT*' USING ERROR-BYTE SORT-CARD RCD-CARD 
2o9 120190 INPF-CARD OUTF-CARD. 
260 120200 ENTER COBOL. 
261 120210 IF ERROR-BYTE = *1* 
262 120220 DISPLAY *SORT ERROR -RESTART JOB 
263 12023¢ STOP RUN. 
264 130010 START-PART-2. 
265 130020 OPEN INPUT QUT-FILE QUTPUT RPT. 
266 1300239 PERFORM HEADING—-RTN. 
267 130040 kEAD-SORT-FILE. 
268 130050 READ QUT-FILE AT END GO TO EQJ. 
269 130060 ON 1 MOVE S-KEY TC HOLD-KEY. 
270 130065 FIN-TOT. 


EXHIBIT 1 


65 RETURN CC Heo? 
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DOS/360 ROUTINE TO CALL SORT FROM COBOL D 


IMT SOURCE STATEMENT 5 = 


1 BEGIN START O 
2 ENTRY SMC$SORT | 


3 USING *55 
4 BMCSSORT SAVE (14,12) 
5+* 360N-CL-453 SAVE CHANGE LEVEL 3-0 #2 — 
GtBMCSSCRT STM = 1491251244% (1442-(14421/ 16169013) 
7 LR 5,15 ee 
8 Se ST 13,813 
9 to 2,0Ti) ADDRESS OF ERROR BYTE 
10 : 3041) AODRESS OF SORT CARD 
lL a 4381) ALORESS OF RECORD & CENGTH CARD 
120 i 691241) ADDRESS UF ila CARD 
13 bt Fe 16M) ~——COAAORRESS OF : 
14 : MVC SORT,0(3) MOVE SORT CARD 
15 “MVE RCEO,0T4) MOVE RECORD € LENGTH CARD 
16 | MYC INPFL,0(6) MOVE INPUT SIZE CARD 
“VITO VE COOUTFLZOCT)) =«60MOVE OU 
18 —— CG&MRG 
19+#* 360N-CL-453 COMRG CHANGE LEVEL 3-0 
20+ Ut 1120 
21+ ~SvC 33 eee ee 
22 L 023601) LUAO DOUBLE WORD BOUNDARY 
“23. © ©6§6§@”—O 9 BINFo6 ~—~—”—:C ABOVE PROBLY A 
24 A 0»8INOGNE AREA INTO RO 
25  — tA L1,=CLO'SORT® LOAD ADDRESS OF SORT INTO RI 
26 - SVC 4 
soo oo sci pee net, se Wo jodenal ous 
28 LA 1, PARAM 
55 | A aeSAVARER OO 
30 MVC Ohe2)eSPACE INITIALIZE ERRUR-BYTE IN COBOL PROGRAM 
31 BALR 14,15 ~ BRANGH TO SORT PROGRAM °°” © © © | 
320 L 13,Ri3 Co 
33 CLC = RETURN(.2),.=H'O* TEST FOR SORT ERROR 
34 BE RETURNS 
35 PVC 0492), 0NE SET ERROR INDICATOR IN COBOL PROGRAK ~ 


36 RETURN2 RETURN (24912) 
37+ 360N-CL-453 RETURN CHANGE LEVEL 3-0 
38#RETURN2 LM L4elds L2tee( 14e2—-(14429/ 16% 169013) 


39+ GR 14 

40 PARAM CC ACSORTD 

7 OC ARCO) DOS/360 MULTIPROGRAMMING 1052 CONTENTION 
Ps se core This field contribution has not been 

44 “ne ato)” submitted to any formal IBM test. 

45 CO.CC) Potential users should evaluate its 
“46..~—~CSO—CO@SOCOtAOD usefulness in their own environment prior 
aT oC AW) to implementation. 

48 pc AO) OB : 

49 oC ACRETURN) Certain operator messages issued on the 
50 SORT bc CLl40" * 1052 and requiring a reply can "hang up" 

gttcls “aeeenie! Tet at eee other partitions waiting to use the 

51 RCD a CL72e * typewriter. A possible solution to this 
ec uo eee problem is to issue the message and then 


place the partition in the wait state. 
At eat When the operator is ready to respond 
to the message, he presses the console 


54 SAVAREA US 90 


56 KL3 ee Sear — interrupt key, which gives control to 

S7 BINF | ce ye a STXIT OC routine. While one partition 
ope ON Be eR eas, ce is "waiting", other partitions can be 

Oe x ogee oo ckae t using the 1052, 

61 LUT CRG 

62 — =CL6"SORT® 

63 oo =zH*O* 

64 END . . 


EXHIBIT 2 
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This technique will work for program 
messages (e.g., MSG or TYPE macros) but 
not for DOS operator messages. 


Example: 


MSG FORM 
WAIT DUMMYCCB 


-request form change 

-put partition in wait 
state 

-processing resumes 
here after EXIT OC 
“turn off traffic bit 
for next wait 


NI DUMMYCCB+2, 
g continue 


When the operator changes forms he presses 
the interrupt key on the console to get 
to a STXIT operator communication routine. 


STXIT OC, RESET 
RESET OI DUMMYCCB+2, -set on traffic bit 
x'80' 

EXIT OC -processing continues 
at first instruction 
after the wait 

DUMMYCCB CCB SYSLOG, DUMMYCCW,X'#P 96" 
DUMMYCCW CCW X'03° FF, x" 2B" 51 


This technique has been implemented 
under DOS Release 19. 


DOS/360 2780 FORMS JAMS 


This field contribution has not been 
submitted to any formal IBM test. 
Potential users should evaluate its 
usefulness in their own environment prior 
to implementation. 


There has been some confusion on how to 
handle forms jams and forms realignment 
during transmission from CPU to 2780 on 

a switched line. It is desirable to 

keep the line open for a time long enough 
to allow the operator to recover from 
printer problems but still not to tie 

up the line in disaster restart 
situations. 


The 2780 sends an EOT when the printer 
stops because of a jam or operator 
intevention. Upon receiving the EOT, 
BTAM types '4B37I EOT RESPN‘' upon the 
console and posts a X'41' completion 
code with byte 24 set to X'40'. At this 
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time the program can write ENQ sequences 
until the printer becomes ready or until 
a predetermined number of ENQ's are sent. 
The 2780 will answer the Write Inquiry 
Command with NAK's until the printer is 
readied. Five seconds elapse during 
this exchange. Therefore, for example, 
counting twelve Write Inquiry's will 
require one minute, usually time enough 
for the operator to recover from printer 
intervention situations. Receipt of NAK 
causes BTAM to post X'01' in byte 29 of 
DECB, 


The coding example in Exhibit 1 shows 

an approach to the problem. This program 
reads cards and sends them unblocked to 

a 2780. When the EOT is received a user 
error counter is reset and a branch is 
NO-OPed to cause a return branch to the 
Write Initial instead of a Write Continue. 
As the NAK's are received they are 
counted. After twelve, the program 
writes a message to the console operator 
enabling him to speak to the 2780 operator 
at the remote location. 


There are other ways to handle printer 
problems, but this solution has the 
advantage of causing only one BTAM error 
message to be printed on the console and 
provides program controlled recovery. 


This program was written and tested by 
the contributer using DOS Release 20, 
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ie eas DOS/360 FORMS JAMS 
// EXEC ASSEMBLY 


PRINT NOGEN 


START START 0 
BALR 10,0 
USING *,10 
GO OPEN LIN2780,CARD 
GET CARD | | 
WRITE WRITE DECB2,TI,LIN2780,FILL»84,DIAL,0,MFHE WRITE INITIAL 
JMNA SWITCH+1,X'FO! | RESET ERROR SWITCH 
LTR 15915 INSURE [/0 STARTED 
BNE DUMP TF NOT GO TQ END JOB 
BE WAIT WATT FOR, COMPLETE 


RETURN GET CARD 
WRITE DECB2,TT,LIN2780,FILL»84,MFHE WRITE CONTINUE 
TEST LTR 15,15 | 
BNE DUMP 


THIS IS THE COMMON ERROR CHECKING ROUTINE 


WAIT WAIT ECB=DECB2 COMMON WAIT ROUTINE 
ERRCHK CLI DECB2,X'7F! — . GOOD RETURN CODE 

BE SWITCH YES 

Cit DECB2,X'41! IO ERROR 

BE BITTEST YES 

B DUMP | GO TO OTHER CHECKS 
BITTEST TM DECB2+24,X'40! EOT RECEIVED 

BZ NAKTEST | | NO- 

MVC CTR,=PL2'08 YES— RESET ERROR CTR 

B WRITINQ GO TO WRITE INQ 
NAKTEST TM DECB2+29,X'O1! NAK RECEIVED 

BZ DUMP NO-GO TO OTHER CHECKS 

AP CTR,=PLI'1! ADD ONE TO ERROR CTR 

“€P CT Re =PL2' 12° . 12 TIMES (60 SEC) 

BE CONSWT YES-WRITE TO OPERATOR 
WRITINO WRITE DECB2,TQ,LIN2780,y_,LIST,MFHE WRITE INQUIRY 


LTR 15,15 
BNE DUMP 


MV I SWITCH+1,X'0O0O! SET SWITCH TO GO TO WRITE IWIT 
2 gui WATT GO TO WAIT 
SWITCH B RETURN NORMALLY POINTS TO WRITE CONTINUE 
* BUT IS NO-OP DURING ERROR RECOVERY . 
B WRITET WILL GO TO WRITE INITIAL ON ERROR RECOVERY 
CONS WT PUT CONSUL E WRITE ERROR MESSAGE 
K | FURTHER OPERATOR OPTIONS COULD BE INSERTED HERE 
DUMP DUMP COMMON TERMINATE ROUTINE 
* FURTHER ERROR CHECKING COULD BE DONE AT THIS POINT 
CLOSE WRITE DECR2,TDgMFHE 
CLOSE LIN2780,CARD 
EQJ | 
CTR DC BPL2h0" ERROR COUNTER 
List | DG A(CARDIN, 80) LIST FOR WRITE INO 
LIN2 780 DTFBT LINELST=(010),CU=2701,DEVICE=2780,FEATURE=(BSC,SLV)> X 
MODELST=(4),CTLCHAR=E8CDIC,MODNAME=DM,CONFIG=PPT 
DTAL DFTRMLST DIALST,0 
READ DECB2 9TTylLIN2780 99999 MFEL 
CARD DNTFCD ENFADDR=CLOSE,INDAREAL=CARDIN,«DEVADDR=SYSO09 
CONSOLE DTFCN IQARFAL=CONSAREFA, DEVADDR=SYSLOG,BLKSIZE=31 
CONSAREA DC Ci! PRINTER DOW AP REMOTE LOCA LEON" 
ae ee DC RHOCZetE es SEX: ESC. SPzZ 
CARDIN DC he ~t 
Be K'O3" 
NC LOOCL4a! A! 
MSG UG, “OC VENTER ERR. 4 
DM BTriOD SWHITCH=YES,BSCHYES 


EN SCART 
/ 


EXHIBIT 1 
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TYPE III AND IV PROGRAMS 


Type III programs are those which have been submitted by one or more IBM employees. 
They are programs of general interest submitted for unrestricted distribution. 

They have met a basic set of programming and documentation standards but are not 
program tested in any formal fashion by the IBM Corporation. These programs were 
available for delivery from the Program Information Department prior to June 23, 
1969, 


Type IV programs are those contributed for unrestricted distribution by one or 
more authors of which at least one is an employee of an IBM customer. They are 
made available by IBM essentially in the author's original form, but conform to 
published Type IV standards. IBM exercises no control over the technical content 
of the documentation but merely assures that the quality of reproduction is 
satisfactory. Type IV programs have not been tested by IBM. 


IBM makes no warranty, expressed or implied, as to the documentation, function 
or performance of these programs, and the user is expected to make the final 
evaluation as to their usefulness in his own environment, 


won mane +--+ - = == TYPE III REVISION -----------<----------- ee = 


360D-03.3.004 PL/I - FORMAC SYMBOLIC MATHEMATICS INTERPRETER. Material Revised: 
Documentation, Machine Readable and Catalog Abstract. Date Revised: 9/17/69, 


wenn nn enn = TYPE IV REVISION --------------------------- === 


1401-10.3.072 FINANCIAL AID INFORMATION SYSTEM (LOAN SUBSYSTEM). Material 
Revised: Documentation and Machine Readable. Date Revised: 9/19/69. 


won na =~ + + +--+ = TYPE IV REVISION --------------------------------- 


1401-10.3.073 FINANCIAL AID INFORMATION SYSTEM (STUDENT AID SUBSYSTEM). Material 
Revised: Documentation and Machine Readable. Date Revised: 9/19/69. 


one -- === ---- - = +--+ ---- +--+ -- NEW TYPE IV PROGRAM ~------------------------------- 
NON-LINEAR LEAST-SQUARES CURVE-FITTING PROGRAM 


DESCRIPTION - This computer program allows the user to estimate the coefficients 
of a non-linear equation ; 3 

equation such as Y = A / (x +B) and Y = Ax + C -- equations that are non-linear 
in the coefficients. An iterative technique is used; the estimates at each 
iteration are obtained by Marquardt's Maximum Neighborhood Method which combines 
the Gauss (Taylor Series) Method and the Method of Steepest Decent. 


Since numerous forms of equations can he used, the user must specify the form by 
providing a subroutine to compute the values of the equation's coefficients. [In 
addition, the user must provide a control card, a format card for reading data 

and estimates of the starting values of the coefficients. If desired, information 
cards and coefficient name cards can be read for display on the printout. Such 
displays are helpful to record the form of equation, the purpose of the run and 
any additional information that may help identify the printout in the future. 
Identification of the coefficients by name is particularly helpful when working 
with large or complex equations. 


The output of the program is a printed report which includes a description of the 
problem, the starting values of the coefficients, the size of the incremental 

steps, a summary of each iteration and a summary of the final fit (in terms simular 
to those in the Linear Least-Squares Curve-Fitting Program). The statistics 
calculated include the number of ohservations, the number of coefficients, the 
residual degrees of freedom, the maximum and minimum value of the dependent variable 
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as well as its range, the standard error and t-value for each coefficient, the 
residual sum of squares, the residual mean square and the residual root mean square. 


Listings are made of the observed and fitted values of the dependent variable-- 
both in the sequence in which observations were given to the computer, and in the 
order of the magnitude of the differences between the observed and fitted values. 
Plots are made to indicate (1) whether these differences are normally distributed 
and (2) how they are distributed over all the fitted values of the dependent 
variable. 


Provisions are made to run multiple problems as well as different equations using 
the same data. The program as dimensioned (256K) will handle up to 80 variables 
and 170 observations. Information is given in the program listings on which 
dimensions to change in order to reduce the overall dimensions or to increase 
either the number of variables or the number of observations the program will 
handle. 
PROGRAMMING SYSTEMS - Written in OS FORTRAN IV H level. 
MINIMUM SYSTEM REQUIREMENTS - A FORTRAN IV compiler, a card reader and a printer.. 
BASIC PROGRAM PACKAGE 

DOCUMENTATION - Write-up. 

MACHINE READABLE =- Source code and sample problem. 
OPTIONAL PROGRAM PACKAGE - None. 
ORDERING INFORMATION: PROGRAM NUMBER 360D136007 


PROGRAM NUMBER DISTRIBUTION MEDIUM USER VOLUME 


EXTENSION TYPE CODE REQUIREMENT 
BASIC none ~—~«~»DTR*~=———=<C—S~Ss—=<CS~ststsSsP 
OPTIONAL none none none 
wee een nnn nn ee ee NEW TYPE IV PROGRAM ---cennonn nnn nnn nnn nnn eee e eee 


LINEAR LEAST=SQUARES CURVE FITTING PROGRAM 


DESCRIPTION - This computer program allows the user to transform data into an 
appropriate form, fits specified equations to the transformed data by linear least- 
squares, and provides both statistics and plots to aid in evaluating the fit. 

A Cp-statistic search technique determines if smaller sets of the variables will 
represent the data equally well. 


The transformations which are available to the user include reciprocals, sums, 
differences, products, quotients, logarithms, and exponentials. Such 
transformations are used to convert the observed data to more convenient or more 
rational units to add terms that are functions of the data-variables, to stabilize 
variance, and to omit variables. 


In addition to the usual statistics, the program calculates the maximum and minimum 
value of each variable as well as its range, the relative influence of each variable 
and the weighted squared standardized distance of each observation from the centroid 
of all observations. Near neighbors are used to estimate the standard deviation 

of the dependent variable: A table of component effect of each variable on the 
fitted value of each observation shows which observations were influential in 
estimating the value of individual coefficients. 


Listings are made of the observed and fitted values of the dependent variable-- 
both in the sequence in which observations were given to the computer, and in the 
order of the magnitude of the differences between the observed and fitted values. 
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Plots are made to indicate (1) whether these differences are normally distributed 
and (2) how they are distributed over all the fitted values of the dependent 
variable. 


The program, as dimensioned, will handle up to 80 variables and 1000 observations. 
Multiple dependent variables are fitted one at a time and multiple forms of 
specified linear equations can he fitted with one data loading. 


Information is given within the program on which dimensions to change in order 
to reduce the overall dimensions of the program or to increase either the number 
of variables or the number of observations the program will handle. The current 
overall dimensions of the program is 256K. 

PROGRAMMING SYSTEMS - Written in OS FORTRAN IV H level. 


MINIMUM SYSTEM REQUIREMENTS - The machine requirements are a FORTRAN IV compiler, 
a card reader, four scratch files and a printer. 


BASIC PROGRAM PACKAGE 

DOCUMENTATION - Write-up. 

MACHINE READABLE =- Source code and sample problem. 
OPTIONAL PROGRAM PACKAGE =- None. 
ORDERING INFORMATION: PROGRAM NUMBER 360D136008 


PROGRAM NUMBER DISTRIBUTION MEDIUM USER VOLUME 


EXTENSION TYPE CODE REQUIREMENT 
BASIC none pret t—(‘i‘i OC” none 
OPTIONAL none none none 
Pee a ae ne ae a cee ee ee ee en ome an om oe ee ee oe we ew mm ee me NEW TYPE IV PROGRAM eee ere e rere coer ere meee eerces= 


TAPE FILE EXTENSION MACRO - INSTRUCTION 
DESCRIPTION - This macro allows the user to add records to an existing labeled 
tape file under DOS, eliminating the need for copying a file when making additions 
to it. 
PROGRAMMING SYSTEMS ~ Written in Assembly language; operates under DOS/360. 
MINIMUM SYSTEM REQUIREMENTS - Same as those required for DOS. 
BASIC PROGRAM PACKAGE 

DOCUMENTATION - Write-up. 

MACHINE READABLE = Source code. 
OPTIONAL PROGRAM PACKAGE - None. 
ORDERING INFORMATION: PROGRAM NUMBER 360D003029 


PROGRAM NUMBER DISTRIBUTION MEDIUM USER VOLUME 


EXTENSION TYPE CODE REQUIREMENT 
BASIC none prRt==—s—=<“<it*‘ié‘CUS*~<“‘«*~*~*s«SP 
OPTIONAL none none none 
Se ee Oe ee me Se me a ene a me ee me cn ee oe NEW TYPE IV PROGRAM cere renee cree eee eer ee eer ram 


44PS LOADER 


10 


October 10, 1969 IBM INSTALLATION NEWSLETTER Issue No. 69-20 


DESCRIPTION ~- The 44PS Loader is a system routine designed to provide many features 
of the standard 44PS Linkage Editor while providing considerable performance 
improvements for the Model 44 FORTRAN batch processing environment, The loader 

can be loaded from the phase library (SDSABS) by using an EXEC card. Various 
execution time options are provided, including the ability to specify private 
relocatable libraries on both tape and disk. This permits separate libraries for 
each application requiring special application-oriented modules. 


PROGRAMMING SYSTEMS - The program is written in Assembly Language and has been 
tested with 44PS Versions 3 and 4; however, the program should be release 
independent. 


MINIMUM SYSTEM REQUIREMENTS - The required machine configuration is identical to 
that for 44Ps, | 


BASIC PROGRAM PACKAGE 
DOCUMENTATION - Write-up. 
MACHINE READABLE - Object code, source code and 
sample problem. 
OPTIONAL PROGRAM PACKAGE = None. 
ORDERING INFORMATION: PROGRAM NUMBER 360D055001 


PROGRAM NUMBER DISTRIBUTION MEDIUM USER VOLUME 


EXTENSION TYPE CODE REQUIREMENT 

BASIC none DTR 9/800 28 none 

DTR 9/1600 29 none 

DTR 7DC/800 26 none 

OPTIONAL none none none 
oP ee Ge DD > ED ee oD OD OD ED Oe Om Ee OD Om Om am OF ED OF om OD om > om oF Oo NEW TYPE IV PROGRA PED FF SF GF GD GD SF GF GR GF GP OF GF GF EF GE EE FF OF Gm On © FE NE FE 


UDAC 1130 DSORT 


DESCRIPTION - UDAC 1130 DSORT is a general-purpose program to sort FORTRAN= 
compatibile disk files. Emphasis is placed on generality of application and speed 
of execution. DSORT is controlled by 3-4 sort control cards which describe files 
and records, sorting keys, and collating sequence, 


PROGRAMMING SYSTEMS - DSORT operates under the IBM 1130 Disk Monitor System Version 
2 and was written in 1130 AL. 


MINIMUM SYSTEM REQUIREMENTS - Those required by the 1130 Disk Monitor System 
(Version 2). (DSORT can use 1-3 disk drives for data storage). 


BASIC PROGRAM PACKAGE 
DOCUMENTATION — Write-up. 
MACHINE READABLE — Source code, 
OPTIONAL PROGRAM PACKAGE = None. 
ORDERING INFORMATION: PROGRAM NUMBER 1130061006 


PROGRAM NUMBER DISTRIBUTION MEDIUM USER VOLUME 


EXTENSION TYPE CODE REQUIREMENT 
BASIC none CARDS 15 none 
OPTIONAL none none none 


ch aw Ce can aa” tied te CED Gan CD Gen ED Ga” HED OE GoD GED ome OEP OED aN aD Om ED ae oe om OF oe oe NEW TYPE IV PROGRAM ER EE FR Gn Em ee FEF SE FF ON Oe Ge 8 OF EF Ore BE EF FE GE REF Cw OF EF GEE OF GF 
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PURDUE SUPERMARKET MANAGEMENT GAME, 1969 


DESCRIPTION - This program simulates the market environment in which supermarkets 
compete for sales. From two to five teams (players) can compete directly in a 
market area (set). Each team makes 20 decisions which would normally be made or 
reviewed weekly. The game administrator can influence the market environment. 

The supermarket is departmentalized for produce, meat, groceries and dairy products. 
The game can be used to teach business planning techniques, economic and accounting 
principles or characteristics of the firm and the industry. 


PROGRAMMING SYSTEMS - This game is written in FORTRAN IV and contains one main 
and six subroutines. Read and write statements have been written in variable form 
for easy adaptation to other computer equipment. 


MINIMUM SYSTEM REQUIREMENTS - An 1130 8K Disk System with a 1442 Card Read/Punch 
and a 1403 Printer. Unused core is 792 (HEX) words. 


BASIC PROGRAM PACKAGE 

DOCUMENTATION - Write-up. 

MACHINE READABLE =- Source code and sample problem. 
OPTIONAL PROGRAM PACKAGE =- None. 
ORDERING INFORMATION: PROGRAM NUMBER 1130155002 


PROGRAM NUMBER DISTRIBUTION MEDIUM USER VOLUME 


EXTENSION TYPE CODE REQUIREMENT 
BASIC none CARDS =Ssté—i‘éaTDS~SO~*~*~*~*~;*CO 
OPTIONAL none none none 
won a ee - - - = - - - - - - - -- = - NEW TYPE IV PROGRAM q---<----<---- <2 - eee eee ene ne 


SIMPLIFIED GAUSS-JORDAN METHOD OF MATRIX INVERSION 


DESCRIPTION - The purpose of this FORTRAN IV - written subroutine is the calculation 
of the inverse of any nonsingular square matrix. This program is especially 
valuable in many statistical and operations research problems which require the 
matrix inverse. The inherent value of this routine as compared to the standard 
Gauss-Jordan elimination technique is its speed of execution. One limiting 
condition is the failure of the routine of EACH AND EVERY ELEMENT of the matrix 

to be inverted contains the numeric value of zero. 


PROGRAMMING SYSTEMS - Written in FORTRAN IV. 


MINIMUM SYSTEM REQUIREMENTS - This subroutine will function properly under any 
operating system which supports a FORTRAN IV compiler. 


BASIC PROGRAM PACKAGE 


DOCUMENTATION - Write-up. 
MACHINE READABLE =— Source code. 


OPTIONAL PROGRAM PACKAGE =- None. 
ORDERING INFORMATION: PROGRAM NUMBER 1130450001 


PROGRAM NUMBER DISTRIBUTION MEDIUM USER VOLUME 


EXTENSION TYPE CODE REQUIREMENT 
BASIC none CARDS 15 none 
OPTIONAL none none none 
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<a aay A SH SD GENE MED GY SED GED ND GY GS GED A GED GD GoD SEED SEND GOED GERD GoD GES aD Gam ED OE eee Ome NEW TYPE IV PROGRAM eee eee eee eee meee eee mame 
FUNCTION SF FOR ANY 1500 COURSEWRITER II CAI SYSTEM 


DESCRIPTION - The SF function is a coursewriter function having ten sub-functions 
(capabilities). It can: (0) Load the contents of a return register into a buffer; 
(1) Put the month and day into 2 counters; (2) Store counter values in a buffer; 
(3) Put the clock time in tenth seconds into a counter; (4) Initialize a range 

of counters; (5) Initialize a range of switches; (6) Load the contents of a buffer 
into a return register; (7) Generate random numbers; (8) Put the time of day in 
tenth minutes into a counter; (9) Move the contents of one return register into 
another. 


PROGRAMMING SYSTEMS - Written in 1130 Assembler language; operates under 1500 O/S, 
MINIMUM SYSTEM REQUIREMENTS - Those required by 1500 O/S. 
BASIC PROGRAM PACKAGE 
DOCUMENTATION - Write-up. 
MACHINE READABLE - Object code, 
OPTIONAL PROGRAM PACKAGE 
DOCUMENTATION = None. 
MACHINE READABLE =- Source code, 
ORDERING INFORMATION: PROGRAM NUMBER 1500990001 
USER VOLUME 


PROGRAM NUMBER DISTRIBUTION MEDIUM 


EXTENSION TYPE CODE REQUIREMENT 
BASIC none CARDS 15 none 
OPTIONAL none CARDS 15 none 


ACCUMULATIVE LIST OF NEW TYPE IIT AND IV PROGRAMS 


—_a—aEe aan lee eee 


Following is an accumulative list of new Type III and Type IV programs which have 
been made available since the last edition of the Catalogs of Programs or their 


Supplements. Abstracts describing these programs can be found in the Installation 
Newsletter Issue No. shown below. 

Program Program Title Newsletter 
Number Issue No, 


360D-00.0.017 SPOOL, A PACKAGE TO CONVERT CURRENT OR FUTURE 


PRINTED REPORTS TO MAGNETIC TAPE FOR FOREGROUND OR 


BACKGROUND PRINTING LATER 69-09 
360D-00.0.020 2495 UTILITY PROGRAM FOR 0S/360 69-11 
360D-00.0.022 PUFER = PUNCH FEED READ UTILITY CARD TO TAPE 69—15 
360D-00. 1.021 S/360 GENERALIZED EXTRACTION AND MATCH PROGRAM 69-07 
360D-00.1.022 NYU PRINT-UTILITY PROGRAM 69-07 
360D-00. 2.006 OS SYSTEM/360 FLOWCHART (OS FLOW): DOS FLOWCHART 

UNDER OS/360 69-03 
360D-00.3.025 S$/360 DOS TAPE TO PRINTER/PUNCH SPOOLING SYSTEM 69-08 
360D-00.3.026 FORTRAN TAPE DISK READ WRITE SUBROUTINES 69-16 
360D-00.3.027 SEVEN TRACK OCTAL TAPE DUMP 69-11 
360D-00.3.028 1400 INPUT/OUTPUT STANDARD LABEL PROCESSING EXITS 

FOR 483 DISK & TAPE SORT 69-19 
360D-00.3.029 TAPE FILE EXTENSION MACRO - INSTRUCTION 69-20 
360D-00.4.015 69-09 


DAP DIRECT ACCESS PATCH PROGRAM 
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360D-00.4.018 


360D-00.5.005 
360D-00.5.006 
360D-00.6.011 


360D-01.0.009 


360D-01.1.006 
360D-01.3.002 


360D-01.4.010 
360D-03.0.007 
360D-03.0.008 
360D-03.0.010 
360D-03.0.012 
360D-03.1.014 


360D-03.2.011 
360D-03.2.013 
360D-03.2.014 
360D-03.2.015 
360D-03.3.008 


360D-03.3.009 
360D-03.3.010 
360D-03.3.011 
360D-03.4.026 
360D-03.4.027 
360D-03.4.028 
360D-03.4.031 
360D-03.6.009 


360D—-03.6.010 
360D-03.6.012 


360D-03.6.013 
360D-03.6.017 
360D-03.6.018 
360D-03.7.025 
360D-03.7.026 


360D-03.7.027 


360D-03.7.028 
360D-03.7.031 


360D-03.8.013 
360D-03.8.015 


360D-04.0.008 
360D-04.0.009 
360D-04.1.010 
360D-04.1.011 
360D-04.2.007 


360D-04.6.001 
360D=-05.1.016 
360D-05.2.010 


360D-05.2.011 
360D-05.5.001 
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IBM SYSTEM/360 INDEXED SEQUENTIAL DASD TO PRINT 
UTILITY 

FORMATTED LISTING OF VTOC FOR 0S/360 

SHAREDISK 

A HYPERTEXT EDITING SYSTEM FOR THE S/360 USING 
THE 2250 DISPLAY 

OS/360 DATE AND TIME SUBROUTINE (DT01) WITH 
CONVERSION FROM JULIAN DATE TO GREGORIAN 

COMPILE AND GO FOR THE OS 360, PL/I (F) COMPILER 
1287 CHECK DIGIT AND NUMERIC RECONSTRUCTION 
MACROS 

SYSGEN AIDF: DIRFCTOPRY DUMP 

S/360 MOD 44 MULTIPROGRAMMING SYSTEM 

DOS IOCS LOGIC MODULE SOURCE STATEMENT GENERATOR 
STENO TO ENGLISH TRANSLATION 

PARS CONTROL (ACP) 


Issue No, 


69=17 
69-08 
69~=11 


69-18 


69-09 
69-06 


69—11 
69-16 
69-08 
69-08 
69-17 
69-13 


FAST ASSEMBLER - INTERPRETER FOR SYSTEM/360 ASSEMBLER 


LANGUAGE PROGRAMS (VERSION 1) 

0S/360 PL360 COMPILER 

BASIC COMPILER UNDER TSS/360 

THE SIMSCRIPT II PROGRAMMING LANGUAGE 

THE XPL COMPILER GENERATOR SYSTEM 

COURSE III/OS A REAL-TIME COMPUTER ASSISTED 
INSTRUCTIONAL SYSTEM 

1404 IOCS MACROS FOR DOS/TOS 

SNAP PROCESS OR (PROTOTYPE) 

COMIT/360 

BSAM SUBROUTINE PACKAGE FOR OS 360, VERSION I 
FORTRAN RANDOM I/O SUBROUTINE 

2260 LOCAL TERMINAL USERS SYSTEM (LOTUS) 
KNUTH PROPOSAL INPUT/OUTPUT PACKAGF (KIOP) 
O0S/360 COBOL CROSS-REFERENCE AND RESEQUFENCING 
PROGRAM 

JOB STREAM MANAGER OS/MVT 


PROGRAM FOR THE CREATION OF CROSS REFERENCE TABLES, 


FROM S/360 RPG SOURCE PROGRAMS, FOR INDICATORS AND 
FIELD NAMES 

SYSTEM MANAGEMENT ROUTINES OS/MVT 

PL/60 

NEATER: A PL/I SOURCE STATEMENT REFORMATTER 
CARRIER RETURN/LINE FFED ON THE 1052/53, MISLCRLF 
DCLC A DOS/TOS/OS ASSFMRBLFR MACRO TO DEFINE A 
LOWER-CASE CHARACTER CONSTANT - DEFINF-CONSTANT- 
LOWER-CASE 

EDIT MACRO FOR DOS, TOS, OR OS ASSEMBLY LANGUAGE, 
S/360 

DOS MACRO FOR TYPEWRITER INPUT/OUTPUT 

DOS MACROS TO DUMP ISAM FILES FROM 2311 OR 2314 
TO TAPE AND RESTORE FROM TAPE TO 2311 OR 2314 
PL/I STRING FUNCTIONS 

A PLAN FOR A LINKED-DIRFECT FILE, WITH OPERATING 
ROUTINES, IN COBOL 

DOS COBOL CROSS REFFRENCER 

PCMSG - PROGRAM CHECK MFSSAGE 

DEBUGGING AID FOR DOS PROGRAM TESTING 

S/360 POST MORTEM DUMP (PCP/MFT) 

PROGRAM TO AID IN OPTIMIZING COMPUTE BOUND JOBS BY 
INDICATING THE MAJOR PROCESSING LOOPS 

A PROGRAM FOR GRAPHIC ON-LINE DEBUGGING ON AN IBM 
2250 DISPLAY 

CONVERSATIONAL REMOTE BATCH ENTRY (CRBE) 
INTERACTIVE APPLICATIONS SUPERVISOR (IAS/360) 
DOS/360 TIME ACCOUNTING SYSTFMS 

44 PS LOADER 


69-14 
69-06 
69-13 
69-16 
69-17 


69-01 
69-09 
69-10 
69=-15 
69-06 
69-03 
69-06 
69=-16 


69-05 
69-03 


69-10 
69-10 
69—15 
69=-17 
69-03 


69-09 


69-07 
69-10 


69=-15 
69-06 


69-13 
69-04 
69-09 
69-04 
69-09 


69-04 


69-08 
69-13 
69-06 
69-10 
69-20 
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360D-06.1.005 
360D-06.3.006 
360D-06.3.007 
360D-06.3.008 
360D-06 .5.006 


360D-06.5.007 


360D-06.7.018 


360D-06.7.019 


360D-06.7.024 
360D-07.6.001 
360D-08.0.003 
360D-10.0.001 


360D-10.0.002 
360D-10.2.004 
360D-10.2.005 
360D-10.2.006 


360D-11.1.023 
360D-12.1.020 
360D-12.2.008 


360D-12.2.009 
360D-13.0.004 
360D-13.0.005 
360D-13.0.006 
360D-13.0.009 
360D-13.1.005 
360D-13.2.003 


360D-13.4.007 


360D-13.6.007 
360D-13.6.008 


360D-16.0.001 


360D-16.2.018 
360D-16.2.019 
360D-16.2.020 
360D-16.2.021 

360D-16.2.022 
360D-16.2.023 
360D-16.2.024 
360D-16.2.025 
360D-16.3.001 


360D-16.4.009 
360D—-16.4.010 
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MARC II SORT PROGRAM 

GENERALIZED TELEPROCESSING PROGRAM FOR SYSTEM/360 
DOS BTAM FOR LEASED LINF KSR 35 TELETYPES 
AUTODIN ACCESS METHOD FOR OS/360 

UNIVAC-1108 TO IBM=360 FLOATING POINT INTERNAL 
CONVERTER ('CVFLO8') 

7090 TO 360 FLOATING POINT INTERNAL CONVERTER 
('CVFL09') 

FORTRAN CHARACTER STRING PACKAGE 

CHARACTER FILTER PL1 

BSEARCH - A RANDOM ACCESS BINARY=-SEFARCH TECHNIQUE 
FOR SEQUENTIAL FILES ON DISK OR DRUM 
KWADF-KEYWORD AS A DICTIONARY ENTRY 

AUTORAF - A SYSTEM FOR BUILDING AND USING RECORD 
ADDRESS FILES FOR DIRECT PROCESSING OF FILES ON 
SYSTEM/360 

GENERATION DATA GROUP (GDG) MODIFICATION 

2741 READ AND WRITE ROUTINE 

WRIMAT MATRIX WRITER 

PROGRAM TO CALCULATE THE AMOUNT OF CPU TIMF 
AVAILABLE IN THE BACKGROUND WHEN RUNNING DOS 
MULTIPROGRAMMING 

FORTRAN ANALYSIS PROGRAM 

HIGH WATER MARK (HWM) 

CORE AND/OR RESOURCE CONFLICT (CRC) NOTIFICATIONS 
NUCLEUS INITIALIZATION PROGRAM (NIP) 
MODIFICATIONS 

DISK RESIDENCE FOR 1410 COMPATIBILITY MODF PROGRAMS 
ON THE IBM S/360 MODEL 40 

PL/I BINARY TO ERCDIC CODF KEFPING FIVE BINARY 
CODED COLUMNS PRINTING RECODED DATA 

CDC - 3800/3300 COBOL TO IBM - S/360 COBOL 
TRANSLATOR 

NCR 315 TRANSLATOR FROM NEAT TO 360 ALP 

GRAPHICS STEPWISE REGRFSSION ROUTINE (BMDGR1) 
NON-LINEAR LEAST SQUARES ON GRAPHICS (BMDGR2) 
TIME SERIFS SPECTRUM ESTIMATION (BMDGT1) 
HISTOGRAM SUBROUTINE 

GENERAL TAXONOMY PROGRAM 
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SELECTED SHORT SUBJECTS 


The purpose of Selected Short Subjects 
is to bring together and highlight 
concise, factual and timely information 
which will indicate that action is to 

be taken by the IBM representative whose 
accounts are affected. 


1. New Telephone Number for INL 

A few back-of-the-envelope calculations 
indicate that my telephone number has 
been printed in the INL no less than 
650,000 times during the past year. 

So now, they tell me, it is time for 

a change. 


Actually, all of the phones in the White 
Plains building shared by DP Technical 
Publications have been switched to the 
more modern IBM Harrison telephone system 
with the (914) 696-1900 exchange. The 
new extension is 3781. However, the 

new exchange is a Centrex system and 

you can call direct by dialing (914) 
696-3781. 


For tie line calls, the number is now 
254-3781. 
| Editor 


DOS/360 PL/I DEVICE INDEPENDENT SYSLST 
LONG FILES 


This contribution has not been submitted 
to any formal IBM test. Potential users 
should evaluate its usefulness in their 
own environment prior to implementation. 
Since this technique may be release 
dependent, it should be used with caution 
in order to avoid difficulty in moving 

to future systems. 


The following modification allows DOS 

PL/I users to assign SYSLST to tape, 

disk, or printer at execution time when 
printing records longer than 120 bytes. 
Normally, if 132 character print records 
are assigned to tape or disk, the carriage 
control character is truncated. The 
modification was tested on Release 20. 


Step 1: Modify DTFDI in the source 
statement library as shown in exhibit 
ie 

Step 2: Assemble and catalog to the 


relocatable library, the coding shown 

in exhibit 2. PL/I generates an appendage 
for every DTF. This appendage controls 
such things as page size, current line, 
etc. If F(133) is specified in the 
ENVIRONMENT statement, then PL/I generates 
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a device dependent DTF. The coding as 
shown will replace the PL/I generated 
DTF at linkage edit time. Please note 
that these appendages can be found in 
the PL/I PLM form number Y33-9010. 

3: When compiling PL/I programs, 

the INCLUDE PRINTR card (shown in exhibit 
3) must come before the EXEC PL/I card 

to insure the placement of the control 
section named PRINTR (from the relocatable 
library) first on SYSLNK. Then at linkage 
edit time, the PRINTR control section 
generated by PL/I is ignored. 


The obvious restriction resulting from 
this modification is the standard file 
names that all programmers would have 

to use in their PL/I source code. 


The procedure for using STREAM files 
is the same except for the DTF appendage 
which must be modified. 


// JOB 

// EXEC MAINT 
UPDATE A.DTFDI 

YREP 0135 


-RCSIZE1 AIF (*&RECSIZE* GT *O* AND 
"§RECSIZE" LT '134*).CALC B4530135 
YREP 0137, 0138 

133 IS ASSUMED.‘ B4530137 
&REC SETA 133 B4530138 
) END 
76 
EXHIBIT 1 


PRINTR START O 

* *¥ 
*DTF APPENDAGE FOR PL/I RECORD OUTPUT*# 
*CAN BE FOUND IN PL/I PLM Y33-9010 * 
* * 


DC X‘A2* OPEN MASK 

DC AL3 (TABAD) TABLE ADDRESS 

DC Xx‘0O1' FLAG BYTE ONE 

DC AL3(0) CHAIN ADDRESS 

DC X*4500°* FLAG BYTE TWO, 
COMM. BYTE 

DC X‘'0085° RECORD LENGTH 133 

DC X*00000000" 

DC A(PBUFF) BUFFER ADDRESS 

DC X‘'0085* REMAINING DATA 

DC H‘'133° DATA LENGTH 

DC H‘O* PAGESIZE 
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DC H‘'O* CURRENT LINE 
TABAD DC OD'‘'O* 
. * 
*END OF DTF APPENDAGE * 
is * 


PRNTR DTFDI DEVADDR=SYSLST, IOAREA1= 
PBUFF, RECSIZE=133 

PBUFF DC CL133° * 
END 

EXHIBIT 2 


4/ JOB TEST PL/I MODIFICATIONS 
4/7 OPTION LINK 
INCLUDE PRINTR 
// EXEC PL/I 
TEST: PROCEDURE OPTIONS (MAIN) ; 
DECLARE PRINTR FILE RECORD OUTPUT 
ENVIRONMENT 
(MEDIUM (SYSLST,1403) F(133) CTLASA); 


END; 


EXHIBIT 3 


INFORMATION ABOUT THE NEWSLETTER 


EVERY SALESMAN AND SYSTEMS ENGINEER 
SHOULD RECEIVE ONE COPY OF THE NEWSLETTER. 
Each FE Branch Manager should receive 
five copies for distribution to Customer 
Engineers. 


The IBM Installation Newsletter is 
distributed only to IBM locations and 

is not available to customers. The 
Newsletter is separated into two parts. 
The first part contains information which 
is intended only for IBM personnel and 
the pages are labeled For IBM Internal 
Use Only. THESE PAGES, OR REPRODUCTIONS 
OF THEM, ARE NOT TO BE GIVEN TO CUSTOMERS. 
However, using your own good judgement, 
you may discuss pertinent information 
from these pages with a customer. The 
second part contains information which 
may be reproduced by the Branch Office 
at their discretion and given to 
customers. These pages are not labeled 
with any restrictive classification. 
Note that when any abstracts for Type 
III and Type IV programs are given to 
the customer, he must be informed that 
the disclaimers for Type III and Type 

IV programs as contained in the 
Newsletter, applies. YOUR 

COOPERATION IN PROPERLY HANDLING 

THE CONTENT OF THE IRM INSTALLATION 
NEWSLETTER IS NECESSARY FOR ITS 
CONTINUED PUBLICATION. 
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Changes to the quantity of the Newsletter 
Shipped are to be made by the Admini- 
stration Manager. He should update and 
send the DP Administration Managers' 
Document Control card (Electro IBM N61508) 
to DP Document Control, DPD BO. 


Direct inquiries concerning the contents 
of this Newsletter to: 


W. F. Malmborg, Editor 

IBM Installation Newsletter 
Dept. 812, DPD HQ 

112 East Post Road 

White Plains, New York 10601 
Telephone 914 696-3781 

Tie Line 254-3781 


NEW PUBLICATIONS ANNOUNCED BY PRLS 


Information is extracted and condensed 
from the weekly PRLs (Publications Release 
Letters) to insure that all Salesmen 

and Systems Engineers are aware of new 

or revised Reference Sources, Marketing 
Publications, and Field Engineering 
Publications. Normally, each issue of 
the Newsletter will contain information 
extracted and condensed from two PRLs, 
one following the other. The information 
will be placed in the Newsletter in its 
Original sequence with no rearrangement 
of form numbers or titles. It is not 
intended to replace existing information 
and distribution sources. You should 

be certain that you are aware of these 
sources. 


Do not use the condensed Newsletter 
information to order publications. 
but not all (for example, some films 
and slide sets) of the items are available 
from Mechanicsburg. To receive the items 
you ‘need without delay, prior to ordering 
check the REQ (Requisition Form) code 

in the “Accumulative Supplement to IBM 
Publications Current Price List (Z20- 
0100)" which is attached to the weekly 
Publications Release Letter (PRL) and 
distributed to your Administration 
Manager. For an explanation of the REQ 
codes and other publications information 
see the first few pages of the “IBM 
Publications Current Price List 2Z220- 
0100". 


Most 


The IBM publications requisition (MO2- 
0618) or ITPS should be used for ordering 
items from the IBM Distribution Center, 
Mechanicsburg, Pa. 


(IBM World Trade Corporation has its 
own distribution center and procedures.) 
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IBM 2803 Tape Control, Model 2 Proposal Insert 

MTSC Output Line Counter 

Layout Information Third Tape MT/SC 

1403 Printer Ribbon - Three Page Foldout 

IBM System/ 3 Card and Disk Systems Component Reference 
Manual 
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tion and Operations Manual Re: H20-0477-1 

TNL to Introduction to S/ 360 Model 6S Multiprocessing 
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TNL to S/ 360 RPG Coding Re: R29-0092 

IBM S/ 360 Model 65 Functional Characteristics Re: A22-6884-3 
IBM S/ 360 Disk Operating System USA Standard COBOL 
Programmer's Guide Re: C28-6398-0 
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7080 DPS Programming Video Course Work Book 

S/ 360 PL/I (F) Coding Workshop Student Materials 

S/ 360 Model 20 PL/I Coding Workshop Education Guide 
7090/94 DPS Programming Video Tape Course Description 


IBM System Measurement Instrument Control Panel Template 
Special Installation Publication 

Graphic Analysis of Three-Dimensional Data System Manual 
Volume 1 Program No, 5734-XX2, Feature Code 8101 
IBM 1130 Charge Materials Allocation Processor System 
Manual Volume 2 Compilation Listings Program No. 
5711-P11 

Service for Consultants TNL - September 69 

402/403 Workshop Video Tape - Card Listing & Addition 
402/403 Workshop Video Tape ~ Subtraction & Selection 
402/403 Workshop Video Tape - Group Indication & 
Counter Coupling 

402/403 Workshop Video Tape - Minor Totals, Total 
Transfer 

402/403 Workshop Video Tape - Field/ Class Selection & 
Summary Punching 
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Introduction to Library Techniques, Reel 2, Part 2 
Introduction to Library Techniques, Reel 3, Part 2 


REFERENCE SOURCES 


DISPOSITION | 


NEW 


Scrap A27-2715-1 

Scrap C20-1706-0 

NEW 

Scrap E20-0198-0 

UES H20-0367-2, N20-1938, N20-2039 


Scrap H20-05 39-0 


NEW 


For IBM Internal Use Only 


69-24 


5, 1905 IBM INSTALLATION NEWSLETTER 


2 No. 69-24 
Deceiver Oo, Issue No 


PRL #46 (Continued) 


GY 26-8027 -0 


IBM 1500 OS Programs PLM TNL to Y26-3728-1 


System Manual - Volume 1 


For IBM Internal Use Only 


NEW 
LYBO-0465 -0 Graphic Analysis of Three-Dimensional Data System Manual NEW 
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S R25=5450-0 Safe Driving Letter NEW 
$S29-=3562-0 Supplement to Student Guide Re: R31-0159-2 NEW 
HV31-0192-0 Data Recorder Self Check Feature Microfiche Card NEW 
SY25-3918-0 5496 Data Recorder Student Quiz #1 NEW 
SY25-3919-0 5496 Data Recorder Student Quiz #2 NEW 
SY25-3920-0 5496 Data Recorder Student Quiz #3 NEW 
HY 26-0704-0 IBM 1500 Instructional System FEMDM FES Re: Y26-4142-0 NEW 
HY 26-4000-2 IBM 2841 Storage Control, Stage 2 ‘ Scrap Y26-4000-1 
HY 26-5902-2 IBM 1070 FEMM Scrap Y26-5902-1 
SY 27-005 3-0 IBM 6430 FETOM NEW 
SY27-0054-0 IBM 6430 System FEMM NEW 
SY27-0055-0 IBM 6430 System FEMDM NEW 
HY27~1040-0 Supplement to 2848 Display Control FETOM Re: Y27-2159-1 NEW 
SY27-1041-0 Supplement to 2848 Display Control FEMM Re: Y27-2161-1 NEW 
SY27-1042-0 Supplement to 2848 Display Control FEMDM Re: Y27-2160~1 NEW 
SY27-1045-0 Supplement to 2848 Display Control FEMM Re: Y27-2140-2 NEW 
SY27-2121-3 S/ 360 Model 65 Processor Unit FEIM Scrap Y27-2121-2 
SY27-2250-0 2385 Processor Storage Unit FEMM, FEMDM. NEW 
SY27-2266-0 Supplement to Y27-2255-1 NEW 
HY33-0021-0 Supplement to 2020 Processing Unit System/ 360 Model 20 NEW 
FETOM Re: Y26-5909-5 , 
HY 33~-0023-C Supplement to S/ 360 Model 20 2560 Multi-Function Card NEW 
Machine Attachment Feature FETOM Re: Y26-5976-3 
HY 33-1050-0 Supplement to Serial I/O Channel Attachment Feature, S/360 NEW 
Model. 20 FETOMDM Re: Y33=1040-0 
ZZ22-6798-0 Supplement to Component Circuits, SLL, SLD, ASLT, MST NEW 
Re: Z22~2798-0 
1. 
PRL #47 November 21, 
FORM NO, TITLE DISPOSITION 
MARKETING PUBLICATIONS 
G 520219653 . For Spoken Replies from Your Computer System UES~520-1965=2 
G 520~-2251-0 Advanced Systems Science Education NEW 
G A24~3312-7 2821 Control Unit UES 
~A24-3312-6, N24-0428._- 
G C24-5072-0 IBM System/ 360 Disk Operating System, DASD Labels NEW » 8 
G H19-0037-0 IBM System/ 360 Stock Counting Option for the Retail NEW 
IMPACT Staple System, Progr. Descr. Manual 
G H19-0038-0 IBM System/ 360 Stock Counting Option for the Retail NEW 
IMPACT System, Operations Manual 
G K20-0348-0 Brokerage Accounting with an IBM System/ 360 Model 20 NEW 
(Orvis Brothers and Company) 
G K20-0361-0 Classroom Use of a Computer at Hotchkiss School, NEW 
Lakeville, Connecticut 
G N21-0105-0 TNL, Re: IBM System/ 360 Component Description and NEW 
Operating Procedures 
G N21-5111-0 IBM System/ 360 Operating System: Planning for the 
: NEW 
IBM 1419 Data Management Macro Instruction and Svcs, 
S N23-0689-0 ENL to S/360 Model 20 RPG Coding NEW 
G N27=-2938-0 S/ 360 Special Feature Desc. 709/7090/7094/7094II NEW 
Compatibility Feature Model 85 A27-2733-0 
S R20-1096-0 1410/7010 Data Proc. System Programming Video Course NEW 
S R29-0097-04 IBM System/ 360 Report Program Generator Coding [lus. UES=R29~0097-3 
Z X22-6948-0 IBM Systems Measurement Instrument Control Panel NEW 
Planning Form 
Z X22-6950-0 IBM Systems Measurement Instrument Probe Assignment NEW 
Planning Form 
L Y20-0468-0 IBM 1130 Charge Material Allocation Processor (1130 CMAP) NEW 
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G Y20-0481-0 
K Y23-9804-0 


K Y23~9805-0 
K Y23-9806-0 
K Y23-9807-0 


K Y23-9808-0 
K Y23-9809-0 
K Y23-9810-0 
K Y23-9811-0 


K Y23~9812=0 
K Y23=9813-0 
K Y23-9814-0 
K Y23-9815-0 
K Y¥23-9816=-0 
K Y23-9817-0 
K Y23-9818-0 


Z 219-001 3-0 
Z Z20-1981-0 
Z Z20-1983-0 


Z 12301021~2 
| § 22503486—1 
S 225-6492-5 
G 226-3011-0 
S 229-2127-0 


S 2290216601 
S 229-4047-0 
S$ R23—3024=5 
SR23=3176=0 
S R25-5233-0 


S R255443-0 
S R31-0214-3 
S $29.0011-0 
S Y22-6756-0 
S Y25=2565-2 


S Y25-2607-1 
S Y27~1046-0 
S Y27-1047-0 
S Y27=225 8=0 
S$ Y27-2260-0 


FORM NO, 


G N20-0360-63 


G 220-2004-0 
G 220-2005-0 
S 440-1027-1 


G H20-0293-2 
G A36-0001-0 


G C21-7513-0 


G H20-0559-1 


S H20-0687-0 


S H20-0712-0 


G L27~3020-1 


S N23-0691~0 


G N28-0257-0 


S$ R20-1093-0 


G R20-9042-2 
G R20-9285-1 


G R20-9307-1 
S R29-0232-6 
S R20-0234-3 
G X24-6514-5 
G X28-6401-0 
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TNL to MARVEL/ 360 System Manual Re: Y20-0205<0 


A Programming Language, Reel 1, Computers in the 
Classroom, Quik Kourse - Part 1 

A Programming Language, Reel 2, Quik Kourse - Part II 
A Programming Language, Reel 3, Classroom Utilization 
A Programming Language, Reel 4, System Demonstration 


ALC -Architecture, Reel 1, Numbering Systems 
ALC~ Architecture, Reel 2, Assembly Process 
ALC- Architecture, Reel3, Instruction Formats 
ALC - Architecture, Reel 4, Data Formats 


ALC ~ Workshop, Reel 1, Editing 

ALC - Workshop, Reel 2, Assembler Listing & Instruction 
ALC » Workshop, Reel 3, Debugging ~ Diagnostics 

ALC = Workshop, Reel 4, Debugging - Interrupts 

ALC = Workshop, Reel 5, Debugging - Dump Reading 
ALC - Workshop, Reel 6, Preview I/O 

ALC = Workshop, Reel 7, Timer Solution 


TNL to IBM System/ 3 Marketing Guide Z19-0010-0 
TNL - Field Directory re: Z20-1959-3 
TNL to Base Publication (Z20-1897-31) 


FIELD ENGINEERING 


2020» Ifl Processing Unit 

1259 Magnetic Character Reader FETOM 

1403 Printers Models 1, 2, 4, 5, 6 and 7 

FE Announcement Brochure - IBM 2770 Data Communication Sys 
Diagnostic Section Reference Manual 


IR Code Guide IBM 50 MDI 

5424 Functional Unit Code Guide (Book Form) 
2403/2803 Tape Units 

Monolithic System Technology SSC 

360 FORTRAN IVD_ SSC 


1419/1412 Rd/sort Attach Feature SCM 
557 Alphabetic Interpreter SSC 

P.M, Series If Supplement (229-1277) 
2085 Processor Unit Compatibility Feature 
1052 Adopter SQ 


2401/ 2402/2403 

Changes to 2848 Display Control FEMDM 

Changes to Teleprocessing « General FE Handbook 
2065 Processing Unit Vol 1 (Y27=2036-0) 

2065 Processing Unit (Y27-2038-0) 
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TITLE REFERENCE SOURCES 
$/360 Newsletter Re: A22-6822-13 NONE 


MARKETING PUBLICATIONS 


Operating System/ 360 - PSM (GROUP 44) 

BPS/BOS/ CONV/ 44, ETC 

General Manufacturing Invoice 

System/ 360 Flowchart (360A-SE-22X) User's Manual 
IBM 4872 Modem Model 1 


Card Programming System Operator's Guide 
System/ 360 Matrix Language (MATLAN) Operations Manual 


1130 Charge Material Allocation Processor - Program 
Description Manual Program Number 5711-Pi1 
System/ 360 Text Processor - EDIT/ 360 Program Desc. 
Manual 

IBM 2972 Model 8 General Banking Terminal, System 
Component Description 

ENL to 24-26 Card Punch 

IBM System/ 360 Operating System: USA Standard 
Cobol Language 


1410/7010 Data Proc. System Programming Study 
Guide Visual Ed. 

24-26 Card Punch 

IBM 50 Mag. Data Inscriber-For Card Punch/ Verifier 
Operators 

S/3 Installation Ctrl. for Management 

$/ 360 ALC Standard & Decimal Instruction P,I, 

IBM System/ 360 Assembler Language Coding 

Physical Planning Template - Unit Record D,P,Equipment 
IBM System/ 360 Time Sharing System, TSS/360 Quick 
Guide for System Programmers 
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Issue 


NEW 


UESe Z220-1897-31 


SCRAPeo12301021-1 
SCRAP=225-3486-0 & S25-0088 
SCRAP225-6492-4 

NEW 

NEW 


SCRA P-229~"2166 
NEW 
UES-R23-3024—4 
NEW 

UES 


NEW 
UES-R31-0214-2 
NEW 
NEW 
UES-Y25~2565=1 


UES-Y25~-2607-0 & Y25-2716-0 
NEW 
NEW 
NEW 
NEW 


DISPOSITION 


SCRA P-N20-0360-62 


NEW 
NEW 
UES-440-1027-0 
UES-H20-0293-1 
NEW 


NEW 
SC RAP-H20-055 9-0 
NEW 
NEW 
SCRAP-L27-3020-0 
NEW 
NEW 
NEW 


NEW 
SCRA P-R20-9285 -0 


SCRA P-R20-9307-0 
SCRAP-R29-0232-5 
SCRAP-R29-0234-2 
SCRA P-X24-65 14-4 
NEW 


For IBM Internal Use Only 


December 


L Y20-0485-0 
L Y20~-0490-0 
G Y21-0522-0 


Z Z19-0016-0 
Z Z20-1905-11 
Z Z20-1906-11 
Z Z20-1954-0 
Z Z77-9212-0 
Z Z77-9213-0 


Z Z77-9214-0 
Z Z77-9215-0 


FORM NO, 


S 121-0544-6 
S 123-0423-3 
S 225~-3502-1 
S 229-2196-1 


S 229-5029-4 
S R23-3091-1 
S R25-5436-0 
S R27-9616-0 
S R31-0399-1 


.S R31-0468-0 
S $25-0527-0 
S $25-0529-0 


S $33-3007-0 
S Y22-6801-0 


S Y25-2235.0 
S Y27-2259-0 
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System/ 360 Text Processor - Edit/ 360 System Manual 
Volume I - Flowchart Narratives 

System/ 360 Text Processor - EDIT/ 360 System Manual 
Volume II - Flowcharts 

IBM System/ 3 Card System Initialization and Program 
Maintenance PLM 

TNL to Z19-0007-1 

Inserts (less programming) 

Sales Manual Inserts (programming only) 

Computer Control of the Emmission Spectrometer 

2250 Graphic Subroutine Package Education Guide(1130) 
A Line Control Program Technique for the Faste Monitor 
with OS-BTAM 

ATS/ 360 for Remote Job Entry 

Introduction to Spooling and Operating Guide for Power 


FIELD ENGINEERING 


TITLE 


2560 Illustrated Parts Catalog 
2701 Data Adapter Unit IPC 
1259 FEMDM | 

IBM 5203 Printer 


IR CODE GUIDE ~- IBM 2321 

360 Graphic Program Service _ 

Mod 25 BSA Integrated Comm Attachment SG 
1800 MPX on Line Diagnostica 

Attendance Summary 


5496 Data Recorder Self-check Feature SCM 

FES to 1403 Printer Model N1 and 3 FETOM 

FES to 1219 Reader Sorter, 1419 Magnetic Character 
Reader FEMM 

FES for Advanced Computing Attachment for Accounting 
Machines, Form 225-3457-1, -2 

FES to S/ 360 Model 50, 2050 Processing Unit FEMM 

Mod 25 BSA Integrated Comm Attachment 

2065 Processing Unit Vol 2 
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NEW 


NEW 


NEW 
SCRAP-~Z20-1905-10 
SCRAP-Z20-1906-10 
NEW 
NEW 


DISPOSITION 


SCRAP=121-0544-5 
SCRAP-123-0423-2 
SCRAP-225-0085, 225-3502-0 
SCRAP 229-2196-0 


UES-229-5029-3 
NEW 
NEW 
NEW 


NEW 


NEW 


NEW 
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OS/360 MAIN STORAGE HIERARCHY SUPPORT DATA Z(1), Z(2), 26), ZO)7 ® 


NOTE ADDENDUM 

ne “ABCDEFGHIJ', ‘ORS‘, 12345", ‘66666'/ 
The following additional information $ § $ 
has been supplied in regard to the note 


on the subject in INL 69-22. 01) IEYO381I SIZE WRN. 


02) IEYO38I SIZE WRN. 


There is available a circumvention for 03) IFY0381 SIZE WRN. 


this problem. Please contact your 
Programming Systems CE for details. 


Z(1)=ABCD 
Z(2)=QORSBKB 
IN ; owl. ; 
087300 Oe ee oe g(3)and Z(4) will not be initialized 
Z(5)=6666 
Z(6)=1234 


The following information is effective 


in FORTRAN G with OS/360 Release 18. 7(7)-Z(10) will not be initialized 


The FORTRAN G compiler has been modified (2) DIEMNSION X(10) 


to handle the literal constants in DATA ' ' . . 
and Type statements as follows: DATA X/ ABCDEFGHIJKLMNO*’, 10.0, ORST*'/ 
1. If a single element is specified 01) IEY0381 SIZE WRN. 
by subscripts in a DATA statement, excess X¥ (1) =ABCD 

characters from that element are not x(2)=10.0 

laced into its successor. =LU.U> 
P X¥(3)=ORST 


2. If the literal in the DATA statement X(4)=MNOK sta ae 
is longer than one array item, and if X(5)-x(10) wil not be initialized 


the array name is used without a OS/360 ANS COBOL OPEN PR 

: - : - . ECAUTION 
subscript, the literal will spill into SS @ 
succeeding items; however, this spill The OS ANS COBOL compiler does not process 


takes place only at the beginning of OPENS properly if two or more files are 


an array. If an initializing constant named. The second and all succeedin 
other than the first is longer than the even numbered files are not OPENed and 
element length, there will be no spill the program will abend. PTF #27422 is 
into subsequent elements. available to fix the problem. The bypass 


- . is to have separate ile. 
3. If an explicit type statement contains P OPENs for each file 


dimension information followed by OS/DOS/360 PL/I RECORD CONDITION U-TYPE 
initializing values, the dimensioned HANDLING Tn 
array is handled as if it were an 

unsubscripted, previously dimensioned For input BUFFERED files, PL/I D Version 
array in a DATA statement. 4 and OS PL/I (F) Version 5 raise the 


record condition if the length of the 
4. There is a ito 1 relationship between record variable is less than the length 


array items and initializing values so of the data set record. For input 

that a constant following a literal which UNBUFFERED files requiring no hidden 
is spilled may replace some portion of buffers, truncation occurs, but the 
the spilled literal. See Example 2. record condition is not raised. For 


output files, both BUFFERED and 
5. A partially filled element is padded UNBUFFERED, the record condition is 
on the right with blanks. The rest of raised if the length of the record 
the array is not initialized with blanks. variable is greater than the length of 
the data set record. 
6. In order to start initializing in 
the middle of an array, EQUIVALENCE Summary 
should be used. 
I/O 


BUFFERING ACTION 
7. An over-sized literal constant in 
a DATA or type statement is diagnosed 


(SIZE WRN-C.C.=4). 


BUFFERED RECORD RAISED IF 


VARIABLE <. RECORD ® 


Examples: UNBUFFERED 


(& NO HIDDEN) 


TRUNCATION 


(1) DIMENSION 2Z(10) 


OUTPUT | EITHER RECORD RAISED IF 


5 VARIABLE > RECORD 
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DOS/360 SHARED MODULES AND FILES 
PRECAUTION 


DOS provides resource protection 
capabilities in the form of RCB, ENQ, 
and DEQ macros for intra-partition (i.e., 
subtasking) protection, and Track Hold 
routines for cross-partition protection. 
Despite careful adherence to available 
documentation regarding potential “lock- 
out" conditions, it is possible to put 

a multi-partition system into a WAIT 
state which can only be recovered from 
by cancelling one or more partitions. 
There is no error in the DOS nucleus. 


A problem program requires protected 
access (track hold) to a file. Since 
this program is one subtask in a 
multithreaded partition, it also requires 
intra-partition protection of the 
integrity of the DTF and I/O area, etc., 
during the access. Finally, since an 
on-line environment demands efficient 
operations for fast response, some 
additional processing is necessary to 
allow other subtasks to access the same 
file. 


The logic of the problem program is: 


1. ENQ resource A, associated with DTFDA 
file A. 


2. READ file A. (DTFDA and DAMOD have 
both HOLD=YES and RDONLY=YES specified.) 


3. WAITF for I/O to complete. (No 
errors.) 

4. Move file A data to a (dynamically 
obtained) unique work area. 

5. DEQ resource A. 


(At this point, any other subtask in 
the partition may access file A through 
DTFDA for file A. No subtask or other 
partition may access the specific track, 
however, aS it is ina “hold™ status.) 


6. ENQ resource B, associated with ISAM 
file B. | 


7. READ file B, (no track hold capa- 
~ bility for ISAM). 


8. WAITF file B (no errors). 


9. Update file B data in I/O area for 
file B. 


10. WRITE file B record back. 


11. WAILTF file B (no errors). 
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12. DEQ resource B. 


(The problem program now seeks to modify 
the data being retained in the work area 
and to rewrite file A record.) 


13. Modify file A work area data. 
14. ENQ resource A for file A. 


15. Move updated information to file 
A‘s I/O area. 


16. WRITE file A record. 
17. WAITF file A (no errors). 


18, FREE file A (relinquishing track 
hold). 


19. DEQ resource A. 


20. -end- 


In an online situation it is possible, 
and indeed likely, that the same logic 
may be invoked by two or more subtasks 
concurrently. In the test being run, 
the above program logic was invoked by 
Subtasks at DOS priority levels #2 and 
#3 (although the specific levels are 
unimportant). 


Subtask #2 processed as far as step 8 
before subtask #3 began processing. 

it so happened that the file A data 
required by subtask #3 was on the same 
track as that being used by subtask #2. 
AS a result, subtask #3 was put into 
the WAIT state in the middle of step — 
2 (at the SVC-35 in DAMOD). | 


When subtask #2 resumed processing (in 
step. 8) it got as far as step 14. Because 
subtask #3 was already ENQ'd on resource 
A, subtask #2 was put into the WAIT 
state. Thus subtask #2 could not get 

to step 18 to allow subtask #3 to 
continue. Also, a program operating 
independently in another partition was 
put into the WAIT state when it attempted 
to access a third record on the same 
track. 


In sum, the sophisticated usage of a 
Special work area to reduce the ENQ-time 
Over resource A, designed. to enhance 
System performance, is unworkable as 

it creates a potential lock-out condition. 
On the other hand, the elimination of 

the technique (specifically the work 

area and steps 4, 5, 14 and 15 in the 
above logic) has a deleterious effect 

on system performance, and, furthermore, 
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create a situation in which both resources 
A & B are seized simultaneously. This 

in itself is a risky procedure and may 
result in lock-out situations as described 
in the SRL. 


DOS/360 ASSEMBLER AND LINK EDITOR IN 
FOREGROUND REVISION 


This is a revision to the article on 

this subject which appeared in INL 69- 
10. The contribution has not been 
submitted to any formal IBM test. 
Potential users should evaluate its 
usefulness in their own environment prior 
to implementation. See INLs 69-20 and 
69-22 for other articles on this subject. 


A somewhat different approach was employed 
in installing the Foreground Assembler, 
COBOL Compiler, and Link Editor on Release 
20 DOS. The current system requires 

far less operator attention and 
specialized Job Control. Small 
intermediate phases, coded as follows, 
were used: 


// JOB A9400 
// EXEC ASSEMBLY 


REPRO 
PHASE ASSEMBLY, +9 
BEGIN START g 
BALR 2,9 
USING *,2 
COMRG 
CLI 47(1),X°19° 
BE LOADBG 
FETCH F2SEMBLY 
LOADBG FETCH BGSEMBLY 
END BEGIN 
/* 
76 


The assembler and link editor changes 
discussed in INLs 69-10 and 69-18 still 
apply, but changes to job control have 
been simplified as follows. Four such 
phases are cataloged, under the names 
COBOL, $LNKEDT, ASSEMBLY, and $MAINEOJ, 
calling the corresponding phases cataloged 
for the partition in operation. This 
approach requires only three REP cards 

to JOB CONTROL, these being the cards 


to 1: allow ACTION, ENTRY, PHASE, and 
INCLUDE, 2: allow SYSLNK as a foreground 
unit, and 3: to allow the CATAL option. 


The LINK option requires extensive changes 
and is not supported for foreground. 

The module IJBLBH (SMAINEOJ) tests the 
automatic condense limits and will swing 
into automatic condense in foreground 
unless you either: 


A. Set automatic condense limits to 9 or 
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B. REP OO2F6A 99147F@-this overlaps a 
4700. 


When cataloging IJBLBH for foreground, 
there will be one unreferenced symbol- 
AUTOENT-Disregard this. 


With this approach there is no need for 
a special set of JCL for condensing the 
Core Image Library (no // EXEC $MAINEOJ 
is now required) and no special 


considerations for cataloging to transient 


or FGP directories (again, no // EXEC 
SMAINEOJ), and no need for operator 
attention in changing the EXEC cards 


for foreground or background compilation 
or cataloging. 


DOS/360 FORTRAN D AND F I/0 CORE 
REQUIREMENTS 


The following is a detailed analysis 
of the space required for I/O buffers 
and DTFs in DOS/360 FORTRAN programs. 


The I/O core requirements for a FORTRAN 
program are determined at execution time. 
For both FORTRAN D and F, only one buffer 
is assigned, to be shared by all logical 
units. For FORTRAN D, this buffer is 
asSigned on the second double word 
boundary following the uppermost byte 

of the problem program. For FORTRAN F, 
this buffer is assigned on the first 

full word boundary following the uppermost 
byte of the problem program. 


The address of the uppermost byte of 

the problem program is obtained from 
bytes 40-43 of the communication region. 
When executing a program which has not 
been cataloged into the core image library 
(i.e. using a //EXEC card with a blank 
operand), this address is the highest 
HICORE address appearing on the linkage 
edit map. When executing a program from 
the core image library (i.e. using a 

// EXEC card with a phase name operand), 
this address is the highest address of 
the problem program, where problem program 
is defined as all phases in the core 
image library beginning with the same 
four characters. Note that bytes 40- 

43 of the communication region will not 
be accurate if a dollar sign (S$) is used 
as the initial character of a phase name. 
It is therefore prohibited in FORTRAN 
program phase naming to use a dollar 
Sign as the initial character of a phase 
name. 
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The length of the buffer for FORTRAN 

D is the greater of 260 bytes or the 
largest record size in the first DEFINE 
FILE statement for each logical unit 
specified. If the buffer address plus 

260 exceeds the address of the uppermost 
byte of the problem program partition 
(bytes 32-35 of the associated 
communication region), message IJT236I 
(there is not enough main storage to 
assign a buffer partition) is produced. 
When a DEFINE FILE statement for a logical 
unit is processed, if the address of 

the uppermost byte of the problem program, 
plus 18, plus the record size specified 
by that statement, exceeds the address 

of the uppermost byte of the problem 
program partition, message IJT235I (the 
direct access input/output record size 

is too large to fit in the unused main 
storage) is produced. In FORTRAN D all 
I/O is handled by DTFCP, which is included 
within the problem program. 


The length of the buffer for FORTRAN 

F is the greater of (1) the largest 

record size allowed by a sequential 
logical unit used during FORTRAN execution 
or (2) the largest record size required 
by a direct access logical unit used 
during FORTRAN execution (record size 
being the record length specified in 

the first DEFINE FILE statement for each 
logical unit). 


In addition to the buffer, each logical 
unit used in a FORTRAN F program, except 
for SYSLOG, requires 232 bytes in which 

a DTF is built dynamically as the logical 
unit is opened for the first time. The 
DTFs’ are built downward, with the first 
DTF beginning 232 bytes before the second 
double word boundary before the address 
of the uppermost byte of the problem 
program partition. Each subsequent DTF 
begins 232 bytes before the address of 
the last DTF built. 


In the process of opening a file for 

the first time, if the buffer address 
plus the maximum record size of any 
logical unit already opened or the logical 
unit to be opened is not less than the 
address of the current DTF to be built, 
message ILF2361I (there is not enough 

main storage to assign a buffer area) 

is produced. 
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DOS/360 SORT 483 USER EXITS CODING 
EXAMPLE 


This field contribution has not been 
submitted to any formal IBM test. 
Potential users should evaluate its 
usefulness in their own environment prior 
to implementation. 


Exhibit 1 shows a revision of Figure 

24, On page 68 of SRL C28-6676-1, Tape 
and Disk Sort/Merge Program (360N-SM- 
483). This revision provides additional 
coding to assure proper addressability 
during exit processing and following 
completion of the Sort/Merge program. 
Figure 24 is not erroneous. It may, 
however, not be sufficiently detailed 

to avoid execution problems because of 
coding omissions. The following revised 
text should help clear up some programmer 
questions about calling the sort and 
processing exits. This technique has 
been tested by the author. 


Explanation of Exhibit 1 


1. This instruction loads SORT, the 
initial sort/merge phase. It is loaded 
at LOADLOC (LOADLOC is defined by 
instruction #47). 


2. The address of the sort/merge 
program's entry point is placed in regis- 
ter 15. 


3. Register 1 is loaded with the address 
of the address constant parameter list. 
This list is defined below by instructions 
#9 through #18. 


4. This instruction loads register 13 
with the user's save area address. 


59. This instruction loads register 14 
with the user's return address, and gives 
control to the sort/merge program. After 
sort/merge execution, control returns 

to the next instruction. 


6. Before returning control to the user, 
the sort/merge program places a code 

in the halfword named RETURN. This 
instruction tests the code for successful 
sort/merge completion. 


7. %&If the return code is not zero, 
control goes to the user's error routine. 


8. Instructions begin here to process 
a non-zero return code upon completion 
of the sort. | 
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9, 10, 11, 12, 13, 14. The sort/merge 
paramter list begins with #9. These 
first six address constants point to 
sort/merge control statement images that 
are defined below. Note that constant 
#13, which usually contains the address 
of the OPTION statement image, contains 
zeros. In this situation, the sort/merge 
program uses default values for the 
OPTION statement parameters. 


15, 16, 17. These constants point to 
the required branch tables. Since no 
user routines are active in Phase 2, 
a fullword of zeros is used in place 
of the Phase 2 Branch Table address. 


18. This is the address of a halfword 
in which the sort/merge program can place 
a return code. The halfword is defined 
by instruction #25. 


19, 20, 21, 22, 23. These instructions 
define the control statement images. 

Note that on the MODS statement no entrie 
are required for the phase name and the 
address/length parameters, since the 
user routines are pre-loaded. 


24. This instruciton defines an area 
in which the sort/merge program can save 
the contents of the user's registers. 


25. This halfword is set aside for the 
sort/merge return code. 


26. The literal origin instruction for 
all literals generated by previous coding. 


27. This instruction establishes 
addressability for the Phase 1 Branch 
Table and the processing routines that 
follow the table. 


28. This is the first instruction in 

the branch tables for Phase i, the 
internal sort phase. Since no user 
routine is provided for exit E11, the 
sort/merge program should never give 
control to this instruction. If control 
does come to this instruction, the user's 
error routine is entered. (Control would 
come to this instruction if the user 
mistakenly specified E11 on the MODS 
statement.) If no error routine is 
available, unused branch table entries 
can be replaced with a four-byte 
displacement. 


29. This instruciton is a branch to 

the user routine at exit E15. INPUT 

is the label of the entry point for this 
routine. 
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30, 31. Exits E17 and E18 are not used. 
32. The user routine at exit E15 follows 
the Phase 1 Branch Table, and the first 
instruction should save registers that 


are used in the routine. 


33. This instruction will restore 
registers to their status upon entry 
into the user routine and will return 
control to the sort/merge program. 


34, Instructions begin here to process 
an improper Phase 1 exit. 


35. The literal origin instruction for 
all literals generated since the pre- 
vious LTORG (instruction #26), i.e., 
all literals generated by the Phase 1 
user routines. 


36. This instruction establishes address- 
ability for the Phase 3 Branch Table 

and the processing routines that follow 
the table. 


37. This is the first instruction of 

the Phase 3 Branch Table; no user routine 
is provided for exit E31. 

38, 39, 41. 
used. 


40, These exits are not 


4W2. A user's write-error routine is 
active. 


43. The user routine for writer errors 
follows the Phase 3 Branch Table, and 
the first instruction should save 
registers that are used in the routine. 


44. This instruction will restore 
registers to their status upon entry 
into the user routine and will return 
control to the sort/merge program. 


45. Instructions begin here to process 
an improper Phase 3 exit. 


46. The literal origin instruction for 
all literals generated since the previous 
LTORG (instruction #35), i.e., all 
literals generated by the Phase 3 user 
routines. 


47. The sort/merge program will be 
loaded here, on a double-word boundary. 
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DOS/360 SORT 483 USER EXITS CODING EXAMPLE 


LOAD SORT,LOADLOC 


} 
LR 1591 2 
LA 1,yPARAM 3 
LA 13ySAVAREA 4 
BALR 14,15 5 
* FOLLOWING STATEMENTS ARE EXECUTED UPON COMPLETION OF SORT 
CLC RETURN(2),=H'O! 6 
BNE SORTERR 7 
SORTERR == 8 
PARAM DC A(SORT) | 9 
DC A(RCD) 10 
DC A(INPFL) 11 
DC A(OUTFL) 12 
DC A(0) | 13 
DC A(MOOD) 14 
DC A(E11) 15 
DC A(0) 16 
DC A(E31) 17 
DC A(RETURN} | | 18 
“SORT DC C*SORT FIELDS=(1095,CH,A),WORK=5 ° 19 
RCD DC C*RECORD TYPE=F,LENGTH=80 ! 20 
INPFL DC C*INPFIL EXIT !° 21 
OUTFL DC CYOUTFIL BLKSIZE=320,0PEN=NORWD ! 22 
MOD DC C*MODS PH1=(99E15)_9PH3=(,,E39) ° 23 
SAVAREA DS 9D — 24 
r RETURN DC H*0? 25 
LTORG 26 
* 
* PHASE 1 BRANCH TABLE 
USING E11,15 27 
Ell B SORTERR1 28 
E15 B INPUT | 29 
E17 B SORTERR1 30 
E18 B SORTERRL : 31 
* PROGRAMMER'S PHASE 1 PROCESSING ROUTINES FOLLOW 
INPUT SAVE (14912) 32 
RETURN (14,12) 33 
SORTERRI -—- 34 
LTORG 35 
* PHASE 3 BRANCH TABLE 
USING E31,15 36 
E31 B SORTERR3 37 
E32 B SORTERR3 38 
E35 B SORTERR3 . 39 
E37 B SORTERR3 40 
E38 B SORTERR3 41 
E39 B WRTERR 4? 
* PROGRAMMER'S PHASE 3 PROCESSING ROUTINES FOLLOW | 
WRTERR SAVE (14,12) | 43 
RETURN (14,12) 44 
SORTERR3 -- 45 
LTORG 46 
LOADLOC DC D'O! 47 


END 
Exhibit 1 
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TYPE III AND IV PROGRAMS 


Type III programs are those which have been submitted by one or more IBM employees. 
They are programs of general interest submitted for unrestricted distribution. 

They have met a basic set of programming and documentation standards but are not 
program tested in any formal fashion by the IBM Corporation. These programs were 
available for delivery from the Program Information Department prior to June 23, 
1969. 


Type IV programs are those contributed for unrestricted distribution by one or 
more authors of which at least one is an employee of an IBM customer. They are 
made available by IBM essentially in the author's original form, but conform to 
published Type IV standards. IBM exercises no control over the technical content 
of the documentation but merely assures that the quality of reproduction is 
satisfactory. Type IV programs have not been tested by IBM. 


IBM makes no warranty, expressed or implied, as to the documentation, function 
or performance of these programs, and the user is expected to make the final 
evaluation as to their usefulness in his own environment. 


wa nnn = - - = - += - = - == -- -- == TYPE III REVISION -------------------------------- 


360D-03.4.022 CATALOGUED PROCEDURES FOR OPERATION UNDER bpOoS/360. Material 
Revised: Documentation, Machine Readable, and Catalog Abstract. Date Revised: 
11/14/69. 


wo --- = ---- -- + - -- -- --- ------ TYPE IV REVISION --------------------------------- 


360D-16.2.005 ICES/360 BASIC SYSTEM AND LANGUAGE PROCESSORS. Material Revised: 
Documentation. Note: ICES/360 BASIC SYSTEM, program number 360D-16.2.004 has 
been withdrawn (by the author) and its features and capabilities have been 
incorporated into 360D-16.2.005. Date Revised: 11/07/69. 


wn n= ---- - +--+ - = - = --- = == TYPE IV REVISION ---------<----------------------- 


7O40-S0 3397 CATALOGUING AND ABSTRACTING OF PROGRAMS ON 7040/44. Material 
Revised: Documentation (Direct Inquiries change only) and Catalog Abstract. Date 
Revised: 11/18/69. 


wenn e+ + = = - = - = == TYPE IV REVISION --------------------------------- 


7040-SO 3398 INITIAL MASTER FILE FOR UBC CAPR. Material Revised: Documentation 
(Direct Inquiries Change only) and Catalog Abstract. Date Revised: 11/18/69. 


won none = == = = - = - == = NEW TYPE IV PROGRAM -------------------------- ------ 
INDEX SEQUENTIAL ERROR BYTE CHECK ROUTINE 


DESCRIPTION =- The Index Sequential Error Byte Check Routine will detect all error 
conditions which may occur while processing against or creating an index sequential 
file using BAL. When an error is detected the appropriate error message is 
displayed on the 1052 Console. 


PROGRAMMING SYSTEMS - Written in DOS AL;“operates under DOS/360. 


“MINIMUM SYSTEM REQUIREMENTS - This package requires the minimum requirements for 
DOS and a 1052 Console. A macro (ISERR) is used to link into the subroutine. 
This macro is coded immediately after the GET, PUT, READ, WRITE or WAITF to an 
index sequential file. The subroutine maintains a count of the records in the 
overflow area of the file when sequential processing is being done and when an 
end-of-file condition is encountered this count is displayed on the 1052 Console 
in a message, and control is returned to the programmer's end-of-file routine. 
The messages contain the DTFname and the error condition which occurred. 
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BASIC PROGRAM PACKAGE 
DOCUMENTATION - Write-up. | 
MACHINE READABLE =- Object code. 
OPTIONAL PROGRAM PACKAGE = None. 
ORDERING INFORMATION: PROGRAM NUMBER 360D020004 


PROGRAM NUMBER DISTRIBUTION MEDIUM USER VOLUME 


EXTENSION TYPE CODE REQUIREMENT 
BASIC none DTR* 00 none 
OPTIONAL none none none 


LPI 

DESCRIPTION - LPI is a small set of subprograms for use by FORTRAN’ programmers 
to perform the basic functions of list processing. This paper describes and 
evaluates LPI, comparing it specifically with SLIP, a similar system. 
PROGRAMMING SYSTEMS =- Operates under 0OS/360. 


MINIMUM SYSTEM REQUIREMENTS - LPI requires only sufficient hardware to compile 
and execute FORTRAN programs. 


BASIC PROGRAM PACKAGE 

DOCUMENTATION - Write-up. 

MACHINE READABLE =~ Source code and sample problem. 
OPTIONAL PROGRAM PACKAGE =- None. 
ORDERING INFORMATION: PROGRAM NUMBER 360D068002 


PROGRAM NUMBER DISTRIBUTION MEDIUM USER VOLUME 


EXTENSION TYPE CODE REQUIREMENT 

BASIC none MT 9/800 28 01 
MT 9/1600 29 01 

MT 7DC/800 26 01 

OPTIONAL none none none 


Se ee ee ee ee ew em nee eee neem NEW TYPE IV PROGRAM ~~----------------~-~----------- 
RAS/1130 COURSEWRITER II REASSEMBLE PROGRAM — 

DESCRIPTION - RAS/1130 is a disk to disk course segment reassembling program. 

It compresses and makes physically sequential course segments which have had 
statements deleted and/or added. Its effect is generally the same as the 1500 
Coursewriter Reassemble Program, but RAS/1130 is considerably faster. 


PROGRAMMING SYSTEMS - Written in 1130 Assembler Language; operates under the 1130 
Disk Monitor, Version 2. 


MINIMUM SYSTEM REQUIREMENTS - Those required by the Version 2 Disk Monitor. 
BASIC PROGRAM PACKAGE 

DOCUMENTATION = Write-up. 

MACHINE READABLE - Object and source code. 


OPTIONAL PROGRAM PACKAGE = None. 
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ORDERING INFORMATION: PROGRAM NUMBER 1500016001 


PROGRAM NUMBER DISTRIBUTION MEDIUM USER VOLUME 


EXTENSION TYPE CODE REQUIREMENT 
BASIC none —~—<CS~S ARDS IS none 
OPTIONAL none none | none 
Scar ass SSeS See NEW TYPE -1V “PROGRAM ===<=+<<<<<9<<<<=S<$=s3+>==-3==== 


FUNCTION EP 1500 CW II FUNCTION CAI SYSTEM 


DESCRIPTION - When this function is used, row and column placement of the cursor, 
latency, and length of response can be specified by the contents of counters (as 
well as constants) as in the normal EP OP code. The EP Identifier can be specified 
aS a constant value or the contents of Buffer 5. A patch to the 1500 Operating 
System Interpreter is required. Use of this function on subsequent versions or 
levels of the operating system requires review of the patch to the Interpreter 

and four links to Interpreter within the function. These are covered in detail 

in the documentation. 


PROGRAMMING SYSTEMS - This function operates under Version 3, Modification Level 
1 of the 1500 Operating System. The function is used in place of the Coursewriter 
II OP code, EP. Source Language: 1130 Assembler. 


MINIMUM SYSTEM REQUIREMENTS - 1500 system configuration with 1510 and/or 1518 
Terminal Devices. 


BASIC PROGRAM PACKAGE 
DOCUMENTATION - Write-up. 
MACHINE READABLE =- Object code. 
OPTIONAL PROGRAM PACKAGE - None. 
ORDERING INFORMATION: PROGRAM NUMBER 1500990002 


PROGRAM NUMBER DISTRIBUTION MEDIUM USER VOLUME 


EXTENSION TYPE CODE REQUIREMENT 
BASIC none CARDS 15 none 
OPTIONAL none none none 
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ACCUMULATIVE LIST OF NEW TYPE III AND IV PROGRAMS 


Following is an accumulative list of new Type III and Type IV programs which have 
been made available since the last edition of the Catalogs of Programs or their 


Supplements. Abstracts describing these programs can be found in the Installation 
Newsletter Issue No. shown below. 

Program Program Title Newsletter 
Number Issue No. 


360D-00.0.017 SPOOL, A PACKAGE TO CONVERT CURRENT OR FUTURE 


PRINTED REPORTS TO MAGNETIC TAPE FOR FOREGROUND OR 


BACKGROUND PRINTING LATER 69-09 
360D-00.0.020 2495 UTILITY PROGRAM FOR 0S/360 69-11 
360D-00.0.022 PUFER - PUNCH FEED READ UTILITY CARD TO TAPE 69-15 
360D-00.1.021 S/360 GENERALIZED EXTRACTION AND MATCH PROGRAM 69-07 
360D-00.1.022 NYU PRINT-UTILITY PROGRAM 69-07 
360D-02.0.004 INDEX SEQUENTIAL ERROR BYTE CHECK ROUTINE 69-24 
360D-00.2.006 OS SYSTEM/360 FLOWCHART (OS FLOW): DOS FLOWCHART 

UNDER OS/360 69-03 
360D-00.3.025 S/360 DOS TAPE TO PRINTER/PUNCH SPOOLING SYSTEM 69-08 
360D-00.3.026 FORTRAN TAPE DISK READ WRITE SUBROUTINES 69-16 
360D-00.3.027 SEVEN TRACK OCTAL TAPE DUMP 69-11 
360D-00.3.028 1400 INPUT/OUTPUT STANDARD LABEL PROCESSING EXITS 

FOR 483 DISK & TAPE SORT 69-19 
360D-00.3.029 TAPE FILE EXTENSION MACRO =- INSTRUCTION 69-20 
360D-00.4.015 DAP DIRECT ACCESS PATCH PROGRAM 69-09 
360D-00.4.018 IBM SYSTEM/360 INDEXED SEQUENTIAL DASD TO PRINT 

UTILITY 69-17 
360D-00.5.005 FORMATTED LISTING OF VTOC FOR OS/360 69-08 
360D-00.5.006 SHAREDISK 69-11 
360D-00.6.011 A HYPERTEXT EDITING SYSTEM FOR THE S/360 USING 

THE 2250 DISPLAY 69-18 
360D-01.0.009 OS/360 DATE AND TIME SUBROUTINE (DT0O1) WITH 

CONVERSION FROM JULIAN DATE TO GREGORIAN 69-09 
360D-01.1.006 COMPILE AND GO FOR THE OS 360, PL/I (F) COMPILER 69-06 
360D-01.3.002 1287 CHECK DIGIT AND NUMERIC RECONSTRUCTION 

MACROS 69-11 
360D-01.4.010 SYSGEN AIDE: DIRECTORY DUMP 69-16 
360D-03.0.007 S/360 MOD 44 MULTIPROGRAMMING SYSTEM 69-08 
360D-03.0.008 DOS IOCS LOGIC MODULE SOURCE STATEMENT GENERATOR 69-08 
360D-03.0.010 STENO TO ENGLISH TRANSLATION 69-17 
360D-03.0.012 PARS CONTROL (ACP) 69-13 


360D-03.1.014 


FAST ASSEMBLER = INTERPRETER FOR SYSTEM/360 ASSEMBLER 


LANGUAGE PROGRAMS (VERSION 1) 69-14 
360D-03.2.011 OS/360 PL360 COMPILER 69-06 
360D=-03.2.013 BASIC COMPILER UNDER TSS/360 69-13 
360D-03.2.014 THE SIMSCRIPT II PROGRAMMING LANGUAGE 69-16 
360D-03.2.015 THE XPL COMPILER GENERATOR SYSTEM 69-17 
360D-03.3.008 COURSE III/OS A REAL-TIME COMPUTER ASSISTED 

INSTRUCTIONAL SYSTEM 69-01 
360D-03.3.009 1404 IOCS MACROS FOR DOS/TOS 69-09 
360D-03.3.010 SNAP PROCESS OR (PROTOTYPE) 69-10 
360D-03.3.011 COMIT/360 69-15 
360D-03.4.026 BSAM SUBROUTINE PACKAGE FOR OS 360, VERSION I 69-06 
360D-03.4.027 FORTRAN RANDOM I/O SUBROUTINE 69-03 
360D-03.4.028 2260 LOCAL TERMINAL USERS SYSTEM (LOTUS) 69-06 
360D-03.4.031 KNUTH PROPOSAL INPUT/OUTPUT PACKAGE (KIOP) 69-16 
360D-03.6.009 OS/360 COBOL CROSS-REFERENCE AND RESEQUENCING 

PROGRAM 69-05 
360D-03.6.010 JOB STREAM MANAGER OS/MVT 69-03 


360D-03.6.012 PROGRAM FOR THE CREATION OF CROSS REFERENCE TABLES, 


FROM S/360 RPG SOURCE PROGRAMS, FOR INDICATORS AND 


11 


Decemher 5, 1969 Issue No. 69-24 


IBM INSTALLATION NEWSLETTER 


FIELD NAMES 6910 
360D-03.6.013 SYSTEM MANAGEMENT ROUTINES OS/MVT 69-10 
360D-03.6.017 PL/60 69-15 
360D-03.6.018 NEATER: A PL/I SOURCE STATEMENT REFORMATTER 69-17 
360D-03.7.025 CARRIER RETURN/LINE FEED ON THE 1052/53, MISLCRLF 69-03 
360D-03.7.026 DCLC A DOS/TOS/OS ASSEMBLER MACRO TO DEFINE A 

LOWER-CASE CHARACTER CONSTANT - DEFINE-CONSTANT- 

LOWER=CASE 69-09 
360D-03.7.027 EDIT MACRO FOR DOS, TOS, OR OS ASSEMBLY LANGUAGE, 

S/360 69-07 
360D-03.7.028 DOS MACRO FOR TYPEWRITER INPUT/OUTPUT 69-10 
360D-03.7.031 DOS MACROS TO DUMP ISAM FILES FROM 2311 OR 2314 

TO TAPE AND RESTORE FROM TAPE TO 2311 OR 2314 69-15 
360D-03.8.013 PL/I STRING FUNCTIONS 69-06 
360D-03.8.015 A PLAN FOR A LINKED-DIRECT FILE, WITH OPERATING 

ROUTINES, IN COBOL 69-13 
360D-04.0.008 DOS COBOL CROSS REFERENCER 69-04 
360D-04.0.010 SIMPLIFIED INPUT-OUTPUT AND DEBUGGING MACROS FOR 

ASSEMBLER LANGUAGE USERS 69-22 
360D-04.0.009 PCMSG - PROGRAM CHECK MESSAGE 69-09 
360D-04.1.010 DEBUGGING AID FOR DOS PROGRAM TESTING 69-04 
360D-04.1.011 S/360 POST MORTEM DUMP (PCP/MFT) 69-09 
360D-04.2.007 PROGRAM TO AID IN OPTIMIZING COMPUTE BOUND JOBS BY 

INDICATING THE MAJOR PROCESSING LOOPS | 69-04 
360D-04.6.001 A PROGRAM FOR GRAPHIC ON-LINE DEBUGGING ON AN IBM 

2250 DISPLAY 69-08 
360D-05.1.016 CONVERSATIONAL REMOTE BATCH ENTRY (CRBE) 69-13 
360D-05.1.018 BAYLOR EXECUTIVE SYSTEM FOR TELEPROCESSING (BEST) 69-22 
360D-05.2.010 INTERACTIVE APPLICATIONS SUPERVISOR (IAS/360) 69-06 
360D-05.2.011 DOS/360 TIME ACCOUNTING SYSTEMS 69-10 
360D-05.5.001 44 PS LOADER 69-20 
360D-06.1.005 MARC II SORT PROGRAM 69-16 
360D-06. 3.006 GENERALIZED TELEPROCESSING PROGRAM FOR SYSTEM/360 69-07 
360D-06.3.007 DOS BTAM FOR LEASED LINE KSR 35 TELETYPES 69-06 
360D-06.3.008 AUTODIN ACCESS METHOD FOR 0S/360 69-10 
360D-06. 3.012 A HIGH SPEED BISYNCHRONOUS COMMUNICATIONS ACCESS 

METHOD 69-22 
360D-06.5.006 UNIVAC-1108 TO IBM-360 FLOATING POINT INTERNAL 

CONVERTER ('CVFLO8') 69-06 
360D-06.5.007 7090 TO 360 FLOATING POINT INTERNAL CONVERTER 

("CVFLO9') 69-06 
360D-06.6.003 FORTRAN CHARACTER STRING PACKAGE 69-03 
360D-06.6.004 CHARACTER FILTER PL1 69-03 
360D-06.7.018 BSEARCH - A RANDOM ACCESS BINARY-SEARCH TECHNIQUE 

FOR SEQUENTIAL FILES ON DISK OR DRUM 69-03 
360D-06.7.019 KWADE-KEYWORD AS A DICTIONARY ENTRY 69-03 
360D-06.7.021 AUTORAF - A SYSTEM FOR BUILDING AND USING RECORD 

ADDRESS FILES FOR DIRECT PROCESSING OF FILES ON 

SYSTEM/360 69-10 
360D-06.7.024 GENERATION DATA GROUP (GDG) MODIFICATION 69-10 
360D-06.8.002 LPI 69-24 
360D-07.6.001 2741 READ AND WRITE ROUTINE 69-06 
360D-08.0.003 WRIMAT MATRIX WRITER 69-05 
360D-10.0.001 PROGRAM TO CALCULATE THE AMOUNT OF CPU TIME 

AVAILABLE IN THE BACKGROUND WHEN RUNNING DOS 

MULTI PROGRAMMING 69-03 
360D-10.0.002 FORTRAN ANALYSIS PROGRAM 69-04 
360D-10.2.004 HIGH WATER MARK (HWM) 69-09 
360D=-10.2.005 CORE AND/OR RESOURCE CONFLICT (CRC) NOTIFICATIONS 69-10 
360D-10.2.006 NUCLEUS INITIALIZATION PROGRAM (NIP) 

MODIFICATIONS 69-11 
360D-11.1.023 DISK RESIDENCE FOR 1410 COMPATIBILITY MODE PROGRAMS 

ON THE IBM S/360 MODEL 40 69-10 


360D-12.1.020 
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360D-12.2.008 


360D-12.2.009 
360D-13.0.004 
360D-13.0.005 
360D=-13.0.006 
360D=13.0.008 
360D-13.0.009 
360D-13.1.005 
360D-13.2.003 


360D-13.4.007 


360D-13.6.007 
360D-13.7.001 


360D-15.0.004 
360D-15.4.006 
360D-16.0.001 


360D-16.2.018 
360D-16.2.019 
360D-16.2.020 
360D-16.2.021 
360D-16.2.022 
360D-16.2.023 
360D-16.2.024 
360D-16.2.025 
360D-16.2.026 
360D-16.3.001 


360D-16.4.009 
360D-16.4.010 


360D-16.8.002 


360D-17.2.009 
360D-17.7.001 
360D-19.5.008 
360D-19.7.010 


360D-19.7.011 


360D-25.2.004 
360D-30.1.002 


360D-30.2.002 
360D-40.4.003 
360D-42.2.001 
360D-45.1.001 


360D-45.2.001 
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coded columns PRINTING RECODED data 

CDC = 3800/3300 COBOL TO IBM - S/360 COBOL 
TRANSLATOR 

NCR 315 TRANSLATOR FROM NEAT TO 360 ALP 
GRAPHICS STEPWISE REGRESSION ROUTINE (BMDGR1) 
NON-LINEAR LEAST SQUARES ON GRAPHICS (BMDGR2) 
TIME SERIES SPECTRUM ESTIMATION (BMDGT1) 

CAI DOS COURSEWRITER III CALCULATOR 

HISTOGRAM SUBROUTINE 

GENERAL TAXONOMY PROGRAM 

LEAST“SQUARES ESTIMATION OF NON-LINEAR 
PARAMETERS - NLIN 

RESCALED RANGE TRANSFORM 

COLLEY-TUKEY FAST FOURIER TRANSFORM -= FOUR 2 IN 
ASSEMBLER LANGUAGE 

NON-LINEAR LEAST=-SQUARES CURVE=-FITTING PROGRAM 
LINEAR LEAST-SQUARES CURVE FITTING PROGRAM 


DIALL - GENERAL LEAST SQUARES DIALLEL ANALYSIS OF 


VARIANCE 

OS/360 CHECKPOINT AND IPL RESTART 

ICES/360 SOURCE PROJECT-I 

UCARDS: UNION CARBIDE AUTOMATIC ROUTINE AND DESIGN 
SYSTEM FOR PRINTED CIRCUIT BOARDS 

BULKHEAD SHEET PILING ANALYSIS 

ICES/360 STRUDL-II | 

COLUMN DESIGN — WORKING STRESS METHOD 

ICES/360 SOURCE TRANSET I 

GC-21 

ICES/360 COGO-I SOURCE 

ICES/360 ROADS I SOURCE 

ICES/360 TABLE-II, OBJECT AND SOURCE 
ICES/LEASE I | 

ECONOMIC EVALUATION AND SCREENING PROGRAM FOR 
RESEARCH PROJECTS 

LISA 360 A PROGRAM FOR LINEAR SYSTEMS ANALYSIS 
SYNTH1 (A COMPUTER PROGRAM FOR THE DESIGN OF 
REACTIVE NETWORKS FROM A SET OF ARBITRARY POLES AND 
ZEROES) 

COMPUTER CALCULATION OF FREQUENCY RESPONSE 
FUNCTIONS FROM STEP RESPONSE DATA 

ON-LINE SUMX 

SUBROUTINE UCONIC 

MVT ACCOUNTING ROUTINE (MVTACTRT) 

PROOF OF DEPOSIT ENTRY RUN WITH TRANSIT 
DISTRIBUTION 

PERSONAL TRUST ACCOUNTING PACKAGE TO ASSIST USERS 
IN INSTALLING OFF-LINE PROCESSING 

TWO-STAGE, TWO-DIMENSIONAL TRIM PROGRAM II 
EQUIPMENT ORDER, SHIPMENT, INSTALLATION, AND 
DISCONTINUANCE REPORT FOR LARGE ACCOUNTS 

UNIT CONTROL SYSTEM FOR RETAILERS 

VSP SCHEDULE PRODUCTION FOR O/S 360 

360/2260 FUNCTIONAL DEMONSTRATION IN DOS F1 
PARTITION - BTAM LOCAL 

SHARED HOSPITAL ACCOUNTING SYSTEM (SHAS) 
DEMONSTRATION PACKAGE 

MULTIPLE - PRECISION FLOATING-POINT ARITHMETIC 
PACKAGE 

EXPERIMENTAL PROGRAM FOR DETERMINING POLYNOMIAL 
ZEROS 

INVRSOL 

EIGENRS 


/360 DOS INDIVIDUALIZED HOMEWORK ASSIGNMENT AND QUIZ 


GENERATOR (QUIZ AND EXERCISE DEMONSTRATOR: QED) 


Issue 


No. 69-24 


69-11 


69-09 
69-09 
69-15 
69-16 
69-15 
69=21 
69-16 
69-08 


69-09 
69-06 


69-17 
69-20 
69-20 


69-15 
69-23 
69-05 


69-15 
69-06 
69-09 
69-09 
69-14 
69-19 
69-16 
69-16 
69-16 
69=23 


69-05 
69-09 


69=13 


69-19 
69-23 
69-07 
69-12 


69-08 


69-07 
69-10 


69-08 
69-08 
69-16 


69-09 


69-09 
69=—11 
69-06 
69=03 
69-03 


69-05 
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360E-00.0.008 
360E-01.0.001 


360E-01.0.002 
360E-01.5.001 
360E-03.4.002 
360E~-06.5.002 
360E-06.6.003 


360E-13.0.001 
360E-13.0.002 
360E-13.1.006 
360E~-13.6.001 


360E~16.4.004 
360E-16.5.001 
360E-19.7.020 
360E-23.1.003 


360E-25.2.006 


360E-27.3.001 
360E-28.3.013 
360E-28.3.014 


1130-00.0.009 


1130-00.3.010 
1130-00.4.007 
1130-01.5.006 
1130-01.6.003 


1130-03.4.011 
1130-05.5.001 


1130-06.1.006 
1130-06.1.007 
1130-06.3.001 
1130-06.3.002 


1130-06.3.003 


1130-06.6.014 
1130-06.6.015 


1130-06.6.016 
1130-06.6.017 
1130-06.7.003 
1130-07.0.002 
1130-08.0.002 


1130-12.1.005 
1130-13.7.001 
1130-15.1.002 
1130-15.5.001 
1130-15.5.002 


1130-15.2.005 
1130-15.4.007 
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SIMPLIFIED USER ORIENTED REPORT - WRITING PROGRAM 
FOR 8K MPDEL 20 

INVALID CCCP/360-20 INVALID CODE CARD CORRECTION 
PROGRAM 

FIELD SELECTION AND LIST 

MODEL 20 STAND-ALONE DISK COPY UTILITY 

SHORT INPUT OUTPUT SYSTEM 

JULIAN DATE PROCESSING SUBROUTINES 

CONVERTING A NUMBER TO IT'S VERBAL DESCRIPTION 
(CKPR) 

HOSPITAL PBAR PROGRAMS FOR A MFCM MODEL 20 
STATISTICAL COMPARISONS PROGRAM 

SINGLE DIGIT COUNT AND FREQUENCY DISTRIBUTIONS 
LINEAR REGRESSION IN TWO VARIABLES (LEAST SQUARE 
FIT) FOR THE MOD 20 

MINIMIZATION OF BOOLEAN EXPRESSIONS 

CALCULATE MASTER CAMS 

SAVINGS ACCOUNTING FOR THE 360 MOD 20 DISK 
HEURISTIC PAPER MACHINE TRIM PROGRAM FOR THE IBM 
360/20 

DOPTIM - DISK ORDER POINT TECHNIQUE OF INVENTORY 
MANAGEMENT | 

AMERICAN FLYERS AIRLINE AVAILABILITY REPORT 
360/20 CARD DESCRIPTIVE BILLING 

WHOLESALE AND/OR RETAIL, ACCOUNTS RECEIVABLE, AGED 
TRIAL BALANCE 


SFREF - FORTRAN AND ASSEMBLY LANGUAGE SUBPROGRAM, 
LINK, AND FILE READ/WRITE CROSS-REFERENCE TABLE 
BUILDING PROGRAM | 
1130 PRNZ MODIFIED FOR ADDITIONAL CARRIAGE CONTROL 
1130 DISK-PACK SECURITY PROGRAM 

DUMP AND RESTORE MONITOR VERSION TWO 

ISFMS - 1130 INDEXED SEQUENTIAL FILE MANAGEMENT 
SYSTEM ON THE 1130 

REREAD FOR FREE FORMAT CARD READING IN FORTRAN 
SECAL - A PROGRAM FOR BUILDING MULTIPLE LOCAL 
SUBROUTINE MODULES FOR THE IBM 1130 

UDAC 1130 DSORT 

ORDER. AN IN-CORE TAG SORT 

IBM 1130 REMOTE JOB ENTRY SYSTEM 

WILLIAM AND MARY REMOTE JOB ENTRY PROGRAM —- 8K 
DISK SYSTEM VERSION (WMRJ8) 

WILLIAM AND MARY REMOTE JOB ENTRY PROGRAM - 4K 
DISK AND CARD SYSTEMS VERSION 

THE 1130/1800 KEYWORD INDEX GENERATOR 

IBM 1130 FORTRAN REREAD DEVICE AND FREE FORMAT 
KEYWORD INPUT ROUTINES 

ALPHAMERIC DATA STATEMENT PRODUCER FOR FORTRAN 
KWIC INDEX GENERATOR 

IBM 1130 INDEX FOR DM2 SYSTEMS 

RASEC/RDSEC 

HIGH SPEED AND OVERLAP 1132 PRINTER ROUTINES FOR 
1130 FORTRAN AND BAL USERS 

1130 FILE CONVERSION PROGRAM, DISK MONITOR VERSION 
I TO DISK MONITOR VERSION 2 (FCOPY) 

MULTIPLE RANGE TEST FOR CORRELATED AND 
HETEROSCEDASTIC MEANS 

GASP II (GENERAL ACTIVITY SIMULATION PROGRAM, 
VERSION ITI) 

PURDUE FARM SUPPLY CENTER MANAGEMENT GAME 

PURDUE SUPERMARKET MANAGEMENT GAME, 1969 

1130 BLENDING OF INITIAL FURNACE CHARGES 

W.E.L. CHART SCHEDULING PROGRAM 


Issue No. 


69-05 


69-07 
69-08 
69-07 
69-06 
69-08 


69-16 
69-07 
69-07 
69-12 


69-06 
69-16 
69-11 
69-04 


69-10 


69-18 
69-13 
69-09 


69-06 


69-11 
69-07 
69-16 
69-21 


69-05 
69-10 


69-10 
69-20 
69-23 
69-06 


69-11 


69-11 
69-04 


69-06 
69-09 
69-19 
69-11 
69-11 


69-16 
69-10 
69-08 
69=23 
69-19 
69=20 


69-10 
69-16 


69-24 


December 5, 


1130-16.5.002 
1130-17.3.002 


1130-17.6.002 
1130-17.6.003 
1130-17.6.004 


1130-21.1.001 
1130-23.3.002 


1130-28.2.002 
1130-28.3.001 
1130-30.1.004 


1130-30.2.003 
1130-30.2.004 
1130-30.2.005 
1130-45.0.001 


1500-01.6.001 
1500-99.0.001 
1500-99.0.002 


1800-00.0.002 
1800-00.0.003 
1800-01.0.002 


1800-17.4.001 
1800-23.5.006 
1800-23.5.008 
1800-25.2.001 


1401-10.3.071 


1401-10.3.072 
1401-10.3.073 


1620-01.6.160 
1620-02.0.066 
7040-H2 3552 


7094-F2 3554 
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MECHANICAL TOLERANCE ANALYSIS PROGRAM (MTAP) 
GENERAL PURPOSE CHROMATOGRAPH PEAK INTEGRATION 
PROGRAM 

1130 RAW SCORE TEST ANALYSIS PROGRAM 

1130 TEST ITEM ANALYSIS PROGRAM 


APGRD A PROGRAM TO GRADE AND ANALYZE MULTIPLE CHOICE 


QUIZZES 

IBM 1130 HOSPITAL PAYROLL 

COMPUTER APPROACH TO INVENTORY REQUIREMENTS ON THE 
1130 FOR SMALL ASSEMBLY ORIENTED MANUFACTURERS 
1130 PATIENT BILLING 

1130 HOSPITAL ACCOUNTS RECEIVABLE 

INDIVIDUALIZED HOMEWORK ASSIGNMENT AND QUIZ 
GENERATOR (QUIZ AND EXERCISE DEMONSTRATOR: Q.E.D.) 
BATTLE OF THE NUMBERS | 

1130 PERPETUAL CALENDAR DEMONSTRATION PROGRAM 
MOON FLIGHT 

SIMPLIFIED GAUSS-JORDAN METHOD OF MATRIX INVERSION 


RAS/1130 COURSEWRITER II REASSEMBLE PROGRAM 
FUNCTION SF FOR ANY 1500 COURSEWRITER II CAI SYSTEM 
FUNCTION EP 1500 CW II FUNCTION CAI SYSTEM 


OBJECT TIME I/O LOGICAL NUMBER GENERATOR 

CARD UTILITY PROGRAM USING 1800-0OS-010, MPX 

BOM CORE & DISK DUMP UTILITIES MODIFIED TO RUN IN A 
CORE LOAD AREA OF V-CORE FOR USE WITH 1132 OR 1443 
LINE PRINTERS 

REDUCTION OF OCEANOGRAPHIC STATION DATA 

IBM ANALOG DATA ACQUISITION PROGRAM 

PROCESS DATA PREPARATION PROGRAM 

COMPUTER PROGRAM FOR A HOSPITAL BLOOD BANK 


1401 UNIVERSITY ADMISSIONS INFORMATION SYSTEM 
FINANCIAL AID INFORMATION SYSTEM (LOAN SUBSYSTEM) 
FINANCIAL AID INFORMATION SYSTEM (STUDENT AID 
SUBSYSTEM) 


LABELR = A REPORT GENERATOR 
A MODIFIED PDQ FORTRAN SYSTEM 


MULTIDIMENSIONAL OPTIMIZATION USING PATTERN SEARCH 
EIGENVALUE - EIGENVECTOR ROUTINE FOR REAL COMPLEX 
MATRIX 


DELETED TYPE III PROGRAM 


Issue No. 


69=22 


69-07 
69=15 
69-16 


69-18 
69-09 


69-09 
69-08 
69-08 


69-04 
69-12 
69-13 


69=19 


69-20 


69—24 
69-20 
69-24 


69-04 
69-10 


69-11 
69-09 
69-04 
69-10 
69-19 


69—14 
69=—14 


69=—14 


69-15 
69-16 


69=11 


69=15 


69-24 


The following Type III Program will be deleted by the Program Information Department 


on January 5, 
by PID. This 


360D-30.0.001 


1970. 


Until that date, orders for this program will be accepted 


deletion has been requested by the author. 


MACON - S/360 MANUFACTURING DEMONSTRATION PROGRAM 
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OS/360 RELEASE 18 RELIABILITY 
The following information is reprinted 
from RETAIN: 


Release 18 feedback has shown it to have 
high reliability. If an account is 
considering installation of Release 18, 
it should be encouraged to do so. An 
updated Release 18 is still planned for 
accounts that wish to defer installation. 


0S/360 RELEASE PROCEDURES 


The following information is provided 
in order to help you explain and discuss 
this subject with your OS/360 customers. 
This material should not be given to 

a customer directly. 


The Release 18 Programming Announcement 
(P69-119) stated that an updated release 
would be available in 3 to 4 months. 

A release is updated with PTFs so that 
users can benefit from problems found 
and corrected during the initial field 
exposure. After a release has been in 
the field for 2 to 3 months, the PTFs 
that were made available through normal 
field engineering channels, documented 
in RETAIN and the PSMs, are reviewed 

to determine which should be included 
in the update. The update is then 
created, tested and shipped to PID to 
replace the initial level of the release. 


First results indicate that Release 18 
is more reliable than prior releases. 


The decision on whether to install Release 


18 initially or the update should be 
based upon individual account 
requirements. That is, his satisfaction 
with his current production release, 
requirements for new function, system 
workload, account plans and on-order 
equipment, etc. 


There should be no reason for a user 

to order and install both the initial 
release and its update. If he installs 
the release initially, he can apply PTFs 
as they become available. The user 
installing the update has these PTFs 
applied for him centrally by IBM, rather 
than serially at his location. 


OS releases are not fixed at 6 month 
intervals, but vary somewhat depending 
upon both internal and external schedules. 
In addition, there are from time to time 
special releases, affecting a limited 
number of users, which are necessary 
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to meet our external commitments. The 
basic release plan is designed so that 
any given user Of OS/360 can install 

1 or 2 releases per year depending upon 
his requirements. | 


PTF support for a release of OS/360 is 
provided for 9 months after the follow- 
on release. This means a release is 
Supported with PTFs for approximately 

15 months after its initial availability. 


The OS/360 release plan (reference P68- 
170 for details) is designed to provide 
users with early availability, improved 
reliability and maximum flexibility. 
The OS user may choose which release 

he wants to install and when he wants 
to install it. 


0S/360 CRBE OR CRJE WITH LCS PRECAUTION 


A very serious overrun problem exists 
when CRBE or CRJE is installed with LCS. 
These programs utilize data chaining 
with small byte counts in the channel 
programs for the 2314. These channel 
programs cannot be executed from LCS. 


Implementation of Main Storage Hierarchy 
Support under OS/360 will enable the 
execution of 2314 command chains from 
high speed storage. Where this solution 
is not desirable, CRBE or CRJE must be 
modified to permit use in an LCS 
environment. 


DOS/360 IPL SYSTEM IDENTIFICATION 
MESSAGE 


This contribution has not been submitted 
to any formal IBM test. Potential users 
should evaluate its usefulness in their 

own environment prior to implementation. 


Installations with several variations 
of DOS concurrently available need a 
Simple method of having the operating 
system log its identification during 
the IPL procedure. 


The ‘IPLMSGS macro, Exhibit 1, when 
incorporated in a supervisor assembly, 
Exhibit 2, will produce just such a 
message, Exhibit 3. The code should 
be release independent, and can easily 
be extended to produce multiple lines 
of message. 


This method of identifying the pack being 
IPLed has been in use at a Datacenter 

for about two years. Constructions of 
DOS on the several machines are easily 
distinguished. 
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} ; ; *The 68-21 article gives the core location 
Alternative approaches to this same of the '1' part of '$$A$SUP1" as x'3503° 
problem have been suggested in INLs 68- for DOS III. The correct location for 
11 and 69-19. (A method for selecting DOS Releases 20 and 21 is X‘'351B°. 


an altenate supervisor during the IPL 

is given in INL 68-21.*) The method given 
here has the advantages that it is: 
selectable at supervisor assembly time 
(use/don't use the IPLMSG card), and 

that it doesn't alter any IBM supplied 


components. 
’ bOoS/360 IPL SYSTEM IDENTIFICATION MESSAGE 


CATALS A.TPLMSG 

MACRO 

TPLMSG 

CBLA SAG15 

ATF (£AG15 GE 6).0K MACRC SFQUENCE CHECK 
MNOTE 7,'THE REST BLEW. WHY NOT THIS THN?! 


MEX TT 
OK ANOP 
x 
* THE FOLLOWING CODE IS PROVIDEN TO GIVF SYSTFM 
* IDENTIFICATION AT IPL TIME 
* 
* IT 1S INSERTED FOLLOWING THE TEMPORARY CODE IN THE LTA 
»* IN THE 'SEND® MACRO. THE LTA IS 1290 BYTES LONG, OF 
«* WHICH APPROXIMATELY 74 IS USED BY SEND. 
o* 
-* SUPERVISC2 DECK ARRANGEMENT IS - 
@ . OVCGENS 
.* ASSGNS 
* SEND 
o IPLMSG | 
»* 7IMSG 0 C'MESSAGFE TEXT AS DESTRED! 
* END 
IJBSUP29 CSECT : 
USING LTA,RE . CONTINUE 8ASF USED IN TEMP CODE 
x 
ARG  RFS2211 
BAL R8,7ZIDCONE . BRANCH TO PATCH CONE 
* 
ORG  MVCEND . EXTEND CNKARN INTO LTA 
7ZIPDCNNE OS nD 
RCTR PEO . EXECUTE OVERLAYED CODE 
BCTR RE,O. 
* ADDED CODE STARTS HERE 
MVC CAW,ZZCCWADR . CCW ADDRESS TO CAW 
ZI OG FO OX OLF' 1052 ADDRESS 
sia z7ias . TYPE JHE MESSAGE 
BNZ 77RETURN. IF LOG DOWN, FOPGFTa IT 
TIQ = Z7LOG 
RC 2y%*-4 LONP WHILE TYPING 
7ZRETURN BR RA 
x 
77CCW COW  09,77MSG,X*20',L*Z2MSG 
ZZCCWADR DC A(ZZCCW) 
»* THE '"7Z2MSG! CARD MAY BE PUT IN RIGHT HERE, IF PREFERRED 
* 
MEND 
EXHIBIT 1 
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DOS/360 IPL SYSTEM IDENTIFICATION MESSAGE 


3239+M252C082 EQt X00! 


3240+ M12 &5 EQU NATFLG 
3241+M1287 EQU NBTFLG 
32424+M2311 EQU NBTFLG 
32434+M2321 EQU NBTFLG 


32444M2314 EQU NBTFLG 
3245+M14C3- EQU—sX 008 


32464M1404 EQU M1403 
32474M1443 FOU X00! 
32484+M1445 EQL M1443 
32494M1403U EFQU x00! 
3250+M2671 EQU  NBTFLG 


32514+MUNSP EQU X*00' 3-2 

2252+MUNSPB EQU NBTFLG 3-2 

3253 IPLMSG 

42 544+% 

3255+4+% THE FCLLOWING CCDE 1S PROVIDED TO GIVE SYSTEM 
3256+% IDENTIFICATION AT IPL TIVE 


3257+ | 

3288+7TJBSUP20 CSECT 

3259+ LSING LTA,RF . CONTINUE BASE USEL IN TEMP CODE 
3260+* 

32E1+ CRG RES2311 

3262+ BAL R8,ZZICCOQCDE .~« BRANCH TG PATCH CODE 
3263+% 

A2t4+ CRG MVCEND . EXTEND CNWAREC INTO LTA 
3265+ZZ77TDCCDE DS Oc 

3266+ BCTR RE,O . EXECUTE OVERLAYEC COOEF 
3267+ PCTR RE,O . * 

A2EE+% ADDED CCCE STARTS FERRE 
22ES+ MYC CAW,ZZCCWADR . CCW ACPCRESS TO CAW 
3227C4+ZZLCG EQL X'OLF® . 1052 ADDFESS 

32 71+ SIC ZZL0G . TYPE THE MESSAGE 

3212+ BNZ Z7RETURKA . IF LOG COWN, FORCET IT 
3273+ TIO ZZL0OG | 

3274+ BC 297474 .« LCCP WHILE TYPING 

32 154Z7RETURN BR R8 

32 16+% 

2277+Z72ECW CCh 09 gZ7MSG5X* 20% ,L*ZZMSG 

32784+Z77CCWADR OC A(ZZCCW) 

_3275+% ; a 
32£C ZZMSG NC C'CATACENTER OCS-20 MOC 3C ASSEN SYSSLB! 
32 F1 END 

EXHIBIT 2 


DATACENTER DOS-20 MOD 30 ASSGH SYSSLB 
OLLOA GIVE IPL CUNTRUL COMMANDS 
set date= etc., etc., 


EXHIBIT 3. 
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DOS/360 SUPERZOT 


SUPERZOT, the DOS equivalent of the OS 
SUPERZAP, is one of those “I wish I had 
a“ programs. It is used to replace 
absolute code ina phase in the CIL. 

The use of SUPERZOT may be preferable 

to the alternatives of linking or merging- 
in corrected code. (The code-to-be- 
corrected may have to be obtained by 

a CSERV/PUNCH, and REPing.) Existing 
code that is to be changed is verified 
before being replaced to help forestall 
errors. SUPERZOT is a CE Service Aid, 
available through FE Parts Centers as 
program 3602Z-00-025. The instructions 
and write-up formerly in RETAIN are 
reprinted below for those who may have 
missed them. This item is in microfiche 
on PS EWS, card 24, 2Z2S.24.0, frame A117. 


SUPERZOT is mentioned in passing in INL 
69-18, under ‘Serviceability M Design 
Memo* on page 5, item V.A. (6). 


It has been used to make PTF code changes 
to programs without having to relink 

the module changed. It has also been 
used to re-configure the system without 
re-assembling the supervisor when some 

7 and 9 track tapes were interchanged. 


INL articles concerning OS code modifi- 
cations are usually given in terms of 
SUPERZAP changes. Now this facility 
is available to the DOS user as well. 


DOS/360 SUPERZOT Service Aid 360200025. 


ZUPERZOT is a program designed for use 
under DOS which closely resembles 
SUPERZAP-its big brother for OS. It 
allows conditional alterations of a core- 
image library phase(s) as it resides 

on disk, where SYSRES can be a 2311 or 

a 2314. Four control card types are 
accepted from SYSIPT: 


1. NAME-defines phase name desired. 

2. BASE (optional)-indicates offset 
address or relocation factor to be applied 
to a VERIFY or REP card address. 

3. VERIFY- defines address of patch and 
contents. 

4. REP-defines address of patch and 
replacement data. 


More than one phase can be modified in 
each run. The job is completed when 

a /* card is detected. Several VERIFY 
and REP cards may be applied against 
any given NAME card, however a REP card 
must immediately follow its associated 
VERIFY card and must contain the same 
address. The length of data in both 
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the VERIFY and REP cards must also be 

the same. The BASE card may be optionally 
included before the VERIFY and REP cards 
that it should be applied against. A 

new NAME card or a BASE card will reset 
any previously given BASE address. All 
control cards can be written in free 
format except the data portions of the 
VERIFY and REP cards. The data must 

be in 2-byte groups (4 hex characters) 
separated by a comma, but are not required 
to address any boundary alignment. A 
blank column acts as a delimiter. The 
address field of the BASE, VERIFY and 

REP cards can be 1 to 6 hex digits. 

All cards can utilize 80 columns. 
Continuation cards are not recognized. 
Comments may follow last field on any 
card after the blank delimiter. 


Possible error messages printed on 
console are: 


1. Invalid control card correct and EOB 
Cunknown card type) 

2. Phase not in library 

3. Invalid verify card 

4G. Verify address outside phase 

5. Verify data compare error 

6. REP card out of sequence 

(not preceded by a verify) 

7. Invalid REP card 

8. Verify and REP lengths disagree 

9. Verify and REP addresses disagree 
Messages 2 through 9 will cause job to 
be cancelled. 


SUPERZOT can be linkedited and executed 
in any partition with 6K using an ACTION 
Fl or F2 card. Program is not self- 
relocatable. Care should be exercised 
in its use in a multi-programming 
environment as no attempt is made to 
ensure other partitions are inactive 

or that a condense or reallocation could 
be in progress. Results under these 
conditions are indeterminate. 


SAMPLE JOB STREAM: 


The following job will modify the portion 
Of SUPERZOT and restore it to original. 


// JOB TEST SUPERZOT 
// EXEC SUPERZOT 
NAME SUPERZOT 
BASE 3800 (relocation factor obtained 
from linkedit map) 
VERIFY 810,5090,C676,9205 
REP 810 1234,5678,9012 
VERIFY.810 1234,5678,9012 
REP 810 5090,C676,9205 
/* 
76 


For IBM Internal Use Only 5 


December 19, 1969 


S/360 MODEL 25 ICA NOTE ON DVCGENING 


Although the Model 25 Integrated Communi- 
cation Attachment reacts as if it were 

a 2703, it need not be considered 
exclusively as such. 


ATS under DOS requires a 2702, and during 
initialization rejects any other device 
type code in the supervisor. For ATS, 

at least, the start-stop lines may be 
DVCGENed as 2702s. 


This has been done at one Datacenter 

and ATS is running quite contentedly. 
While testing the possibility of using 
the Mod 25 for ATS, the lines were ADDed 
as 2702s with various MODE=(SADx) entries. 
There was no apparent effect on either 
DOS or ATS when running the gamut of 
possible SAD entries. The final system 
supervisor was assembled specifying 

2702 lines, without including a MODE 
parameter, in the DVCGEN cards. 


This works, of course, because the problem 
program, ATS, does not use any 
communications device-dependent channel 
commands. (Or if it does, the ICA has 
been designed not to react adversely.) 


NOTE: A SECOM article 360A-CX-18X/076 
advises that DOS ATS is being improved 
to run with 2701 and 2703 as control 
units also. 


INFORMATION ABOUT THE NEWSLETTER 


EVERY SALESMAN AND SYSTEMS ENGINEER 
SHOULD RECEIVE ONE COPY OF THE NEWSLETTER. 
Each FE Branch Manager should receive 
five copies for distribution to Customer 
Engineers. 


The IBM Installation Newsletter is 
distributed only to IBM locations and 

is not available to customers. The 
Newsletter is separated into two parts. 
The first part contains information which 
is intended only for IBM personnel and 
the pages are labeled For IBM Internal 
Use Only. THESE PAGES, OR REPRODUCTIONS 
OF THEM, ARE NOT TO BE GIVEN TO CUSTOMERS. 
However, using your own good judgement, 
you may discuss pertinent information 
from these pages with a customer. The 
second part contains information which 
may be reproduced by the Branch Office 

at their discretion and given to 
customers. These pages are not labeled 
with any restrictive classification. 
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Note that when any abstracts for Type 
III and Type IV programs are given to 
the customer, he must be informed that 
the disclaimers for Type III and Type 
IV programs as contained in the 
Newsletter, applies. YOUR 

COOPERATION IN PROPERLY HANDLING 

THE CONTENT OF THE IBM INSTALLATION 
NEWSLETTER IS NECESSARY FOR ITS 
CONTINUED PUBLICATION. 


Changes to the quantity of the Newsletter 
shipped are to be made by the Admini- 
stration Manager. He should update and 
send the DP Administration Managers' 
Document Control card (Electro IBM N61508) 
to DP Document Control, DPD HQ. 


Direct inquiries concerning the contents 
of this Newsletter to: 


W. F. Malmborg, Editor 

IBM Installation Newsletter 
Dept. 812, DPD HO 

112 East Post Road 

White Plains, New York 10601 
Telephone 914 696-3781 

Tie Line 254-3781 


NEW PUBLICATIONS ANNOUNCED BY PRLS 


Information is extracted and condensed 
from the weekly PRLS (Publications Release 
Letters) to insure that all Salesmen 

and Systems Engineers are aware of new 
or revised Reference Sources, Marketing 
Publications, and Field Engineering 
Publications. Normally, each issue of 
the Newsletter will contain information 
extracted and condensed from two PRLs, 
one following the other. The information 
will be placed in the Newsletter in its 
original sequence with no rearrangement 
of form numbers or titles. It is not 
intended to replace existing information 
and distribution sources. You should 

be certain that you are aware of these 
sources. 


Do not use the condensed Newsletter 
information to order publications. 
but not all (for example, some films 
and slide sets) of the items are available 
from Mechanicsburg. To receive the items 
you need without delay, prior to ordering 
check the REQ (Requisition Form) code 

in the "Accumulative Supplement to IBM 
Publications Current Price List (220- 
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O0S/360 MULTIPLE CONSOLE SUPPORT 2740 
CHARACTER SET 


The 2740 support under OS/360 MCS requires 
the EBCDIC character set, feature #9571. 
All installations planning to use this 
support should be advised to insure that 
they order the correct feature. 


OS/360 ADDING START COMMAND PROCEDURES 


This contribution has not been submitted 
to any formal IBM test. Potential users 
should evaluate its usefulness in their 
own environment prior to implementation. 


In OS, START commands reference cataloged 
procedure names such as RDR, WTR, etc. 
Programs which are executed as a result 
of a start command must be listed in 

a module of linklib. This module name 

is IEEVLNKT. The contents of IEEVLNKT 

is illustrated in figure one with the 
name IEBGENER added to the bottom of 

the list. IEBGENER was added so that 

two new cataloged procedures, CTC and 
CTP, could be added to the system (see 
coding examples in figures two and three). 
These cataloged procedures allow the 
operator to do card-to-card and card- 
to-printer operations easily. He merely 


specifies: 
Ss ctc.s for card-to-card 
or s ctp.s for card-to-printer. 


This technique might be used for OLTEP 
(reference INL No. 69-21,) by adding 
IFDOLT to IEEVLNKT and adding a simple 
cataloged procedure something 1ike: 


//JOBLIB DD DSN=sys1.OLTLIB, disp=old 
//stepi exec pgm=IFDOLT 
//diagmsg DD sysout=A 


with the name of OLTEP. 
CTC and CTP have been used on an OS 


Release 17 MFT system. It has not been 
tried with OLTEP. 


//TEEVNLKT JOB 251, PETERSON, MSGLEVEL=1 
//STEP1 EXEC ASMFCL 


//ASM.SYSIN DD * 

ITEEVLNKT CSECT 

REFTBL EQU * 
DC CL8*IEFIRC* 
DC CL8‘IEFSDO80‘* 
DC CL8*TEEVMNT2°* 
DC CL8* I HKRJBGN* 
DC CL8*IEFVRRC' 
DC CL8* TKDINPRO* 
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DC CL8‘IKDSGJP* 
DC CL8‘ IEFVMA‘ 
DC CL8*IKAGFX'* 
DC CL8‘IKAGJP* 
DC CL8‘IEFSDO060° 
DC CL8‘*IEBGENER* 
DC xX*00° 
END 


/* 
//LKED.SYSLMOD DD DSNAME=SYS1. LINKLIB 
(IEEVLNKT) , DISP=OLD 


/* 
Figure 1 

of ADD LIST=ALL, LEVEL=01, SOURCE=0, 
NAME=CTC 

//STEP1 EXEC PGM=IEBGENER , 


//SYSPRINT DD SYSOUT=A 

//SYSIN DD DUMMY 

//SYSUT1 DD UNIT=00A,DCB=(CRECFM=F, 
BLKSIZE=80, LRECL=80) 

//SYSUT2 DD UNIT=00D,DCB=(RECFM=F, 
BLKSIZE=80, LRECL=80) 


Figure 2 


/ ADD LIST=ALL, LFVEL=01, SOURCE=0, NAME= 
CTP | 
//STEP1 EXEC PGM=IEBGENER 


//SYSPRINT DD SYSOUT=A 

//SYSIN DD DUMMY 

//SYSUT1 DD UNIT=00A ,DCB= (RECFM=F,BLKSIZE= 
80, LRECL=80) 

//SYSUT2 DD SYSOUT=A ,DCB=(CRECFM=FB, LRECL= 
80, BLKSIZE=1600) 


Figure 3 


OS/360 COBOL F CLIST ADDITIONS 


This contribution has not been submitted 
to any formal IBM test. Potential users 
Should evaluate its usefulness in their 
own environment prior to implementation. 


The following technique may be of interest 
to OS Release 17 COBOL F users. 


The CLIST option does not produce global 
tables, literal pools, or register 
assignments. Three T instructions were 
changed and 2 patches made to the COBOL 
compiler to produce these items along 
with the condensed listing. 


The DELINK 0 program was run to provide 
Space for the patches and then re-linked. 
Following this, SUPERZAP was run to make 
the changes and additions. 
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These modifications have been tested 
only for Release 17. Subsequent releases 
must be checked for applicability. 


The JCL used is shown in Exhibit 1 
following: 


4/GO EXEC PGM=DELINKO 

7/SYSPRINT DD SYOUT=A 

//SYSPUNCH DD DSN=&TEMP (A), DISP= (NEW, 
PASS) , UNIT=SYSDA, 

/7/ 

//SYSLIB DD DSN=SYS1.LINKLIB, DISP=SHR 

//SYSIN DD * 

» IEQCBL60 IEQ604 X*F1C* 


//%KED EXEC PGM=IEWL, PARM=*XREF, LET, LIST, 
NCAL* 
4/SYSLMOD DD DSN=SYS1.LINKLIB, DISP=OLD 
//SYSPRINT DD SYSOUT=A 
//SYSPIN DD DSN=*.GO.SYSPUNCH, DISP=(OLD, 
DELETE) 
//SYSUT1 
//SYSLIN 
INCLUDE SYSPIN(A) 
INCLUDE SYSLMOD (TEQCBL60) 
ENTRY IEQ601 
NAME IEQCBL60(R) 
//ZAP EXEC PGM=SUPER ZAP , REGION=60K 
//SYSPRINT DD SYSOUT=A , 
//SYSLIB DD DSN=SYS1.LINKLIB, DISP=OLD 
//SYSIN DD *,DCB=BLKSIZE=80 
NAME IEQCBL60 IEQ602 
BASE 0C50 
VERIFY 14cCC 9110 
REP 14cC 9112 
NAME IEQCBL60 IEQ603 
BASE 1558 
VERIFY 15D6 4460,8098 
REP 15D6 47F0,AEF2 
VERIFY 2546 58F0,C3E4 
REP 2546, 47F0,AEEO 
NAME IEQCBL60 IEQ604 
BASE 2558 
VERIFY 3438 40404804040 404040404040 4040 4040 
HOUOKOLOLOSOSOLO 


DD UNIT=2314, SPACE=(TRK, (50,50) ) 
DD * 


REP 
REP 
REP 
REP 
REP 
REP 


3438 
343C 
3440 


9110915B 

Y7808FF4 

58FOC3E4 

3444 OSEF 

3446 4TFO8FF4 
344A 9110915B4780808C446080984 

TFO808247F0808C 

NAME IEQCBL60 IEQ606 

BASE 4518 

VERIFY 4F30 9110 

REP 4F30 9112 

NAME IEQCBL60 IEQ607 

BASE 51B0 

VERIFY 548C 9110 

REP 548C 9112 
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 DOS/360 ONE CARD READER SERVING TWO 


PARTITIONS 


This contribution has not been submitted 
to any formal IBM test. Potential users 
should evaluate its usefulness in their 
own environment prior to implementation. 


The ASSGN1 DOS supervisor generation 
macro, described in INL 68-25, can be 
used to permanently assign a card reader 
to more than one partition as SYSIPT, 
SYSRDR, etc. Jobs can be started through 
the reader, and when executing, another 
job can be begun in another partition 
through the same reader. To prevent 
Job Control, upon EOJ, from flushing 

out the reader looking for a /&, the 
PAUSE command (no slashes, and with the 
partition I.D.) is employed. Using 
this approach, Job Control comes to the 
console with the ‘READY FOR 
COMMUNICATIONS message at program EOJ. 
Typical job stream in the reader: 


//JOB BACKGRND JOB A 
PAUSE BG 

//EXEC 0601 

//JOB FOREGRND JOB B 
PAUSE F2 (or F1) 


//EXEC 0700 


In addition to SYSPIT and SYSRDR for 
both partitions, it is recommended that 
SYSO04 also be assigned to the reader 
for IBM utitlities and COBOL. With this 
installed, no // ASSGN statements for 
the reader will be accepted by JOB CONTROL 
- all will result in ‘CONFLICTING I/0 
ASSIGNMENTS messages, therefore users 
should read input data cards on either 
SYSIPT (ALC) or SYSOO4 (COBOL) and not 
employ // ASSGN cards for the reader. 


Example of console operation to get the 
sample job stream going: 


BG JOB BACKGRND 
PAUSE BG 

AR READY FOR COMMUNICATIONS 

AR BATCH F2 


JOB A 


F2 

F2 JOB FOREGRND JOB B 
PUASE F2 

BG READY FOR COMMUNICATIONS (EOJ) 

BG /& (ENTERED BY OPERATOR) 

BG EOJ BACKGRND 

BG STOP 

F2 READY FOR COMMUNICATIONS (EOJ) 

F2 /& (ENTERED BY OPERATOR) 

F2 EOJ FOREGRND 

F2 STOP 
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If one of the partitions sharing the 
reader is using it to read input data 
cards and the operator wants to start 
another program in the other partition, 
he may do so by entering the JOB CONTROL 
statements through the console, but if 

a PAUSE is not included, any /&, or // 
JOB not preceded by a /& since the last 
// JOB, Will post an EOJ in the reader 
pub and cancel the program that is reading 
input data cards with a ‘READING PAST 
/&" message. 


This technique has been used with Release 
20 of DOS. 


DTR PUNCHING WITH DOS UTILITY 


This contribution has not been submitted 
to any formal IBM test. Potential users 
should evaluate its usefulness in their 
own environment prior to implementation. 


The manual of operations for the Card 
Deck Retriever Program supplied with 
a shared Distribution Tape Reel (DTR) 
with Type III or IV programs ordered 
from PID indicates that other methods 
can be used to punch the card decks. 


The following is a method using a DOS 
utility: 


JOB TAPECARD DOS/360 TAPE TO CARD 
UTILITY | 

ASSGN SYSOO4, x'180", x'cCO? 

MTC REW, SYS004 

MTC FSF, SYS0O04, NN 
WHERE NN=2+3 TIMES NO. 
SKIPPED 

ASSGN SYS006, X‘OOA‘ 
UPSI 10000000 NO INPUT LABELS 
EXEC TPCD 

UTC TR,FF,A=(80,1600), B=(80,80), 
IN, R1, S1, O1 

END 

END OF DATA 

END OF JOB 


// 


CARD DECKS 


The operator response to the console 
message: 


8001D IS IT EOF 
is: Y EOB 

Use the following // MTC cards: 

to retrieve the first card deck (N=0) 
// MTC FSF,SYSOO4, 2 

, (N=3) 


To retrieve the fourth card deck 


// MTC FSF,SYSO004,11 
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1130 RPG STACKER SELECT DURING 
CALCULATIONS 


This contribution has not been submitted 
to any formal IBM test. Potential users 
should evaluate its usefulness in their 
own environment prior to implementation. 


Input card records can only be selected 
to the alternate stacker on “record type" 
criteria. If it is desired to stacker 
select an input card record on Say, an 
indicator being set on during calculation, 
the only recourse is to describe the 

file as a combined file and “*false®™ punch 
the card to use the stacker select option 
on output. This is undesirable because 
punching speed is Significantly slower 
than reading. 


The following coding example represents 
an assembly language subroutine (and 
associated control cards) which will 
permit input cards to be selected to 

the alternate stacker during calculations. 


//BASM 
ENT STACK 
rocc DC O 
DC 71480 
STACK DC *- * 
XIO rocc 
BSC I STACK 
END 
// DUP 
* STORE WS UA STACK 
Example: 


An input record is chained to a disk 
file. The accessed disk record contains 
field PAT which is tested for being less 
than 200.00. If it is, indicator 04 

is turned on. To select the card which 
accessed this record to the alternate 
stacker, the following line is written 
in the calculations section: 

Cc 04 EXIT STACK 

This technique has been tested and used 
by the author. 
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TYPE III AND IV PROGRAMS 


Type III programs are those which have heen submitted by one or more IBM employees. 
They are programs of general interest submitted for unrestricted distribution. 

They have met a basic set of programming and documentation standards but are not 
program tested in any formal fashion by the IBM Corporation. The user is expected 
to make the final evaluation as to their usefulness in his own environment. These 
programs were available for delivery from the Program Information Department prior 
to June 23, 1969, 


Type IV programs are those contributed for unrestricted distribution by one or 
more authors of which at least one is an employee of an IBM customer. They are 
made available by IBM essentially in the author's original form, but conform to 
published Type IV standards, IBM exercises no control over the technical content 
of the documentation but merely assures that the quality of reproduction is 
satisfactory. Type IV programs have not been tested by IBM. The user is expected 
to make the final evaluation as to their usefulness in his own environment. 


IBM MAKES NO WARRANTY, EXPRESS OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE 
IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE AS TO 
THE DOCUMENTATION, FUNCTION OR PERFORMANCE OF THESE PROGRAMS. 


TYPE III PROGRAMS WITH 
SERVICE A CLASSIFICATION 


Type III programs which were given Service A Classification, perform functions 
which may be fundamental to the operation and maintenance of the user's system. 
These programs have not been subjected to formal test by IBM. 


Until reclassified, IBM will provide for these Type III programs with the following: 
(a) Central Programming Service including design error correction and automatic 
distribution of corrections; (b) Field Engineering Programming Service including 
design error verification, Authorized Programming Analysis Report (APAR) 
documentation and submission, and application of Program Temporary Fixes or 
development of an emergency by-nass when required. 


IBM does not guarantee service results or represent or warrant that all errors 
will be corrected. The user is expected to make the final evaluation as to the 
usefulness of these programs in his own environment. 


THE FOREGOING IS IN LIEU OF ALL WARRANTIES, EXPRESS OR IMPLIED, INCLUDING, BUT 
NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A 
PARTICULAR PURPOSE. 
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on nn ne Sw ee NEW TYPE IV PROGRAM -owqqnmn en nn nn enn nnn en nn eee 
OS MASTER SCHEDULER INITIALIZATION IMPROVEMENTS 

DESCRIPTION - These modifications to the MFT and MVT Master Scheduler Initialization 

modules cause improved generation of automatic commands. In addition, messages 

are generated prompting the operator, in situations where he would otherwise he 

waiting for a wait state. The modifications are for OS/369 Release 17 or later. 


PROGRAMMING SYSTEMS - Written in S/360.0S ALF; overates under control of OS/360 
MFT or MVT. 


MINIMUM SYSTEM REQUIREMENTS - These modifications require a level G (128K) or 
larger CPU for MFT, and a level H (256K) or larger CPU for MVT. They have been 
tested for both MFT and MVT on a 369N/40H. 
BASIC PROGRAM PACKAGE 

DOCUMENTATION - Write-up. 

MACHINE READABLE - Source code and sample problem. 
OPTIONAL PROGRAM PACKAGE - None. 
ORDERING INFORMATION: PROGRAM NUMBFR 360D050003 


PROGRAM NUMBER DISTRIBUTION MEDIUM USER VOLUME 


EXTENS ION TY PE CODE REQUIREMENT 

BASIC none MT 9/1609 29 01 

MT 9/800 28 01 

MT 7DC/800 26 01 

OPTIONAL none none none 
we een nn nn en en nee NEW TYPE IV PROGRAM -----------<------------------ == 


CDUTL, A GENERAL PURPOSE CARD UTILITY 

DESCRIPTION - CDUTL is a general purpose card utility which will reproduce, gang 
punch, enter, sequence and ID, and allow the key board to be used as a card punch. 
Program will reproduce binary decks. 


PROGRAMMING SYSTEM - Written in BAL it will operate with either V1 or V2 of the 
1130 Disk Monitor. 


MINIMUM SYSTEM REQUIREMENTS - Same as those required for the 1130 Disk Monitor. 
BASIC PROGRAM PACKAGE 
DOCUMENTATION =- Write-up. 
MACHINE READABLE - Object code, 
OPTIONAL PROGRAM PACKAGE =- None. 
ORDERING INFORMATION: PROGRAM NUMBER 1130000011 


PROGRAM NUMBER DISTRIBUTION MEDIUM. USER VOLUME 


EXTENSION TYPE CODE REQUIREMENT 
BASIC none CARDS 15. ~~—~——~*none 
OPTIONAL none none none 
wre ee nn on oo NEW TYPE IV PROGRAM -----22-2--- 22 --- nen nnn eee 
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"FAST" A FORTRAN Program for the Defitherm Process. The major cause of unlevelness 
in the dyeing of acrylic fibers is the presence of temperature differences in the 
dyebath during the heating-up phase. In the Defitherm Process the exhaustion rate 
of Basacryl dyes is controlled thermally to ensure production of level dyeings. 

To accomplish this, dyeings must be controlled at a certain temnerature which is 
dependent on the following: DYESTUFF, SHADE DEPTH, FIBER, DYFING EQUIPMENT. It 

is the purpose of "FAST" to determine this dyeing temperature in addition to the 
amount of Thermoregulator (Nefithermol TR) required. Because of the best exhaustion 
rate for various dyeing equipment must be determined empirically, the program does 
compute this variable but allows the dyer the option of selecting a dyeing time 

of 15, 30, 45, 60, 90, or 120 minutes, In this manner the dyer can optimize on 

the time parameter basing his decisions on cost and the available dyeing equipment. 


The single input card to the program includes dyestuff numbers and corresponding 
concentrations for a given formula. The desired dyeing time may also be selected 
on this card, | 
PROGRAMMING SYSTEM - Written in FORTRAN and operates using the 1130 Disk Monitor. 
MINIMUM SYSTEM REQUIREMENTS - An 8K 1130, 1442 Card Read Punch, 1132 Printer. 
Common 248, Variables 198, Program 1234, Disk Requirements; Sectors 15. System 
may be operated without benefit of the 1132 Printer by changing the variable NOUT 
in the Mainline program to A 1 rather than 3. 
BASIC PROGRAM PACKAGE 

DOCUMENTATION = Write-up. 

MACHINE READABLE - Source code and sample problem. 
OPTIONAL PROGRAM PACKAGE —- None. 
ORDERING INFORMATION: PROGRAM NUMBER 1130173004 


PROGRAM NUMBER DISTRIBUTION MEDIUM USER VOLUME 


EXTENSION TYPE CODE REQUIREMENT 
BASIC none CARDS 15 none 
OPTIONAL none none none 


ACCUMULATIVE LIST OF NEW TYPE IIT AND IV PROGRAMS 


Following is an accumulative list of new Tyne III and Type IV programs which have 
been made available since the last edition of the Catalogs of Programs or their 
Supplements. Abstracts describing these programs can be found in the Installation 
NewSletter Issue No. shown below. 


Program Program Title Newsletter 
Number Issue No. 
360D-00.0.017 SPOOL, A PACKAGE TO CONVERT CURRENT OR FUTURE 

PRINTED REPORTS TO MAGNETIC TAPE FOR FOREGROUND OR 

BACKGROUND PRINTING LATER 69-09 
360D-00.0.020 2495 UTILITY PROGRAM FOR 0S/36N 69—11 
360D-00.0.022 PUFER - PUNCH FEED READ UTILITY CARD TO TAPE 69-15 
360D-00.1.021 S/360 GENERALIZED EXTRACTION AND MATCH PROGRAM 69-07 
360D-00.1.022 NYU PRINT=-UTILITY PROGRAM 69-07 
360D-02.0.004 INDEX SEQUENTIAL ERROR BYTE CHECK ROUTINE 69=24 
360D-00.2.006 OS SYSTEM/360 FLOWCHART (OS FLOW): DOS FLOWCHART 

UNDER OS/360 69-03 
360D-00.3.025 © S/360 DOS TAPE TO PRINTER/PUNCH SPOOLING SYSTEM 69=08 
360D-00.3.026 FORTRAN TAPE DISK READ WRITE SUBROUTINES 69-16 
360D-00..3.027 SEVEN TRACK OCTAL TAPF DUMP 69-11 
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360D-00.3.028 


360D-00.3.029 
360D-00.4.015 
360D-00.4.018 


360D-00.5.005 
360D-00.5.006 
360D-00.6.011 


360D-01.0.009 


360D-01.1.006 
360D-01.3.002 


360D-01.4.010 
360D-03.0.007 
360D-03.0.008 
360D-03.0.010 
360D-03.0.012 
360D-03.1.014 


360D-03.2.011 
360D-03.2.013 
360D-03.2.014 
360D-03.2.015 
360D-03.3.008 


360D-03.3.009 
360D-03.3.010 
360D-03.3.011 
360D-03.4.026 
360D-03.4.027 
360D-03.4.028 
360D-03.4.031 
360D-03.6.009 


360D-03.6.010 
360D-03.6.012 


360D-03.6.013 
360D-03.6.017 
360D-03.6.018 
360D-03.7.025 
360D-03.7.026 


360D-03.7.027 


360D-03.7.028 
360D-03.7.031 


360D-03.8.013 
360D-03.8.015 


360D-04.0.008 
360D-04.0.010 


360D-04.0.009 
360D-04.1.010 
360D-04.1.011 
360D-04.2.007 


360D-04.6.001 
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1400 INPUT/OUTPUT STANDARD LABEL PROCESSING EXITS 
FOR 483 DISK & TAPE SORT 

TAPE FILE EXTENSION MACRO - INSTRUCTION 

DAP DIRECT ACCESS PATCH PROGRAM 

IBM SYSTEM/360 INDEXED SEQUENTIAL DASD TO PRINT 
UTILITY 

FORMATTED LISTING OF VTOC FOR 0OS/360 

SHAREDISK 

A HYPERTEXT EDITING SYSTEM FOR THE S/360 USING 
THE 2250 DISPLAY 

OS/360 DATF AND TIME SUBROUTINE (DT01) WITH 
CONVERSION FROM JULIAN DATE TO GREGORIAN 

COMPILE AND GO FOR THE OS 360, PL/I (F) COMPILER 
1287 CHECK DIGIT AND NUMERIC RECONSTRUCTION 
MACROS 

SYSGEN AIDE: DIRECTORY DUMP 

S/360 MOD 44 MULTIPROGRAMMING SYSTFM 

DOS IOCS LOGIC MODULE SOURCE STATEMFNT GENERATOR 
STENO TO ENGLISH TRANSLATION 

PARS CONTROL (ACP) 


FAST ASSEMBLER - INTERPRETER FOR SYSTFM/360 ASSEMBLER 


LANGUAGE PROGRAMS (VERSION 1) 

OS/360 PL360 COMPILER 

BASIC COMPILFR UNDER TSS/360 

THE SIMSCRIPT II PROGRAMMING LANGUAGE 

THE XPL COMPILER GFNERATOR SYSTEM 

COURSE III/OS A RFAL-TIMF COMPUTFR ASSISTED 
INSTRUCTIONAL SYSTEM 

1404 IOCS MACROS FOR DOS/TOS 

SNAP PROCESS OR (PROTOTYPE) 

COMIT/360 

BSAM SUBROUTINE PACKAGE FOR OS 360, VERSION I 
FORTRAN RANDOM I/O SUBROUTINE 

2269 LOCAL TERMINAL USERS SYSTEM (LOTUS) 
KNUTH PROPOSAL INPUT/OUTPUT PACKAGE (KIOP) 


OS/360 COBOL CROSS-REFERENCE AND RESEQUENCING 


PROGRAM 
JOB STREAM MANAGER OS/MVT 


PROGRAM FOR THE CREATION OF CROSS REFERENCE TABLES, 


FROM S/360 RPG SOURCE PROGRAMS, FOR INDICATORS AND 
FIFLD NAMES 

SYSTEM MANAGEMENT ROUTINES OS/MVT 

PL/60 

NEATER: A PL/I SOURCE STATEMENT REFORMATTER 
CARRIER RETURN/LINE FEED ON THE 1052/53, MISLCRLF 
DCLC A DOS/TOS/OS ASSEMBLER MACRO TO DEFINE A 
LOWER-CASE CHARACTER CONSTANT - DEFINE-CONSTANT- 
LOWER~CASE 

EDIT MACRO FOR DOS, TOS, OR OS ASSFMBLY LANGUAGE, 
S/360 

DOS MACRO FOR TYPEWRITER INPUT/OUTPUT 

DOS MACROS TO DUMP ISAM FILES FROM 2311 OR 2314 
TO TAPE AND RESTORE FROM TAPE TO 2311 OR 2314 
PL/I STRING FUNCTIONS 

A PLAN FOR A LINKED-DIRECT FILE, WITH OPERATING 
ROUTINES, IN COBOL 

DOS COBOL CROSS REFERENCER 

SIMPLIFIED INPUT-OUTPUT AND DEBUGGING MACROS FOR 
ASSEMBLER LANGUAGE USERS 

PCMSG - PROGRAM CHECK MESSAGE 

DEBUGGING AID FOR DOS PROGRAM TESTING 

S/360 POST MORTEM DUMP (PCP/MFT) 

PROGRAM TO AID IN OPTIMIZING COMPUTE BOUND JOBS BY 
INDICATING THE MAJOR PROCESSING LOOPS 

A PROGRAM FOR GRAPHIC ON-LINF DEBUGGING ON AN IBM 
2250 DISPLAY 


Issue No, 


69-19 
69-20 
69-09 


69=17 
69-08 
69=11 


69-18 


69-09 
69-06 


69=—11 
69-16 
69-08 
69-08 
69-17 
69=13 


69-14 
69-06 
69=13 
69-16 
69-17 


69-01 
69-09 
69-10 
69-15 
69-06 
69-03 
69-06 
69-16 


69-05 
69-03 


69-10 
69-10 
69=15 
69-17 
69-03 


69-09 


69-07 
69-10 


69=15 
69-06 


69=13 
69-04 


69-22 
69-09 
69-04 
69-09 
69-04 


69-08 
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360D-05.0.003 
360D-05.1.016 
360D-05.1.018 
360D-05.2.010 
360D-05.2.011 
360D-05.5.001 
360D-06.1.005 
360D-06.3.006 
360D-06.3.007 
360D-06.3.008 
360D-06.3.012 


360D-06.5.006 
360D-06.5.007 


360D-06.6.003 
360D-06.6.004 
360D-06.7.018 


360D-06.7.019 
360D-06.7.021 


360D-06.7.024 
360D-06.8.002 
360D-07.6.001 
360D-08.0.003 
360D-10.0.001 


360D-10.0.002 
360D-10.2.004 
360D-10.2.005 
360D-10.2.006 


360D-11.1.023 
360D-12.1.020 
360D-12.2.008 


360D-12.2.009 
360D-13.0.004 
360D-13.0.005 
360D-13.0.006 
360D-13.0.008 
360D-13.0.009 
360D-13.1.005 
360D-13.2.003 


360D-13.4.007 
360D-13.4.008 


360D-13.6.007 
360D-13.6.008 
360D-13.7.001 


360D-15.0.004 
360D-15.4.006 
360D-16.0.001 


360D-16.2.018 
360D-16.2.019 
360D-16.2.020 
360D-16.2.021 


1969 
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OS MASTER SCHEDULER INITIALIZATION IMPROVEMENTS 
CONVERSATIONAL RFMOTF BATCH ENTRY (CRBF) 

BAYLOR EXECUTIVE SYSTFM FOR TELFPROCESSING (BFST) 
INTERACTIVE APPLICATIONS SUPERVISOR (IAS/360) 
DOS/360 TIME ACCOUNTING SYSTEMS 

uu PS LOADER 

MARC II SORT PROGRAM 

GENERALIZED TELFPROCESSING PROGRAM FOR SYSTFM/360 
DOS BTAM FOR LEASED LINE KSR 35 TELETYPFS 

AUTODIN ACCESS METHOD FOR OS/360N | 

A HIGH SPEED BISYNCHRONOUS COMMUNICATIONS ACCFSS 
METHOD 

UNIVAC-11908 TO IBM=-369 FLOATING POINT INTERNAL 
CONVERTER ('CVFLO8') 

7090 TO 360 FLOATING POINT INTERNAL CONVERTER 
("CVFLO9') 

FORTRAN CHARACTER STRING PACKAGE 

CHARACTER FILTER PLI1 

BSEARCH - A RANDOM ACCFSS BINARY=SEARCH TECHNIQUE 
FOR SEQUENTIAL FILES ON DISK OR DRUM 
KWADE=KEYWORD AS A DICTIONARY ENTRY 

RECORD 
ADDRESS FILES FOR DIRECT PROCESSING OF FILES ON 
SYSTEM/360 

GENERATION DATA GROUP 
LPI 

2741 READ AND WRITE ROUTINE 

WRIMAT MATRIX WRITER 

PROGRAM TO CALCULATE THE AMOUNT OF CPU TIME 
AVAILABLE IN THE BACKGROUND WHEN RUNNING DOS 
MULTIPROGRAMMING 

FORTRAN ANALYSIS PROGRAM 

HIGH WATER MARK (HWM) 

CORE AND/OR RESOURCE CONFLICT (CRC) NOTIFICATIONS 
NUCLEUS INITIALIZATION PROGRAM (NIP) 
MODIFICATIONS 

DISK RESIDENCE FOR 
ON THE IBM S/360 MODFL 40 

PL/I BINARY TO EBCDIC CODE KEFPING FIVE BINARY 
CODED COLUMNS PRINTING RECODED DATA 

Coc - 3800/3300 COBOL TO IBM =- S/36N COBOL 
TRANSLATOR 

NCR 315 TRANSLATOR FROM NEAT TO 369 ALP 

GRAPHICS STEPWISE REGRESSION ROUTINE (BMDGR1) 
NON={LINEAR LFAST SQUARFS ON GRAPHICS (BMDGR2) 

TIME SERIES SPECTRUM ESTIMATION (BMDGT1) 

CAI DOS COURSEWRITER III CALCULATOR 

HISTOGRAM SUBROUTINF 

GENERAL TAXONOMY PROGRAM 

LEAST=SQUARES ESTIMATION OF NON-LINFAR 

PARAMETERS - NLIN 

RESCALED RANGE TRANSFORM 

COLLEY-TUKEY FAST FOURIER TRANSFORM -- FOUR 2 IN 
ASSEMBLER LANGUAGE 

NON-LINEAR LEAST=SQUARFS CURVE=FITTING PROGRAM 
LINEAR LEAST=-SQUARFS CURVF FITTING PROGRAM 

DIALL —- GENERAL LEAST SQUARES DIALLEL ANALYSIS OF 
VARIANCE 

0S/360 CHECKPOINT AND IPL RESTART 

ICES/360 SOURCF PROJECT=I 

UCARDS: UNION CARBIDE AUTOMATIC ROUTINE AND DESIGN 
SYSTEM FOR PRINTED CIRCUIT BOARDS 

BULKHFAD SHEET PILING ANALYSIS 

ICES/360 STRUDL=-II 

COLUMN DESIGN - WORKING STRESS METHOD 

ICES/360 SOURCE TRANSET I 


(GDG) MODIFICATION 


1410 COMPATIBILITY MODE PROGRAMS 


Issue No. 


69-25 
69—13 
69-22 
69-06 
69-10 
69-20 
69=-16 
69-07 
69-06 
69-10 


69=22 
69-06 


69-06 
69-03 
69-03 


69-03 
69-03 


69-10 
69-10 
G9— 24 
69-06 
69-05 


69-03 
69-04 
69-09 
69-10 


69=-11 
69-10 
69-11 


69-09 
69-09 
69=15 
69=16 
69-15 
69—21 
69-16 
69-08 


69-09 
69-06 


69-17 
69=20 
69-20 


69=—15 
69=23 
69-05 


69-15 
69-06 
69-09 
69-09 
69-14 
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360D-16.2.022 
360D-16.2.023 
360D-16.2.024 
360D-16.2.025 
360D-16.2.026 
360D-16.3.001 


360D-16.4.009 


360D-17.2.009 
360D-17.7.001 
360D-19.5.008 
360D-19.7.010 


360D-19.7.011 


360D-23.1.003 
360D-25.0.004 


360D-25.2.004 
360D-29.3.002 
360D-30.1.002 


360D-30.2.002 
360D-40.4.003 
360D-42.2.001 


360D-45.1.001 
360D-45.2.001 
360D-99.0.004 


360E-01.0.001 


360E-01.0.002 
360E-01.5.001 
360E-03.4.002 
360E-06.5.002 
360E-06.6.003 


360E-13.0.001 
360E-13.0.002 
360E-13.1.006 
360E-13.6.001 


360E-16.4.004 
360E-16.5.001 
360E-19.7.020 
360E-23.1.003 
36 0E-25.2.006 
360E-27.3.001 
360E-28.3.014 
1130-00.0.009 
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GC=-21 

ICES/360 COGO-I SOURCE 

ICES/360 ROADS I SOURCE 

ICES/360 TABLE-II, OBJECT AND SOURCE 
ICES/LEASE I 

ECONOMIC EVALUATION AND SCREENING PROGRAM FOR 
RESEARCH PROJECTS 

LISA 360 A PROGRAM FOR LINFAR SYSTEMS ANALYSIS 
SYNTH1 (A COMPUTER PROGRAM FOR THE DESIGN OF 
REACTIVE NETWORKS FROM A SET OF ARBITRARY POLES AND 
ZEROES) 

COMPUTER CALCULATION OF FREQUFNCY RESPONSE 
FUNCTIONS FROM STEP RESPONSE DATA 

ON-LINE SUMX 

SUBROUTINE UCONIC 

MVT ACCOUNTING ROUTINE (MVTACTRT) 

PROOF OF DEPOSIT ENTRY RUN WITH TRANSIT 
DISTRIBUTION 

PERSONAL TRUST ACCOUNTING PACKAGE TO ASSIST USERS 
IN INSTALLING OFF-LINE PROCESSING 

TWO-STAGE, TWO-DIMENSIONAL TRIM PROGRAM II 
EQUIPMENT ORDER, SHIPMENT, INSTALLATION, AND 
DISCONTINUANCFE REPORT FOR LARGE ACCOUNTS 

UNIT CONTROL SYSTEM FOR RETAILERS 

VSP SCHEDULE PRODUCTION FOR O/S 369 

360/2260 FUNCTIONAL DEMONSTRATION IN DOS F1 
PARTITION = BTAM LOCAL 

SHARED HOSPITAL ACCOUNTING SYSTFM (SHAS) 
DEMONSTRATION PACKAGE 

MULTIPLE —- PRECISION FLOATING=POINT ARITHMFTIC 
PACKAGE 

EXPERIMENTAL PROGRAM FOR DETERMINING POLYNOMIAL 
ZEROS 

INVRSOL 

EIGENRS 


/360 DOS INDIVIDUALIZED HOMEWORK ASSIGNMENT AND QUIZ 


GENERATOR (QUIZ AND EXERCISE DEMONSTRATOR: QED) 


SIMPLIFIED USER ORIENTED REPORT -— WRITING PROGRAM 
FOR 8K MODEL 20 

INVALID CCCP/360-20 INVALID CODE CARD CORRECTION 
PROGRAM 
FIELD SELECTION AND LIST 

MODFL 20 STAND-ALONE DISK COPY UTILITY 

SHORT INPUT OUTPUT SYSTEM 

JULIAN DATE PROCFSSING SUBROUTINES 

CONVERTING A NUMBER TO IT'S VERBAL DESCRIPTION 
(CKPR) 

HOSPITAL PBAR PROGRAMS FOR A MFCM MODFL 20 
STATISTICAL COMPARISONS PROGRAM 

SINGLE DIGIT COUNT AND FREQUENCY DISTRIBUTIONS 
LINEAR REGRESSION IN TWO VARIABLES (LEAST SQUARF 
FIT) FOR THE MOD 20 

MINIMIZATION OF BOOLFAN EXPRESSIONS 

CALCULATE MASTER CAMS 

SAVINGS ACCOUNTING FOR THE 360 MOD 29 DISK 
HEURISTIC PAPER MACHINE TRIM PROGRAM FOR THE IBM 
360/20 

DOPTIM —- DISK ORDER POINT TECHNIQUE OF INVENTORY 
MANAGEMENT 

AMERICAN FLYERS AIRLINE AVAILABILITY REPORT 
360/20 CARD DESCRIPTIVE BILLING 

WHOLESALE AND/OR RETAIL, ACCOUNTS RECEIVABLE, AGED 
TRIAL BALANCE 


SFREF - FORTRAN AND ASSEMBLY LANGUAGE SUBPROGRAM, 


Issue No. 


69-19 
69-16 
69-16 
69-16 
69=-23 


69-05 
69-09 


69-13 


69-19 
69=23 
69-07 
69—12 


69-08 


69-07 
69-10 


69-08 
69-08 
69=—16 


69-09 
69-09 
69=-11 


69-06 
69-03 
69=03 


69-05 


69-05 


69-07 
69-08 
69-07 
69-06 
69-08 


69-16 
69-07 
69-07 
69-12 


69-06 
69=-16 
69=11 
69-04 


69-10 
69-18 
69=—13 
69-09 


69-06 


= 
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1130-00.0.011 
1130-00.3.010 
1130-00.4.007 
1130-01.5.006 
1130-01.6.003 


1130-03.4.011 
1130-05.5.001 


1130-06.1.006 
1130-06.1.007 
1130-06.3.001 
1130-06.3.002 


1130-06.3.003 


1130-06.6.014 
1130-06.6.015 


1130-06.6.016 
1130-06.6.017 
1130-06.7.003 
1130-07.0.002 
1130-08.0.002 


1130-12.1.005 
1130-13.7.001 
1130-15.1.002 


1130-15.2.005 
1130-15.4.007 
1130-15.5.001 
1130-15.5.002 
1130-16.5.002 
1130-17.3.002 


1130-17.3.004 
1130-17.6.002 
1130-17.6.003 
1130-17.6.004 


1130-21.1.001 
1130-23.3.002 


1130-28.2.092 
1130-28.3.001 
1130-30.1.004 


1130-30.2.003 
1130-30.2.004 
1130-30.2.005 
1130-45.0.001 


1500-99.0.001 
1500-99.0.002 


1800-00.0.002 
1800-01.0.002 
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LINK, AND FILE READ/WRITE CROSS<-REFERENCE TABLE 
BUILDING PROGRAM 

CDUTL, A GENERAL PURPOSE CARD UTILITY 

1130 PRNZ MODIFIED FOR ADDITIONAL CARRIAGE CONTROL 
1130 DISK=-PACK SFCURITY PROGRAM 

DUMP AND RESTORE MONITOR VERSION TWO 

ISFMS - 1130 INDEXED SEQUENTIAL FILE MANAGEMENT 
SYSTEM ON THE 1130 

REREAD FOR FREE FORMAT CARD READING IN FORTRAN 
SECAL - A PROGRAM FOR BUILDING MULTIPLE LOCAL 
SUBROUTINE MODULES FOR THE IBM 1130 

UDAC 1130 DSORT 

ORDER. AN IN-CORE TAG SORT 

IBM 1130 REMOTE JOB ENTRY SYSTEM 

WILLIAM AND MARY REMOTE JOB ENTRY PROGRAM - 8K 
DISK SYSTEM VERSION (WMRJ8) 

WILLIAM AND MARY REMOTE JOB ENTRY PROGRAM - 4K 
DISK AND CARD SYSTEMS VERSION 

THE 1130/1800 KEYWORD INDEX GENERATOR 

IBM 1130 FORTRAN REREAD DEVICE AND FREE FORMAT 
KEYWORD INPUT ROUTINES 

ALPHAMERIC DATA STATEMENT PRODUCER FOR FORTRAN 
KWIC INDEX GENERATOR 

IBM 1130 INDEX FOR DM2 SYSTEMS 

RASEC/RDSEC 

HIGH SPEED AND OVERLAP 1132 PRINTER ROUTINES FOR 
1130 FORTRAN AND BAL USERS 

1130 FILE CONVERSION PROGRAM, DISK MONITOR VERSION 
I TO DISK MONITOR VERSION 2 (FCOPY) 

MULTIPLE RANGE TEST FOR CORRELATED AND 
HETEROSCEDASTIC MEANS 

GASP II (GENERAL ACTIVITY SIMULATION PROGRAM, 
VERSION IT) 

1130 BLENDING OF INITIAL FURNACE CHARGES 

W.E.L. CHART SCHEDULING PROGRAM 

PURDUE FARM SUPPLY CENTER MANAGEMENT GAME 
PURDUE SUPERMARKET MANAGEMENT GAME, 1969 
MECHANICAL TOLERANCE ANALYSIS PROGRAM (MTAP) 
GENERAL PURPOSE CHROMATOGRAPH PEAK INTEGRATION 
PROGRAM 

FAST | 

1130 RAW SCORE TEST ANALYSIS PROGRAM 

1130 TEST ITEM ANALYSIS PROGRAM 


APGRD A PROGRAM TO GRADE AND ANALYZE MULTIPLE CHOICE 


QUIZZES 

IBM 1130 HOSPITAL PAYROLL 

COMPUTER APPROACH TO INVENTORY REQUIRFMENTS ON THE 
1130 FOR SMALL ASSEMBLY ORIENTED MANUFACTURERS 
1130 PATIENT BILLING 

1130 HOSPITAL ACCOUNTS RECEIVABLE 

INDIVIDUALIZED HOMEWORK ASSIGNMENT AND QUIZ 
GENERATOR (QUIZ AND EXERCISE DEMONSTRATOR: Q.E.D.) 
BATTLE OF THE NUMBERS 

1130 PERPETUAL CALENDAR DEMONSTRATION PROGRAM 
MOON FLIGHT 

SIMPLIFIED GAUSS-JORDAN METHOD OF MATRIX INVERSION 


RAS/1130 COURSEWRITER II REASSEMBLE PROGRAM 


FUNCTION SF FOR ANY 1500 COURSEWRITER II CAI SYSTEM 


FUNCTION EP 1509 CW II FUNCTION CAI SYSTEM 


OBJECT TIME I/O LOGICAL NUMBER GENERATOR 
CARD UTILITY PROGRAM USING 1800-OS-010, MPX 


BOM CORE & DISK DUMP UTILITIES MODIFIED TO RUN INA 


CORE LOAD AREA OF V=CORE FOR USE WITH 1132 OR 1443 
LINE PRINTERS 


Issue No. 


69—11 
69=25 
69-07 
69-16 
69—21 


69-05 
69-10 


69=-10 
69-20 
69=—23 
69-06 


69—11 


69-11 
69-04 


69-06 
69-09 
69-19 
69=11 
69-11 


69-16 
69-10 
69-08 


69=23 
69-10 
69=—16 
69-19 
69=20 
69-22 


69-07 
69=25 
69-15 
69-16 


69-18 
69-09 


69-09 
69-08 
69-08 


69-04 


69-12 
69=-13 
69-19 
69-20 


69-24 
69=20 
69—=24 
69-04 
69-10 


69=11 


69=25 
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1800-17.4.001 
1800-23.5.006 
1800-23.5.008 
1800-25.2.001 


1401-10.3.071 


1401-10.3.072 
1401-10.3.073 


1620-02.0.066 
7040-H2 3552 


7094-F2 3554 
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REDUCTION OF OCEANOGRAPHIC STATION DATA 
IBM ANALOG DATA ACQUISITION PROGRAM 
PROCESS DATA PREPARATION PROGRAM 

COMPUTER PROGRAM FOR A HOSPITAL BLOOD BANK 


UNIVERSITY ADMISSIONS INFORMATION SYSTEM 
(LOAN SUBSYSTEM) 
(STUDENT AID 


1401 
FINANCIAL AID INFORMATION SYSTEM 
FINANCIAL AID INFORMATION SYSTEM 
SUBSYSTEM) 


LABELR - A REPORT GENERATOR 
A MODIFIED PDQ FORTRAN SYSTEM 


MULTIDIMENSIONAL OPTIMIZATION USING PATTERN SFARCH 


EIGENVALUF - EIGENVECTOR ROUTINE FOR REAL COMPLEX 
MATRIX 


Issue No, 


69=9 
69-04 
69-10 
69-19 


69=—14 
69=—-14 


69=—14 


69=15 
69=16 


69-11 


69=-15 
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_ SELECTED SHORT SUBJECTS 


The purpose of Selected Short Subjects 
is to bring together and highlight 
concise, factual and timely information 
indicating that action is to be taken 
by the IBM representative whose accounts 
are affected. 


1. IBM PROGRAM PRODUCT PROTECTION 


IBM Program Products and the documents 
describing them.are protected by copyright 
laws. A booklet titled “IBM Program 
Products, Instructions on Copyright 
Notice" (G120-2083) discusses the main 
provisions of the License Agreement as 
they relate to the copyright laws. 

Copies of this booklet are now available 
for your customers from the IBM 
Distribution Center, Mechanicsburg. 

This booklet helps in understanding the 
use of copyrighting as a method of program 
protection. A copy of this booklet is 
included with each Program Product shipped 
from PID. All sales representatives, 
system engineers and field engineers 
should be aware of the protection 
requirements outlined in this booklet 

and the terms and conditions of the 
recently revised License Agreement for 
IBM Program Products (Marketing 
Announcement 270-22, dated 3/2/70). 

Care must be taken not to initiate any 
action in conflict with the protection 
requirements for Program Products. 


2. NEW RELEASES OF PROGRAMS 


This information is furnished to ensure 
that you are aware of new releases of 
programS Which are being USed by your 
customers. The programming Service 
period for program releases being replaced 
by new releases is stated below. 


1. CPS (Conversational Programming System) 
Version 5 Modification Level 0, 360D- 
03.4.016 is now available from PID. 

CPS Version 5 Modification Level 0 has 
a Programming Service Classification 

of A. CPS Version 5 Modification Level 
0 will remain “current™ for purposes 

of programming service until 3 months 
after the date of the next CPS release. 
For programming service purposes, CPS 
Version 4 will be considered "current" 
until May 27, 1970. 
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2. HASP-II Version 2 Modification Level 

3 -(360D-05.1.014) is now available from 
PID. HASP-II has a Programming Service 
Classification of A. Version 2 
Modification Level 3 will remain “current" 
for purposes of programming service until 
the OS/360 release with which it operates 
is no longer current. All prior releases 
Of HASP-II Version 2 will remain “current" 
for purposes of programming service as 
long as OS/360 Release 17 remains current. 
PID has sent ordering instructions and 
information to registered users of HASP- 
II. 


3. POWER II - Version 2 Modification 
Level 0 (360D-05.2.006) is now available 
from PID. POWER II - Version 2 
Modification Level 0 has a Programming 
Service Classification of A. For 
programming service purposes, POWER II 
Version 1 will be considered "current" 
for the same period as Release 21 of 
DOS. If in the future, a new release 

is made available for this program, the 
period that Version 2 Modification Level 
0 remains current will be specified at 
the time of the new release. POWER ITI 
Version 2 Modification Level 0 contains 
Maintenance and the RJE capability has 
been added. For further information 

On POWER II see Branch Managers Memorandum 
Number B70-60. 


4. S/360 Project Control System (360A- 
CP-06X) Version 2 Modification Level 

3 is available from PID. Version 2 
Modification Level 2 will remain “current” 
for programming Service Purposes until 
July 1, 1970. 


3. INL DROPPING PRL REPRINTS 
FINAL NOTICE 


Since the weekly Publications Release 
Letter (PRL) is available to each of 
you by subscription under the expanded 
DAPS system, the reprinting of the New 
Publications List will be discontinued 
Advance notice of 
this planned action was published in 
two recent INLs. 


Those of you who want to continue to 
receive this list should subscribe to 
the PRL, Letter Only, DAPS Order No. 
0076. 
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OS/360 ALTERNATE LINKLISTS AT IPL at “SPECIFY SYSTEM PARAMETER™ time by 
replying with the key-word r00, ‘LNK=x"', 

This contribution has not been submitted x being a number 0 through 9, and 0 being 

to any formal IBM test. Potential users default. 

should evaluate its usefulness in their 

own environment prior to implementation. This facility is easily incorporated 


into an existing Release 18 system by 
Shown in Exhibit 1 is an updated listing reassembling IEANIPO with the same 


to the IEAANIP macro in SYS1.MODGEN for parameters as during Stage 2 of the 
Release 18. This modification permits System Generation and then relinking 
the reading of an alternate linklist the nucleus as shown in Exhibit 2. 


at IPL time. 
The user will thus have the added 


The operator now has the option of reading flexibility in his system of not having 
one of ten different linklists (LNKLST00- to update SYS1.PARMLIB each time his 
LNKLST09). The desired list is specified list of concatenated link libraries 


changes. 
./ CHANGE NAME=IEAANIP,LIST=ALL 
BNE JPLNKLS NO,TEST FOR NEXT PARAMETER 15736018 
JPLNKLS CLC 044,6),JPLNK+L IS THIS PARM *LNK= * 15789019 
BNE _TMSLPARM ss BRANCH IF NO = CHECK FOR NEXT PARM ss. 5 730090. 
LA 2, IEABLANK 15780021 
MVI  €0BTEST#1,X*FO"' NO "U* THE SECOND TIME AROUND 15780022 
LA 6,316) BUMP POINTER TO PARM VALUE 15780023 
LA 6116) GET PARM VALUE 15780024 
CLI °0(6),C'9! CHECK FOR VALID PARAMETER 15780025 
BH _IFAOPFRR sss BRANCH IF THE ———C—“‘(‘“SNNC*C#C#C#(C(‘«§N NIG 
CLI Ol6),C#O! PARAMETER IS NOT 15780027 
. BL IEAOPERR NUMERIC -- I.E. PRINT ERROR MESSAGE 15780028 
© MVC IEALNKLS+7(1),046) CHANGE NAME OF LNKLSTOO TO NEW NAME 15780029 
LA 6,116) BUMP POINTER AND 15780030 
CLI 0(6),C*,? PREPARE 15789031 
—__________ UNF __§_ITFABLANK ss CUR RETURN = TO CHECK = BDA 
LA 69116) FOR THE NEXT 0 
3 [ EABLANK PARAMETER EXHIBIT 1 13780034 
JPLNK DC C* LNK= * KEYWORD PARM TO CHANGE LNKLSTOO 69159016 


//LINKNUC JOB (1370,72),POGHLMANN,MSGLEVEL=L ,REGION=200K 
//LRED EXEC PGM=LEWL, PARM="NCAL»LIST,XREFsSCTRyLET, DC? 
//SYSPRINT DD SYSOUT=4 
//SYSUTL DD UNIT=SYSDA,SPACE=(CYL »(20,20)) 
 S/IEANUCOX DD DSN=SYS1L.NUCLEUS,91SP=01D,UNIT=2314 ,VOL=SER=MVTIPI 
//SYSLMOD DD DSN=JPNUC, UNIT=2314, SPACE=(CYL » 19,952) ),0CB=SYS1eNUCLEUS, 
// DISP=(,PASS) 
//SYSLIN DD * 


— TEANIPO OBJECT DECK 


INCLUDE LEANUCOX(IEANUCOL) 
__ NAME IEANUCOJ 
/* 
//STWO EXEC PGM=IEWL, PARM="NCAL »LISTsXREF, SCTRgLET, DCE 
//SYSPRINT OD SYSUUT=A 
//SYSUTL DD UNIT=SYSDAySPACE=(CYL,y (20,20)) 
//SYSLMOD DD DSN=SYSL.*NUCLEUS,DISP=SHR 
____//NUCLEUS DD DSN=JPNUC,DISP=(OLD,DELETE)  —S EXHIBIT 20 
//SYSLIN DD * | 
INSERT IEAANIPO 
INSERT LEAQFX00 
INCLUDE NUCLEUS(IEANUCOJ) 
NAME IEANUCOLIR) For IBM Internal Use Only 
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OS/360 MFT ALTERNATE NUCLEUS FOR VARIED the Operating System; however, the 
PARTITIONS following changes to the modification 


were necessary: 


This contribution has not been submitted 
to any formal IBM test. Potential users 1. The address of IFABUFR had to be 


should evaluate its usefulness in their changed to 2912. 


own environment prior to implementation. 
2. Instructions have been added to 


Under the same title in INL 69-10, a change lower case typewriter input to 
modification to the OS Release 15/16 upper case, and thus eliminate the need 
and 17 IPLTXT was published. This of a second alias for a nucleus with 


modification permitted the user to select an alphabetic identifier. 
an alternate nucleus through the use 


of the console. This modification has Exhibit 1 is a copy of the source listing 
been implemented under Release 18 of for the IPLTXT modification for OS Release 
18. 
STMT SOURCE STATEMENT FOIFER6O 1719 
- rg eee ee 
: Nn 
3 : THESE Ne ees SIMULATE THE BASIC FUNCTIONS, AS PESCPTRER ee 
4 * .IN THE OPFRATOR'S CUIRE, OF SFLECTING AN ALTERNATE BM S, TPpn 
5 * ANY CHARACTER MAY BE ENTERED AS LONG AS IT MATCHES a eee ein 
6 * "TEANUCO*X" %& IDENTIFYING CHARACTER, TPLQN 
7 # ss S ING ALTAS, YCU MIGHT HAVE MORE MEANINGFUL IDENTIFICATION, — Tptnn 
B # EXAMPLE C FOR CAY SPIFT, C FOR COMMERCIAL FIC. TPLO 
9 * CR. EVEN 1 FOR IFANUCOl, 2 FOR TFANUCC2, ETC. TREA 
10 * _sssONOTE UPPER OR LOWER CASE MAY RESENTERED FROM THE CONSPLE  yotnn 
It ® IPLAY 
12 USING *,0 TPLA4 
3 ORC 7FRO+72. -CAWLADDRESS et pt nn 
14 cc AL4(CCWS ) ADDRESS MF CCWPS 7 TPLAN 
15 ORG 7ZERN4130 ADDRESS OF INSTR AFTER BALR IN TPLTX TEENA 
aoe co _.-B PATCHES. OVERLAY LM_INSTR W/RRANCH TM PATCHES Jrinn 
7 ORG 2ERC+#3120 ADDRESS BFYOND TPLTXT es TT 
18 PATCHES SIQ  CCASCLE TYPE IDENTIFICATION MESSAGE TPtAn 
EQ ne RE ne PAT CHES 8 _ AND: LEELA 
20 TIO TIO  CCNSOLF ASK FOR DESIPFND NUCLFUS TPLA 
21 BC 7,TIO MAKE SURE THAT IN COMPLETE TPLAN 
22000 XSW 2,0),CSW0) ZERO THE CAW AND CSW BEFCRE @&T TPN 
rae CLI LOC8,Xx*"008 HAS ANYTHING REEN TYPEN IN _ 
24 PE NOUPCASE PRANCH IF NO 


MAKE “ALPHA In uppeR case rptoma 


Sag a ee OT ECR 
26 NOQUPCASE ECU * | 


27 LM 0.14, TEAPUFR EXECUTE THE OVERLAIN INSTR TPLOD1 
—_28__________B ____ CONTINUE ___________ BRANCH TO INSTR AFTER (R PATCHES)  1PLony 
29 * | TPLON] 

_ 30 CCWS _—s ccw a eo TYPE IDENT, CARR RETURN TPLO1 
31 CCW 9,ILENT2,X*60', AND IPL 

32 | CCW 3-1 ASK X* E027 ‘TYPE QUESTION, NO CARR RETURN — TPLO% 
33 ti CW, RY XP 20,1) CR AD ONE CHAR TO IDENTIFY NUC MEMRFP TPLN 
34 ITENT CC CL22" OPERATING SYSTEM /369! TPL 
35 TPENT2 CC CL34* ENTER CIGIT FOR DESIRED NUCLEUS ¢* TPLON 
326 ASK _——o oC 27) OR HIT FOR ENR DEFAULT - * — YEANUCOT  —  yetnr 
37 LCCA FOU 8 LOCATION ® IN CORE TPLO 

38 CONSQLE ECU xX"LFP CONSOLE ACDRESS TPLO 
36 CSW. ECU 64 CC Sh ADDRESS te 
_ CONTENU ECU 134 ADDR OF INSTR TO PETURN CONTROL TFLO} 

| | TPL 7. 
__42. TEABUFR ECU. _2912 (R-18)  _—s—s—s R15 AFTER BAIR + TFARUFR IN FPITXT yet 
43 # ECU 2848 {(R-17) R15 AFTER BALR + TEARUF2 IN TPLTXT  Te1%? 

44 % ECU 2800 (R-15/1€) R1S AFTER BALR + TEABUFR IN IPLTXT TPL 

__ PLOY 


eee oo ene a ON ne ee 2 Cee = eee a ee eee 
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DOS/360 CATALOGING TECHNIQUE FOR BILL 2. Follow that card with the Include 

OF MATERIAL PROCESSOR cards for any interface modules as 
required by the programming language 

This contribution is an improvement over used. 

the technique described in INL 68-20. 

It has not been submitted to any formal 3. Then include the object module for 


IBM test. Potential users should evaluate the user program. 
its usefulness in their own environment 


prior to implementation. 4. Finally, put in the Include cards 
. for the I/O Open/Close and I/O Process 
When cataloging ‘a load module to the modules. 
Core Image Library with the same phase 
name as one already in the library, only See the sample Link Editor listing in 
the latest phase is accessible to DOS. Exhibit 1. 
This applies to Bill of Material Processor 
phases for I/O Open/Close, I/O Process The user is cautioned that if any of 
and DEARUX when several programs Of a the Bill of Material Processor customizing 
system use these same modules. or maintenance programs (such as DEACUC, 
DEACUL, DEACUM, etc.) are cataloged, 
While the approaches described in INL they use DEARUX and it will be likely 
68-20 will all work, a better approach to have a load address different from 
is as follows: its address in user programs. Therefore, 
these programs should be run in a link- 
1. Place the Include card for the I/0 and-execute mode rather than being 
Root phase immediately behind the Phase cataloged. 
card. 
/f JOB CATALOG bILL CF MATERTAL PROCESSOR USER PRCEGRAMS 00.00-04 


ff OPTION CATAL 
PHASE SLRET,* 


INCLUDE DEAKST 1/G ROOT MODULE 

INCLURE DecadARTL COBOL INTERFACE MODULE 

INCLUBE DEART2 COBGL CHASE MODULE 

INCLUCE DeaARTs USER PROGRAM-COMPILE OR OBJECT DECK 
INCLUDE DcAKSS I/Q PROCESS MODULE 

INCLUDE DtaRSY I/G OPEN-CLOSE MODULE 

ENTRY 


// LBLTYP NSD(3) 
// EXEC LNKEDT 


JOB CATALUG 04/01/70 DISK LINKAGE EDITOR DIAGNOSTIC CF INPUT 


ACTION TAKEN MAP 

LIST PHASE SLRET ,* 

LIST INCLUDE DEARS?7 1/0 ROOT MODULE 

LIST INCLUDE DEART1 COBCL INTERFACE MODULE 

LIST INCLUDE DEART2 COBOL CHASE MGDULE 

LIST INCLUDE DEART3 USER PROGRAM—-COMPILE OR CBYECT DECK 

LIST INCLUDE DEARSB I/O PROCESS MODULE 

LIST AUT OIL INK IJDFAPZZ 

LIST PHASE DEARS8,XZ$QOVLY,NOGAUTO BM ZA038 
LIST INCLUDE DEARSY 1/G GPEN-CLOSE MGDULE 

LIST INCLUDE DEARUX BMAYAOL1P 
LIST PHASE DEARUX,sXZ$0VLY,NGAUTO BM CXOO1 
LIST PHASE DEARS9,XZ$0VLY,NGAUTO BM YAOL5S 
LIST ENTRY 


EXHIBIT 1 
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DOS/360 CATALOGING TECHNIQUE FOR BILL OF MATERIAL PROCESSOR 


PHASE 


SLRET 


DEARSS 


DE ARUX 


DEARSY 


XFR-AG LOCORE 


005720 


QO3FA8 


VOSFAS8 


UO3FAB8 


E0QJ CATALOG 


003890 


O0O03FA8 


003FA8 


003FA8 


HICORE 


006D68 


OO4tFT 


CO41E3 


004 74F 


DSK-AD 


40 05 2 


40 09 2 


41 00 2 


41 O01 1 
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ESD TYPE 
CSECT 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
* ENTRY 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 
CSECT 


CSECT 
ENTRY 


CSECT 
ENTRY 


CSECT 


ENTRY | 


CSECT 
ENTRY 


CSECT 


CSECT 
* ENTRY 


CSECT 
ENTRY 


CSECT 


CSECT 


Issue No, 


LABEL 


DEARS7 
BM$PIO 
XASRET1 
MS$GRT 
XL$COMM 
X7$O0VLY 


— DEARTL 


BMPOPEN 


BMPCLOSE 


BMPCALL 


 BMPGET 


BMPPUT 
BMPSTKY 
BMPSTDA 
BMPEOF 
DEART2 


CHASE] 
CHASER] 


CHASE2 
CHASER2 


CHASES 
CHASER3 


CHASES 
CHASER4S 


DEART3 


TJDFAPZZ 
IJDFAZZZ 


DEARS8 
YASRT 


CEARUX 


DEARS9I 


LUADED 
003890 
003890 
0038F8 
003910 
003988 
003FA8 
0048A8 
004880 
004BE0 
004C40 
004CC8 
O04CFO 
004D18 
004D40 
004068 
004DA0 


OO4EE8 
OO4EFA 


004F20 
004F32 


004F58 
OO4F6A 


004F90 
OO4FAZ2Z 


OO4FC8 


006C60 
006C60 


003FA8 
OO3FA8 


OO3FA8 


OO3FA8 


00.200.47,DURATION 00.00.43 


EXHIBIT 1 cont'd, 
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REL-FR 


003890 


0048A8 
0048A8 
0048A8 
0048A8 
0048A8 
0048A8 
0048A8 
0048A8 
0048A8 
004DA0 


004DA0 


004DAG 


J04DA0 


004DA0 


OOC4FC8 


006C60 


~003FA8— 


OO3FAB 


OO3FA8 
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INFORMATION ABOUT THE NEWSLETTER 


The IBM Installation Newsletter is 
distributed only to IBM locations and 

is not available to customers. The 
Newsletter is separated into two parts. 
The first part contains information which 
is intended only for IBM personnel and 
the pages are labeled For IBM Internal 
Use Only. THESE PAGES, OR REPRODUCTIONS 
OF THEM, ARE NOT TO BE GIVEN TO CUSTOMERS. 
However, using your own good judgement, 
you may discuss pertinent information 
from these pages with a customer. The 
second part contains information which 
may be reproduced by the Branch Office 

at their discretion and given to 
customers. These pages are not labeled 
with any restrictive classification. 

Note that when any abstracts for Type 

III and Type IV programs are given to 

the customer, he must be informed that 
the disclaimers for Type III and Type 

IV programs as contained in the 
Newsletter, applies. 

YOUR COOPERATION IN PROPERLY HANDLING 
THE CONTENT OF THE IBM INSTALLATION 
NEWSLETTER IS NECESSARY FOR ITS CONTINUED 
PUBLICATION. 


Direct inquiries concerning the contents 
of this Newsletter to: 


W. F. Malmborg, Editor 

IBM Installation Newsletter 
Dept. 812, DPD HQ 

112 East Post Road 

White Plains, New York 10601 
Telephone 914-696-3781 

Tie Line 254-3781 
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NEW PUBLICATIONS ANNOUNCED BY PRLS 


Information is extracted and condensed 
from the weekly PRLS (Publications Release 
Letters) to insure that all Salesmen 

and Systems Engineers are aware of new 

or revised Reference Sources, Marketing 
Publications, and Field Engineering 
Publications. Normally, each issue of 
the Newsletter will contain information 
extracted and condensed from two PRLS, 
one following the other. The information 
will be placed in the Newsletter in its 
Original sequence with no rearrangement 
of form numbers or titles. It is not 
intended to replace existing information 
and distribution sources. You should 

be certain that you are aware of these 
sources. 


Do not use the condensed Newsletter 
information to order publications. 
but not all (for example, some films 
and slide sets) of the items are available 
from Mechanicsburg. To receive the items 
you need without delay, prior to ordering 
check the REQ (Requisition Form) code 

in the “Accumulative Supplement to IBM 
Publications Current Price List (2Z20- 
0100)" which is attached to the weekly 
Publications Release Letter (PRL) and 
distributed to your Administration 
Manager. For an explanation of the REG 
codes and other publications information 
see the first few pages of the "IBM 
Publications Current Price List Z20- 
0100". 


Most 


The IBM publications requisition (MO2- 
0618) or ITPS should be used for ordering 
items from the IBM Distribution Center, 
Mechanicsburg, Pa. 


(IBM World Trade Corporation has its 
own distribution center and procedures.) 
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ORDER TITLE/DESCRIPTION DISPOSITION ABST# CLASS DAPS SLY 80L 
NUMBER CONF Ss OTY 
MARKETING PUBLICATIONS 
GA24-3021-5 IBM 1030 DATA COLLECTION SYSTEM INSTALLATION MANUAL - SCRAP** 04002 SRL 0489 Y®S ONE 
PHYSICAL PLANNING 
GA24-3509-1 IBM 2944 DATA CHANNEL REPEATER INSTALLATION MANUAL - SCRAP** 04513 SRL 0489 YFS ONE 
PHYSICAL PLANNING 
GA26-5921-5 IBM 1800 BIBLICGRAPHY SCRAD** 03777 SRL 0006 YES ONE 
GC 26-3706-5 IBM 1130 SYNCHRONOUS COMMUNICATIONS, ADAPTER SUBROUTINES SCRAP** 05529 SRL 0158 YFS ONE 
GH20-0327-2 GFNERAL PURPOSE SIMULATION SYSTEM/360, DISK OPERATING USE*** 03352 APPRG YES 
SYSTEM (360A-CS-19X) OPERATOR'S MANUAL 
GH20-0340-3 STRUCTURAL ENGINEERING SYSTEM SOLVER (STRESS) FOR THE USE*** 03350 APPRG YES 
IBM 1130, MODEL 2B (1130-EC-03X) VERSION 2, USER'S MANUAL 
GH20-0507-1 BIBLIOGRAPHY OF APPLICATION PUBLICATIONS FINANCE SCRAP ** 03961 APPRG yes TWO 
INDUSTRIES 
GH20-0683-1 APL/360 USER'S MANUAL , USEX** 11617 SRL Y=s 
GH20-4058-0 CLINICAL LABORATORY MANAGEMENT SYSTEM 5718-H12 13748 PRGPR NO 
GK20-0355-0 ONLINE BANKING APPLICATIONS FOR 2260 DISPLAY STATIONS AND 13596 BRIEF NO TWO 
2740 COMMUNICATION TERMINALS 
GL26-2114-0 IBM VIDEO DISPLAY WITH IBM 1800 12749 ADTV NO ONE 
ZM02-6420-3 MOVING AND LIVING EXPENSE ACCCUNT FORM SCRAP ** 13757 FORM NO 
GN20-1001-46 TELEPROCSING-SRL~NL—A24— 3089 SCRAD** 0306 YES ONE 
GN20-1002-27 DP TECHNIQUES NL-~RE-F20-8172 SCRAP** 0070 YFS ONE 
GN 20-5201 TNL 220-2002-00 0903 YES ONE 
GN20-5400-7 220-2004-00 TNL USE*** 0905 YES ONE 
GN20-5407 TNL 220-2004-00 0905 YES ONE 
GN20-5506 TNL 220-2005-00 0906 YES ONE 
GN33-8617 C24-9003-04 TNL 03281 YFS ONE 
ZR20-1116-0 FUNDAMENTALS OF PROGRAMMING EXAMINATION 13766 TEXT NO 
ZR20-4148-0 TERMINAL ORIENTED SYSTEMS MARKETING GUIDE 13750 ED GD NO 
GR20-4150-0 SYSTEM/360 COMMUNICATIONS SYSTEM DESIGN AND ANALYSIS 13751 FE ED NO 
SR20-4161-0 PRESENTATION SKILLS WORKSHOP 13752 =D GD NO 
ZR20-6015-0 SYSTEM/3 DISK SYSTEM DESIGN EXAMINATION SCORING KEY 13753 =D GD NO 
SR20-6020-0 SYSTEM/3 DISK SYSTEM IMPLEMENTATION, STUDENT EXERCISES 13597 ED GD NO 
ZR20-6021-0 SYSTEM/3 DISK SYSTEM DESIGN 13754 MANUL NO 
GR20-9163-3 SYSTEM/360 COMMUNICATIONS SYSTEM DESIGN AND ANALYSIS SCRAP ** 06439 FLDR YES ONE 
COURSE CODF D3602 
GV20-6072-0 SYSTEM/3 APPLICATION CUSTOMIZER 13772 FLIP NO 
GX20-1739-2 SYSTEM/360 REFERENCE DATA LINKAGE EDITOR SCRAP ** 04238 REFCD YES ONE 
GX24-36€08-1 0077 IBM CONTROL PANEL TEMPLATE SCRAPD** 11169 TEMEL NO 
GYBO-0507-0 SYSTEM/360 DOS POWER II: LISTINGS SYSTEM MANUAL 13756 PROGY NO 
GY 20-0398 Y20-0211-01 TNL YES 
ZY23-4018-0 COMMUNICATIONS SKILLS WORKSHOP 13759 ED GD NO 
Z2Z20-7005-0 INSTALLATION NEWSLETTER ISSUE 70-05 3/13/70 13782 PAPER 0925 NO ONE 
2222-6947-0 IBM SYSTEMS MFASUREMENT INSTRUMENT COMPONENT DESCRIPTION AND 13761 MANUL NO ONE 
USER'S GUIDE 
Z2Z77-0030-0 BENCHMARK MANAGEMENT ANALYSIS PROCEDURE: A SERIES 12710 PAPER NO 
OF JOB STREAM OPTIMIZATION TOOLS 
ZZ277-0032-0 SELLING AND PERFORMING SE SERVICES 12714 PAPER NO 
22Z77-0033-0 OS/MVT PERFORMANCE MEASUREMENT TECHNIQUES 12708 PAPER NO 
2120-2065-1 LICENSE AGREEMENT FOR IBM PROGRAM PRODUCTS SCRAP ** 13758 FORM NO 
Z120-4437-28 BUSINESS RECORD FORM SCRAP** 13783 PAD NO 
G220-2000-0 PROGRAMMING SYSTEMS MEMORANDA (CPSM) 13602 REFFCD 0902 YES ONE 
1130 PROGRAMMING SYSTEMS 
G220-2001-0 PROGRAMMING SYSTEMS MEMORANDA (PSM) 13603 REFCD 0901 YES ONF 
1800 PROGRAMMING SYSTEMS 
G220-2006-7 PROGRAMMING SYSTEMS MEMORANDA (PSM) SCRAP** 11966 REFCD 0907 YES ONE 
SYSTEM/360: BPS PROGRAM SYMPTON INDEX 
G220-2007-7 PROGRAMMING SYSTEMS MEMORANDA (PSM) SCRAP ** 11967 REFCD 0908 YES ONE 
SYSTEM/360: BOS PROGRAM SYMPTON INDEX 
G220-2008-7 PROGRAMMING SYSTEMS MEMORANDA (PSM) SCRAP** 11968 REFCD 0909 YES ONE 
SYSTEM/360 : TOS PROGRAM SYMPTON INDEX 
G220-2009-7 PROGRAMMING SYSTEMS MEMORANDA (PSM) SCRAP ** 11969 REFCD 0910 YES ONE 
SYSTEM/360: DOS PROGRAM SYMPTON INDEX 
G220-2010-7 PROGRAMMING SYSTEMS MEMORANDA (PSM) SCRAP*¥* 11970 REFCD 0911 YES ONE 
. SYSTEM/360: CONVERSICN PROGRAM SYMPTON INDEX 
G220-2011-7 PROGRAMMING SYSTEMS MEMORANDA (PSM) SCRAP** 11971 REFCD 0912 YES ONE 
SYSTEM/360: 44PS/BPS PROGRAM SYMPTON INDEX 
G221-0512-1 IBM RASIC SYSTEMS CENTERS ~— PROPOSAL INSERT USE*** 10587 PROIN NO ONE 
Z2320-1046-1 BOIS KWOC INDEX SCRAP ** 10821 MANUL 0077 NO 
(MARKETING, FIELD ENGINEERING BRANCH OFFICE ADMIN.) 
* - REPLACED BY NEW ITEM LISTED; SEE OBSOLETE/REPLACE CATALOG. 
** — SCRAP PRIOR EDITIONS. 


*** — DOSE PRIOR EDITION. 
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ORDER TITLE/DESCRIPTION DISPOSITION ABST# CLASS DAPS SL/ BOL 

NUMBER CODE SS QTY 

G320-1060-0 IBM AGRIBUSINESS SYMPOSIUM - FEED AND GRAIN 13589 MANUL NO 

Z502-0003-1 SUGGESTION INVESTIGATORS HANDBOOK BINDER USR¥** 13747 ADTV NO 

G502~- 3000-2 1969 ANNUAL REPORT SCRAP ** 13784 BROCH NO 

FIELD ENGINEERING 

GN20~-5201 TNL 220-2002-00 0903 YES 

GN20-5400-7 220-2004-00 TNL US E®** 0905 YES 

GN20-5407 TNL 220~-2004-00 0905 YES 

GN20-5506 TNL 220-2005-00 0906 YES 

SR23-3168-0 2050 PU CHANNELS AND STORAGE 13774 FEINS NO 

SR23-3181-1 2415 MAGNETIC TAPE UNIT AND CONTROL MODELS 4, 5, AND 6 SCRAP ** 12699 FE ED NO 

SR23-3192-0 2050 PU STORAGE AND CHANNELS 13775 FEINS NO 

SR25-5442-1 2760 OPTICAL IMAGE UNIT 13755 ED GD NO 

SR25-5512-0 DOS ANS COBOL 13776 FE ED . NO 

SR27-9647-0 2020 BSCA SUBMOD 2 TO SUBMOD 5 13777 FE ED NO 

$S27-0658 FES 127-0905-01 NO 

ZY25-2561-2 MLC CORPORATE MACHINE LEVEL CONTROL USE*** 04433 FE ED NO 

ZY25-2601-1 SLT PACKAGING AND DOCUMENTATION US E*** 07437 FE ED NO 

ZY¥25-3918-1 5496 DATA RECORDER QUIZ #1 SCRAP** 13778 FE ED NO 

ZY25-3919-1 5496 DATA RECORDER QUIZ #2 SCRAP** 13779 FE ED NO 

ZY 25-3920-1 5496 DATA RECORDER QUIZ #3 SCRAP** 13780 FE ED NO 

Z¥25-3981-0 5486 CARD SORTER STUDENT QUIZ 13760 FE ED NO 

SY26-4129-2 1800 DATA ACQUISITION AND CONTROL SYSTEM VOLUME 2 USEX** 04129 FEMDM NO 
(FV THROUGH YD) 

SY26-4131-1 2310 DISK STORAGE, MODELS Al, A2, A3 USE ** 04127 FEMDM NO 

SY¥27-0047-0 2972 MODEL 8 GENERAL BANKING TERMINAL SYSTEM 13770 FETOM NO 

SY33-1028-1 2520 CARD READER PUNCH ATTACHMENT FEATURE SYSTEM/360 US E*** 11548 FEMDM NO 
MODEL 20 (MACHINES WITH SERIAL NO. 50,000 AND ABOVE) 

ZZ20-7005-0 INSTALLATION NEWSLETTER ISSUE 70-05 3/13/70 13782 PAPER 0925 NO 

Z2Z25-2109-6 CD PROJECT INDENT PAGE US E*x** 11937 FORM NO 

Z120-1899-2 INVENTORY ERROR (CORRECTION REQUEST) USE#** 13763 FORM NO 

$127-0907-2 MICROFICHE - ILLUSTRATED PARTS CATALOG SCRAP** 13685 IPC NO 
2844 AUXILIARY STORAGE CONTROL 

$131-0021-0 2970 BANK TERMINAL (MODEL 8) 13764 IPC NO 

$2C0-0050-17 MICROFICHE - 2025 AND LARGER NEW CARD SCRAP** 12857 FEEW NO 

$2C0-0100-17 MICROFICHE - OPERATING SYS OS NEW CARD SCRAP** 12858 FFEW NO 

$2C0-0149-13 MICROFICHE - OPERATING SYS OS NEW CARD SCRAP** 12859 FEEW NO 

$2C0-0150-8 MICROFICHE - 1130 / 1800 NEW CARD SCRAP ** 12861 FEEW NO 

$2C0-0200-17 MICROFICHE - PRG SYS OTHER THAN OS NEW SCRAP** 12862 FEEW NO 

L2cC0-0300-2 MICROFICHE - EARLY WARNING SCRAP ** 13113 FEEW NO 
PROGRAM PRODUCTS CSP-SCP NEW CARD 

$2C0-0500-9 MICROFICHE - SERVICE AIDS SCRAP ** 13373 FESA NO 
2025 SA NEW CARD 

S$2C0-0600-9 MICROFICHE - SERVICE AIDS SCRAP** 13383 FESA NO 
2030 SA NEW CARD 

$2C0-0666-0 MICROFICHE - ENGINEERING CHANGE ANNOUNCEMENT 13730 FEECA NO 
2030 ECA FILE CARD 

$2C0-0700-9 MICROFICHE - SERVICE AIDS SCRAD*¥* 13396 FESA NO 
2040 SA NEW CARD 

S$2C0-0800-9 MICROFICHE - SERVICE AIDS SCRAP** 13408 FESA NO 
2044 SA NEW CARD 

$2C0-0900-9 MICROFICHE - SERVICE AIDS SCRAP** 13416 FESA NO 
2050 SA NEW CARD 

$2C0-0968-0 MICROFICHE - ENGINEERING CHANGE ANNOUNCEMENT 13731 FEECA NO 
2050 ECA FILE CARD 

$2C0-1000-9 MICROFICHE - SERVICE AIDS SCRAP ** 13428 FESA NO 
2065 SA NEW CARD 

S$2C0-1100-9 MICROFICHE - SERVICE AIDS SCRAP** 13441 FESA NO 
20€7 SA NEW CARD 

S$2C0-1200-9 MICROFICHE - SERVICE AIDS SCRAP ** 13452 FESA NO 
2075 SA NEW CARD 

§$2C0-1266-0 MICROFICHE - ENGINEERING CHANGE ANNOUNCEMENT 13732 FEECA NO 
207572085 ECA FILE CARD 

G220-2000-0 PROGRAMMING SYSTEMS MEMORANDA (CPSM) 13602 REFCD 0902 YES 
1130 PROGRAMMING SYSTEMS 

G220-2001-0 PROGRAMMING SYSTEMS MEMORANDA (PSM) 13603 REFCD 0901 YES 
1800 PROGRAMMING SYSTEMS 

G220-2006-7 PROGRAMMING SYSTEMS MEMORANDA (PSM) SCRAP** 11966 REFCD 0907 YES 
SYSTEM/360: BPS PROGRAM SYMPTON INDEX 

G220-2007-7 PROGRAMMING SYSTEMS MEMORANDA (PSM) SCRAP** 11967 REFCD 0908 YES 
SYSTEM/360: BOS PROGRAM SYMPTON INDEX 

G220-2008-7 PROGRAMMING SYSTEMS MEMORANDA (PSM) SCRAP *¥* 11968 REFCD 0909 YES 
SYSTEM/360 : TOS PROGRAM SYMPTON INDEX 

G220-2009-7 PROGRAMMING SYSTEMS MEMORANDA (PSM) SCRAP ** 11969 REFCD 0910 YES 
SYSTEM/360: DOS PROGRAM SYMPTON INDEX 

G220-2010-7 PROGRAMMING SYSTEMS MEMORANDA (PSM) SCRAP** 11970 REFCD 0911 YES 
SYSTEM/360: CONVERSICN PROGRAM SYMPTON INDEX 

G220~2011-7 PROGRAMMING SYSTEMS MEMORANDA (PSM) SCRAP *¥* 11971 REFCD 0912 YES 
SYSTEM/360: 44PS/BPS PROGRAM SYMETON INDEX 

$225~-2487~-1 1259 MAGNETIC CHARACTER READER SCRAP ** 02387 FEMM 5 

$229-2186-1 PROGRAM IDENTIFICATION LABEL USE*** 13534 PAD NO 

$229-3185-2 TOOLS AND TEST CE REFERENCE INSERT SCRAP ** 12481 REFCD NO 

Z2320-1046-1 BOIS KWOC INDEX SCRAP ** 10821 MANUL 0077 NO 


(MARKETING, FIELD ENGINEERING BRANCH OFFICE ADMIN.) 
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ORDER 
NUMBER 


GA24-3545-0 


GA27-3014-1 
GC20-1645-1 


SC20-1718-0 
SC 20- 1719-0 
GC21-7555-0 
GC21-7556-0 
GH20-0136-4 
GH20-0609-1 
GK 20-0 338-0 
GK20-0343-0 
GK 20-0364-0 
GN22-0355 

GN27- 3056 

ZR20-8022-2 
GV20-4647-0 
GX 24- 3636-1 
GYBO-0512-0 
GYBO-0515-0 
GY 20-0506 

ZZ 20- 1990-1 
ZZ20- 1991-1 
ZZ20-1992-1 
ZZ 20-1993 

22 20-2078-0 
Z2Z77-0027-0 
ZZ 77~0028-0 
ZZ 77-0029-0 
ZZ 77-0031-0 
ZZ 77~ 0034-0 
ZZ77~0035-0 
ZZ77~0036-0 
ZZ 77-0037-0 


G320- 1066-0 


G5 20-2293-0 
G5 20-2294-0 


G520-2297-0 


SR25-5501-0 
ZR31-0203-3 


SR31-0478-0 
ZR31-0518-0 
SY 24~- 3529-2 
$123-0470-3 
$124-0075-4 


$131-0018-0 
$2C0-0250-1 


S$ 2C0- 1250-9 


1970 


IBM INSTALLATION NEWSLETTER 


PRL #13 April 3, 


TITLE/DESCRIPTION 


MARKETING PUBLICATIONS 


IBM 2956-5 MULTIPOCKET READER SORTER 

INSTALLATION MANUAL PHYSICAL PLANNING 

2770 SYSTEM SUMMARY 

OUTLINES OF STATISTICAL TECHNIQUES, APPLICATIONS, AND 
PROGRAMS POR INDUSTRY, ENGINEERING AND SCIENCE 
PROGRAMMED AIRLINES RESERVATION SYSTEM (PARS) 
LIBRARY DOCUMENTS (VOLUME VII) 

PROGRAMMED AIRLINES RESERVATION SYSTEM (PARS) 
LIBRARY DOCUMENTS (VOLUME VIIT) 

PROGRAM PRODUCT SPECIFICATIONS IBM SYSTEM/3 CARD 
RPG II (5701-RG1) 

PROGRAM PRODUCT SPECIFICATIONS IBM SYSTEM/3 

CARD UTILITIES (5701-UT1) 

MATHEMATICAL PROGRAMMING SYSTEM/360 (360A-CO-14X) 
APPLICATION DESCRIPTION 

COURSEWRITER III FOR SYSTEM/360 (360A-UX-01X) VERSION 2 
AUTHOR'S GUIDE 

FINANCIAL INFORMATION ON SYSTEM... 

CITY AND COUNTY OF SAN FRANCISCO 

SYSTEM/360 MECHANIZED ORDER DRESSING AT 

COLT INDUSTRIES, CRUCIBLE SPECIALTY METALS DIVISION 
THE PRODUCTION INFORMATION AND CONTROL SYSTEM AT 


J. IT. CASE COMPANY, BURLINGTON PLANT PICS, CONTROL CENTER, 


DATA COLLECTION, PAYROLL 

TNL FOR C22-6820-10 

TNL FOR L27-3020-01 

EDUCATION GUIDE - COURSE CODE $1130 

THE RIGHT ADDRESS 

0513 0514 ALPHA IBM CONTROL PANEL TEMPLATE 

HASP (VERSION 2): LISTINGS 

2495 UTILITY FOR OS/360: LISTINGS 

TNL ¥20-0065-02 

DP SALES MANUAL SYSTEMS, MACHINES, RPO, AND TYPE CATALOG 
SECTIONS 

DP SALES MANUAL TYPE I AND IT PROGRAMS AND 

PROGRAM PRODUCTS SECTIONS 

DP SALES MANUAL GI, DATA PROCESSING EDUCATION, 

SYSTEMS ENGINEERING SERVICES, AND SPECIAL INSTALLATION 
SERVICES SECTIONS 

TNL Z2201990-01 SMR #1 

ATR CARGO APPLICATIONS 


0OS/360 - HASP IN A MULTIPLE CPU CONFIGURATION USING A 
SINGLE SHARED WORK QUEUE 

SYSTEMS ENGINEERING SERVICES: 0S/360 

MULTIPROGRAMMING PLANNING TASK GUIDE 

LARGE DATA BASE ARCHITECTURE 

AN AUTOMATED MONICIPAL COURT SYSTEM 


TERMINAL SELECTION CRITERIA IN A TELEPROCESSING ENVIRONMENT 


ALLOCATION AND SCHEDULING OF SYSTEM ENGINEERING SERVICES 
MACROS AND CICS ROUTINES - OPERATING SYSTEM (MACROS) 
RJE - IMPROVEMENT PACKAGE (GERMAN-MODIFICATION) 


SCHOOLMASTERS TO AN INDUSTRY 


IBM APPLICATION CUSTOMIZER SERVICE: ACCOUNTS PAYABLE 
SYSTEM/3 APPLICATION PREPARATION 

IBM APPLICATION CUSTOMIZER SERVICE: LABOR DISTRIBUTION 
SYSTEM/3 APPLICATION PREPARATION 
DOS/360 COBOL SUBSET COMPILER 


a 


ee 


2770 DATA COMMUNICATION SYSTEM 


1970 


DISPOSITION 


USE*#** 
SCRAP** 


USE*** 


US E*** 


USE*** 


US E*** 


US E*** 


USE*** 


US B*e** 


IBM FPIELD ENGINEERING EDUCATION COURSE DEVELOPMENT PROCEDURE USE*** 


INSTRUCTION OUTLINE SUPPORT SHEET 
SYSTEM/3 PRESCHOOL 
COURSE ANALYSIS REPORT 


2025 PROCESSING UNIT 


MICROFICHE - ILLUSTRATED PARTS CATALOG 

2303 DRUM STORAGE 

MICROFICHE ~ ILLUSTRATED PARTS CATALOG 

1416 INTERCHANGEABLE TRAIN AND CARTRIDGE 
2970 MODEL 9 BANK TERMINAL 

MICROFICHE - FARLY WARNING 

SYSTEM/3 NEW CARD 

MICROFICHE -— ENGINEERING CHANGE ANNOUNCEMENT 
2075 ECA NEW CARD 


SCRAP ** 


SCRAP** 


SCRAP** 


USE*** 


SCRAP** 


ABST# 


13844 


13785 
02749 


13845 
13848 
13790 
13791 
03692 
02404 
13793 
13796 


13797 


06516 
13788 
11228 
13847 
13846 
12903 
12901 


12902 


13792 
12704 
12712 
12711 
12709 
12713 
12707 
12706 
12705 


13836 


13795 
13794 


13838 


13842 
05156 


13839 
13841 
04159 
13647 
13673 


13840 
13111 


13362 


* - REPLACED BY NEW ITEM LISTED; SEE OBSOLETE/REPLACE CATALOG. 


** — SCRAP PRIOR EDITIONS. 
*** —~ OSE PRIOR EDITION. 
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CLASS DAPS 
CODE 


SRL 0489 


SRL 0450 
DPT 


TEXT 
TEXT 
PRGPR 
PRGPR 
APPRG 
APPRG 
BRIEF 
BRIEF 
BRIEF 

0489 

0478 
ED GD 
FILM 
TEMPL 
LIST 
LIST 
MANUL 
MANUL 
MANUL 

0942 
SSG 
PAPER 
PAPER 
PAPER 
PAPER 
PAPER 
PAPER 
PAPER 
PAPER 


BROCH 


BROCH 
BROCH 


BROCH 


FE ED 
FORM 


FE ED 
FE ED 
FEMDM 
Ipc 
IPc 


Ipc 
FEEW 


FEECA 
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SS QTY 


No 


YES 
YES 


NO 


NO 
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YES 


NO 


NO 
NO 


ONE 
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ONE 


THO 


TWO 


ONE 
ONE 


TWO 


ONE 


ONE 


ONE 
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@ 2914-1 Switching Unit Configuration Chart 


The 2914-1 Switching Unit, shown in the RP@Q Section of the Sales Manual, provides for many 
configurations. Most can be determined by using the Chart below. Others can be worked out 
with Regional Special Product Marketing. The prices must be rechecked with the Sales Manual 
before quoting. 


To use the 2914 Configurator, select the required number of channels and control 

: unit strings along the left side of the chart. Next, read directly across for the 
| ‘total MAC, Purchase Price and MMMC for that configuration. To determine which 
| RPQ's are required and individual prices, use the RPQ number and price directly 
above the squares containing an "X". 


Asan example, aa2X3i.e. 2 channels and 8 control unit strings requires RPQ's 
8808824, 880901, 880904, and 880905. Total price is $746.00 MAC, $36,000 Pur- 
chase and $65. 00 MMMC. 


376. 42,015. ‘Lo. OO 
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SPECIAL PRODUCTS INFORMA TION 


I. Double Word Fetch/MVC 


Il. Highlights 


This feature reduces the LCS access time when 
fetching sequential addresses and when execu- 
ting the Move Character Instruction (MVC). 


ll. Description 


The LCS Data Interface is expanded from the 
present single word (86 bits) to a double word 
(72 bits). Although the 2050 CPU can process 
only a single word at a time, each LCS fetch 
cycle buffers a double word and its address. 

If the address of the next LCS fetch request is 
equal to the address of the buffered double 
word, the data is cycled from the buffer and a 
LCS cycle is not taken. The data in the buffer 
becomes invalid if a store operation or test 
and set instruction is executed and the address 
-is equal to the address of the buffered word. 
To eliminate a possible programming problem 
when in a shared storage configuration, the 
buffer is reloaded from LCS after two con- 
secutive fetches from the same double word 
address. The execution time of the Move 
Character (MVC) Instruction is reduced when 
the address of the first or second operand or 
both is a LCS address. The even word of a 
double word to be stored is buffered until the 
odd word is available and the double word is 
stored in LCS during one cycle. The double 
word fetch buffer is made use of for any 
fetches during the execution of a MVC Instruc- 
tion. 


12 


IV. Control Switch 


A four position switch is provided to disable 
the feature to allow the double word buffer and 
its address to be displayed. When the feature 
is disabled a LCS cycle will be taken for each 
word stored or fetched. With the switch in 
the display position, either word of the double 
word butfer or its address can be displayed. 


V. storage Size 


All standard Model 50 high speed storage sizes 
are available with the 2361 Model 1 or 4 LCS 
units. A maximum of two 2361's may be 
attached with this feature. 


VI. Prerequisite 


FC 8080 on 2050 

RP@Q 888157 on 2361 and one of the following 
specified features: 9001, 9006, 9016, 9021, 
or 9036. | 


VIL. Reference RPQ* Numbers andArea Prices 


MAC Purch MMMC 
E68304 Double Word $776. 


$27,936. $8. 50 
Fetch/MVC | 


*All RPQ prices shown are "area" prices. 
Firm quotations must be obtained from Re- 
gional Special Product Marketing before 
quoting to the customer. 
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OS/360 LINKAGE EDITOR ENQUEUE ON OUTPUT 
DATA SETS | 


In Release 18, the Linkage Editor gained 
the ability of functioning in more than 
one region or partition of a 
multiprogramming environment, 
Simultaneously using the same SYSLMOD 
output data set without conflict. This 
enhancement was implemented, in response 
to an APAR in the normal course of 
maintenance, using the ENQUEUE/DEQUEUE 
function. 


OS/360 MFT ABEND OUTPUT IMPROVEMENT 


This contribution has not been submitted 
to any formal IBM test. Potential users 
should evaluate its usefulness in their 
own environment prior to implementation. 


Shown below is a Superzap change to 
module IGCOO005A to increase the number 
of printed lines per page from 56 to 
75. This is particularly useful in 
installations which use their 1403 set 
at 8 lines per inch. This change is 
for OS Release 18 and may be release 
dependent. 


NAME IGCOO05A 
DUMP IGCOO05A IGCO005A 
VERIFY 02DA 41100038 
REP O2DA 4110004B 
DUMP IGCOO05A IGCO0O05A 
//SYSLIB DD DSN=SYS1.SVCLIB,DISP=OLD 


OS/360 VOLUME CYCLING WITH GENERATION 
DATA GROUPS 


This contribution has not been submitted 
to any formal IBM test. Potential users 
should evaluate its usefulness in their 
own environment prior to implementation. 


Many installations require that a specific 


series of pre-determined numbered tapes 
be used in a cyclical rotation as the 
residency for a particular master data 
set. Under OS/360, the cataloging 
facility affords the user the option 

of allowing the system to keep track 

of the physical residency and volume 
serial numbers of permanent data sets. 
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However, cataloging does not furnish 

a capability to rotate specific tapes 
as data set residencies in a son-father- 
grandfather-great grandfather 
relationship, where tapes A, B, C and 
D become D AB and C, C DA and B, B 

C D and A and eventually A BC and D. 
Operators must pre-determine and 
physically ensure that the oldest tape 
in the cycle is mounted when a system 
request is made to create a new master 
data set. 


Through the use of Job Control Language 
and Generation Data Groups, the facility 
of rotating specific tapes may be easily 
and automatically achieved. The example 
illustrates a data set, the most current 
of which is on tape A and the oldest 

of which is on tape D, whose newest 
updated version should be automatically 
created on tape D, while tapes A, B and 
C are “pushed down". 


Status of catalog before data set update: 


0 Tape A - Son 
-1 Tape B - Father 
-2 Tape C - Grandfather 
-3 Tape D - Great Grandfather 


//MAGIC DD DSN=SYS1.TAPE(-3) ,DISP=OLD 
//OLDMAST DD DSN=SYS1.TAPE (0) , DISP=OLD 
//NEWMAST DD DSN=SYS1.TAPE (+1), 


DISP=(NEW, CATLG) , 
// VOL=REF=*.MAGIC,DCB=..., etc. 


where the referral for the tape onto 

which the new version of the data set 
is to be written will always cause the 
automatic mounting of the oldest tape. 


Status of catalog after data set update: 


0 Tape D - Son 
-1 Tape A - Father 
-2 Tape B - Grandfather 
-3 Tape C - Great Grandfather 


DSN=SYS1. TAPE © 


JCL within job step creating new data set: 


e é 
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1130 FORTRAN IMPROVED WITH COMMERCIAL 
SUBROUTINE 


This technique may be of interest to 
engineering oriented 1130 shops where 
the Commercial Subroutine Package 
Ordinarily is not used. It has not been 
submitted to any formal IBM test. 
Potential users should evaluate its 
usefulness in their own environment prior 
to implementation. 


Incorporation of the Commercial Subroutine 
CALL READ to read from the 1442 in place 
of the FORTRAN READ has improved the 

run time of an engineering job from six 
hours to one hour and ten minutes on 

an 8K 1130. The FORTRAN READ was limiting 
total job throughput to the card speed 

Of 36 cpm. With the Commercial 
Subroutine, the card read speed attained 
200 cpm. FORTRAN statements were used 

to produce output by placing output on 
intermediate disk storage, then linking 
to a subroutine at the end of the job 

and using FORTRAN WRITES to print the 
output. : 
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All Type IV and Prior Use programs which appear in this Installation Newsletter 
were accepted prior to December 31, 1969. 


TYPE III AND IV PROGRAMS 


Type III programs are those which have been submitted by one or more IBM employees. 
They are programs of general interest submitted for unrestricted distribution. 

They have meta basic set of programming and documentation standards but are not 
program tested in any formal fashion by the IBM Corporation. The user is expected 
to make the final evaluation as to their usefulness in his own environment. These 
programs were available for delivery from the Program Information Department prior 
to June 23, 1969. 


Type IV programs are those contributed for unrestricted distribution by one or 
more authors of which at least one is an employee of an IBM customer. They are 
made available by IBM essentially in the author's original form, but conform to 
published Type IV standards. IBM exercises no control over the technical content 
of the documentation but merely assures that the quality of reproduction is 
satisfactory. Type IV programs have not been tested by IBM. The user is expected 
to make the final evaluation as to their usefulness in his own environment. 


IBM MAKES NO WARRANTY, EXPRESS OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE 
IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE AS TO 
THE DOCUMENTATION, FUNCTION OR PERFORMANCE OF THESE PROGRAMS. 


TYPE III PROGRAMS WITH 
SERVICE A CLASSIFICATION 


Type III programs which were given Service A Classification, perform functions 
which may be fundamental to the operation and maintenance of the user's system. 
These programs have not been subjected to formal test by IBM. 


Until reclassified, IBM will provide for these Type III programs with the following: 
(a) Central Programming Service including design error correction and automatic 
distribution of corrections; (b) Field Engineering Programming Service including 
design error verification, Authorized Programming Analysis Report (APAR) application 
of Program Temporary Fixes or development of an emergency by-pass when required. 


IBM does not guarantee service results or represent or warrant that all errors 
will be corrected. The user is expected to make the final evaluation as to the 
usefulness of these programs in his own environment. 


THE FOREGOING IS IN LIEU OF ALL WARRANTIES, EXPRESS OR IMPLIED, INCLUDING, BUT 
NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A 
PARTICULAR PURPOSE. 


PRIOR USE PROGRAMS 


There are a limited number of programs that were developed prior to June 23, 1969 
which were in the possession of and were being used by customers without 
restriction, but were not included in the Type III or IV libraries. These programs 
have been designated Prior Use Programs and are being made available through the 
Program Information Department (PID). 


Prior Use Programs have not been developed or tested in any formal fashion by the 
IBM Corporation, and, therefore, are available only on an "as is" basis without 
charge. It is the customer's responsibility to make the final evaluation as to 
the usefulness of the program in his own data processing and business environment. 


IBM MAKES NO WARRANTIES, EXPRESS OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE 
IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE AS TO 
THE DOCUMENTATION, FUNCTION OR PERFORMANCE OF THESE PROGRAMS. 
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Prior use programs are classified as follows: 


360K - System/360 Model 20 

360L - System/360 Models 25 and Above 

1131 = 1130 Computing System 

1801 - 1800 Data Acquisition and Control System 
1402 - 1401 Data Processing System 


on--------------- --------------- TYPE III REVISION -------------------------------- 


1401-10.3.063 FAST-FULLY AUTOMATIC SCORING TECHNIQUE. Material Revised: The 
Documentation and Machine Readable. 


anne nnn = - + - - = = == - NEW TYPE IV PROGRAM -------------------------------- 
AN 1130 HIGH SPEED BISYNCHRONOUS COMMUNICATIONS SYSTEM 


DESCRIPTION - The High Speed Binary Synchronous Communications subroutine is an 
1130 program which provides high-level capabilities for tele-communications with 
a S/360 or another 1130 over a point-to-point high speed (40.8K BAUD) half duplex 
line. 


The system provides support at the GET/PUT level for an arbitrary number of users 
(message destinations) in either machine. Messages containing data in any format 
can be sent from any user in one machine to any user in the other, with the routing 
automatically controlled by the system. 


PROGRAMMING SYSTEMS - Written in 1130 DMPS. The package is designed to run in 
conjunction with the Type 4 S/360 program entitled "A High Speed Bisynchronous 
Communications Access Method" (360D=-06.3.012). 


MINIMUM SYSTEM REQUIREMENTS - The 1130 configuration requires RPQs 831551 (expansion 
1133) and F21059 (communications adapter). 


BASIC PROGRAM PACKAGE 
DOCUMENTATION ~- Write-up. 
MACHINE READABLE = Source code. 
OPTIONAL PROGRAM PACKAGE = None. 
ORDERING INFORMATION: PROGRAM NUMBER 1130063005 


PROGRAM NUMBER DISTRIBUTION MEDIUM USER VOLUME 


EXTENSION TYPE CODE REQUIREMENT 
BASIC none DTR* 00 none 
OPTIONAL none | none none 
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Following is an accumulative list of Type III and Type IV programs which have been 
made available since the last edition of the Catalogs of Programs or their 
Supplements. Abstracts describing these programs can be found in the Installation 
Newsletter Issue No. shown below. All programs which appear in the accumulative 
list were accepted prior to December 31, 1969. 
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Program Title Newsletter ® 
Number Issue No. 
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360D-00.0.023 LISTUTIL 70-03 
360D-01.4.011 ZEROX =- COMMUNICATIONS PRODUCTS DIVISION OS/360 
MFT ACCOUTING ROUTINES 70-01 
360D-02.0.004 INDEX SEQUENTIAL ERROR BYTE CHECK ROUTINE 69-24 
360D-03.0.014 MULTIPROGRAMMING SYSTEM (MPS) 70-05 
360D-03.3.012 SPEAKEASY 70-04 
360D-03.4.033 A 2250 MODEL 1 SIMULATION SUPPORT PACKAGE 70-02 
360D-03.4.034 PS 44/2314 SUPPORT 70-04 
360D-03.5.005 A SYSTEM TO PROCESS ABSTRACT CATALOGS AND RELATED 
INDICES 70-02 
360D-03.5.006 RDC/1 REPORT DATA ON CONDITION 70-03 
360D-03.5.007 REPORT WRITER 70-06 
360D-03.7.033 BINARY SEARCH MACRO 70-04 
360D-05.0.003 OS MASTER SCHEDULER INITIALIZATION IMPROVEMENTS 69-25 
360D-05.1.019 O.S./M.I.S.P. VERSION 1.1 70-06 
360D-05.1.020 PITT TIME SHARING SYSTEM AND ASSOCIATED LANGUAGE 
PROCESSORS 70-06 
360D-05.2.012 44 MFT MULTIPROGRAMMING SYSTEMS FOR THE 360 
MODEL 44 70-02 
360D-05.2.013 DOS/RESQUEUE = RESOURCE QUEUING AND USER SvCc'S 70-05 
360D-06.3.013 1907 REMOTE ORDER ENTRY PROGRAM 70-02 
360D-06.3.014 PHARMACY PROCESSING IN A HOSPITAL INFORMATION 
SYSTEM WITH MISP 70-04 
360D-06.3.015 NURSING INSTRUCTION ORDER PROCESSING IN A MEDICAL 
INFORMATION SYSTEMS ENVIRONMENT 70-03 
360D-06.7.025 MISP LABORATORY REQUISITION SYSTEM 70-03 ©} 
360D-06.8.002 LPI 69-24 
360D-08.6.011 PNRG, PERSPECTIVE PLOTTING ROUTINE, ARBITRARY GRID 70-06 
360D-08.6.012 PRG, PERSPECTIVE PLOTTING ROUTINE, RECTANGULAR GRID 70-06 
360D-08.6.013 PLT360, IBM 1627 PLOTTING ROUTINE 70-06 
360D-11.4.003 THE 141 MONITOR - AN EDUCATIONAL COMPUTER FOR BASIC 
COMPUTER INSTRUCTION 70-03 
360D-12.1.023 CEFF - S/360 PIOCS PROGRAM TO COPY EMULATOR 
FOURTEEN HUNDRED FILES FROM 2311'S TO 2314'S 70-06 
360D-15.2.013 SYSTEM/360 COMPUTER ASSISTED MENU PLANNING 70-03 
. 360D-15.3.002 QPS: A QUADRATIC PROGRAMMING SYSTEM FOR THE 
IBM/360. 70-06 
360D-15.5.003 QUAKER OATS VERSION OF PURDUE SUPERMARKET 
MANAGEMENT GAME | 70-06 
360D-16.2.027 ICES/360 SOURCE STRUDL-II 70-02 
360D-16.2.028 ICES/360 STRUDL - II = CSAS16 70-04 
360D-16.3.002 PULSE TESTING VIA THE FAST FOURIER TRANSFORM 70-01 
360D-16.5.002 GENERAL THERMAL PIPE STRESS AND DEFLECTION PROGRAM 70-03 
360D-19.7.012 A 2980-IV ON-LINE FINANCIAL SYSTEM 70-02 
360D-23.4.003 GRAPHIC PART PROGRAMMER 70-04 
360D-40.0.002 INTEGER MULTIPLE PRECISION SUBROUTINE PACKAGE 
. FOR THE IBM 360 70-03 
360D-42.0.002 MINFUN FUNCTION MINIMIZER 70-03 
360D-99.0.008 LIBRARY CIRCULATION CONTROL SYSTEM 70-05 
360E-03.6.003 IBM S/360 EXPANDED CARD EDITING PROGRAM 70-03 
360E-12.2.004 UNIVAC TO IBM RPG TRANSLATOR 70-02 
1130-00.0.011 CDUTL, A GENERAL PURPOSE CARD UTILITY 69-25 
1130-00.0.013 80/80 LIST PROGRAM 70-04 
1130-01.0.001 DCODE =- AN OBJECT - TO - SOURCE LISTING PROGRAM 
FOR THE IBM 1130 70-02 
1130-01.0.002 INTERRUPT REQUEST INTERCEPTION SUBROUTINE 70-04 
1130-03.1.001 SIMULATED ASSEMBLY PROGRAM 70-02 
1130-03.4.014 A 2250 MODEL 1 SIMULATION SUPPORT PACKAGE 70-02 
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1130-03.4.015 
1130-03.4.016 
1130-04.0.002 
1130-04.2.004 
1130-05.3.002 
1130-06.3.005 


1130-06.6.018 


1130-07.0.003 
1130-08.0.003 
1130-08.7.001 
1130-15.4.008 
1130-17.3.004 
1130-23.4.006 


1130-40.0.001 


1130-45.1.001 
1130-99.0.002 
1130-99.0.003 


1500-01.6.001 
1500-03.8.001 
1500-99.0.002 
1500-99.0.003 


1500-99.0.004, 


1800-01.8.001 
1800-03.4.009 
1800-06.7.001 
1800-07.2.001 
1800-43.2.001 


1401-10.3.071 


1401-10.3.072 
1401-10.3.073 


1620-01.6.160 
1620-02.0.066 
7040-H2 3552 


7094-F2 3554 
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EXECUTION-TIME FORMAT STATEMENTS 

FORTRAN I/O ERROR TRAP - SFIO AND SFIOP 
ASSEMBLER LANGUAGE DEBUGGING PROGRAM SEGMENTS 
ASSEMBLER/FORTRAN PROGRAM TRACE PACKAGE 

IPL CARD READING PROGRAM 

AN 1130 HIGH SPEED BISYNCHRONOUS COMMUNICATIONS 
SYSTEM 

TYPE SUBROUTINE FOR LOWER-CASE OUTPUT ON 1130 
CONSOLE PRINTER 

DATA SWITCH INPUT SUBROUTINE 

PRNTZ - 1132 PRINTER OUTPUT SUBROUTINE 
PRINTER GRAPHIC SUBROUTINE PACKAGE 

1130-8K STUDENT SCHEDULING SYSTEM 

FAST 

RCAPS = AN 1130 CONTOURING NUMERICAL CONTROL 
PROCESSOR 

INTEGER MULTIPLE PRECISION SUBROUTINE PACKAGE 
FOR THE IBM 1130 

MATRIX INVERSION SUBROUTINE 

BILLERICA 1130 SCHEDULER 

SCHOOL ATTENDANCE PACKAGE FOR THE IBM 1130 USING 
DISK STORED STUDENT RECORDS 


RAS/1130 COURSEWRITER II REASSEMBLE PROGRAM 
RESPONSE ANALYSIS FUNCTIONS FOR THE 1500 SYSTEM 
FUNCTION EP 1500 CW II FUNCTION CAI SYSTEM 

U.T. COURSEWRITER FUNCTION PACKAGE 

FUNCTION KMIN 1500 CWII FUNCTION CAI SYSTEM 


BINARY DATA ARRAY MULTIPLEXER ROUTINE 
REWIND AND UNLOAD SUBROUTINE 

LOGICAL AND RELATIONAL PACKAGE 
VARIABLE FORMAT SUBROUTINE 

CONTROL SYSTEMS ANALYSIS PROGRAM 


1401 UNIVERSITY ADMISSIONS INFORMATION SYSTEM 
FINANCIAL AID INFORMATION SYSTEM (LOAN SUBSYSTEM) 
FINANCIAL AID INFORMATION SYSTEM (STUDENT AID 
SUBSYSTEM) 


LABELR - A REPORT GENERATOR 
A MODIFIED PDQ FORTRAN SYSTEM 


MULTIDIMENSIONAL OPTIMIZATION USING PATTERN SEARCH 


EIGENVALUE - EIGENVECTOR ROUTINE FOR REAL COMPLEX 
MATRIX 


Issue No, 
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ACCUMULATIVE LIST OF PRIOR USE PROGRAMS 6 


Following is an accumulative list of prior use programs which have been made 
available since the last edition of the Catalogs of Programs or their Supplements. 
Abstracts describing these programs can be found in the Installation Newsletter 
Issue No. shown below. 


Program Program Title Newsletter 
Number . Issue No. 
360L-03.2.001 BUFF 40 70-04 
360L-04.4.001 1827 CONTROL PROGRAM 70-04 
360L-05.0.001 2260 SUPPORT FOR MISP 70-05 
360L-06.7.001 INFORMATION RETRIEVAL MANAGEMENT SYSTEM (IRMS) 70-06 
360L-05.1.001 ONLINE/OS - A CONVERSATION MONITOR FOR OS/360 70-04 
360L-13.0.001 SASE IV -—- AN IMPROVED PROGRAM FOR THE STATISTICAL 
| ANALYSIS OF SERIES OF EVENTS 70-05 
360L-15.0.001 DZLP ADAPTIVE BINARY PROGRAMMING 70-04 
360L-16.3.001 IBM 360 DYE SELECTION AND FORMULATION PROGRAM FOR 
COLOR MATCHING 70-06 
360L~19.0.001 BROKERAGE COMMUNICATIONS CONTROL APPLICATION PROGRAM 70-04 
360L-19.0.002 IBM S/360 LOS ANGELES FINANCIAL ON-LINE-BANKING 
REFERENCE SYSTEM FOR SAVINGS 70-04 
360L-23.1.001 PAPER MACHINE TRIM SYSTEM 70-06 
360L-28.3.001 CMS - CREDIT MANAGEMENT SYSTEM 70-07 
360L~-30.0.001 LEGISLATIVE INFORMATION SYSTEM DEMONSTRATION 
PACKAGE (LEGISY) 70-04 
360L-50.1.001 ALIS STARTER SYSTEM 70-04 
360L-99.0.001 AUTOMATIC DRIVER RE-TEST PROGRAM S/360 70-05 
360K~-19.0.001 MODEL 20 BROKERAGE PACKAGE 70-04 
1131~-06.6.001 LINOFILM SUPER QUICK OUTPUT MODULE FOR 1130 PHOTO 
COMPOSITION PROGRAM 70-04 
1131-16.2.001 TRAFFIC CONTROL PROGRESSION PROGRAM 70-05 
1131-21.1.002 1130 4k PAYROLL PACKAGE 70-04 
1801~03.4.001 MODIFICATIONS TO INCLUDE THE 1132 PRINTER IN THE IBM 
1800 MULTIPROGRAMMING SYSTEM (MPX) 1800-O0S=-010 70-04 
1801-05.1.001 1800 PALO ALTO LABORATORY SYSTEM (PALS) VERSION II. 70-04 
-1801-23.1.001 PAPER MACHINE TRIM SYSTEM 70-05 
1402-10.3.075 SOCRATES STUDENT SCHEDULING - BETA VERSION 70-04 
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SELECTED SHORT SUBJECTS 


The purpose of Selected Short Subjects 
is to bring together and highlight 
concise, factual and timely information 
indicating that action is to be taken 
by the IBM representative whose accounts 
are affected. 


1. NOTICE TO READERS AND CONTRIBUTORS 


I'm sure there has been some uncertainty 
in the field about the publishing of 

code in the INL. Now the situation has 
been clarified, and the door has been 
opened. The INL has been identified 

as one of the vehicles to be used in 
order to assure the free interchange 

of data processing ideas, concepts, know- 
how and technigues, and to avoid 
duplications of effort. 


I'm referring to Marketing Announcement 
270-39, which provides guidelines for 
the use, interchange and submission of 
programming. Each of you should read 
this carefully. It is good news! 


Contributions lately have been rather 
Slow. Now I expect more activity. All 
readers of the INL are invited to become 
contributors! 

Editor 


2. NEW RELEASES OF PROGRAMS 


This information is furnished in order 

to assure that you are aware of new 
releases of programs which are being 

used by your customer. The programming 
service period for program releases being 
replaced by new releases is stated below. 


1. Version 1 Modification Level 1 of 

the IBM Customer Information Control 
System (5736-U11) is available from PID. 
version 1 Modification Level 0 will 
remain “current"™ for programming service 
purposes until August 14, 1970. 
Programming service classification: B. 
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2. Version 2 Modification Level 1 of 

the Input/Output Control System for the 
Binary Synchronous Communications Adapter 
(360T-CQ-111) is now available from PID. 
Version 2 Modification Level 0 will 
remain “current" for programming service 
purposes until August 12, 1970. 
Programming service classification: A. 


3. Release 9 of the IBM System/360 Model 
20 Disk Programming System (DPS) is 
available from PID. Version 5 
Modification Level 0 will remain “current" 
for programming service purposes until 
August 4, 1970. Programming service 
classification: A. 


4. Version 2 Modification Level 4 of 
System/360 AUTOSPOT Numerical Control 
Processor (360A-CN-08X) is available 
from PID. Version 2 Modification Level 
3 will remain “current" for programming 
service purposes until August 29, 1970. 
Programming service classification: B. 


5. Version 2 Modification Level 1 of 
Shared Hospital Accounting System (360A- 
UH-11X) is available from PID. Version 

2 Modification Level 0 will remain 
"current" for programming service purposes 
until August 18, 1970. Programming 
service classification: B. 


6. System Release 22/23 of DOS is 
available from PID. System Release 21 
will remain “current™ for programming 
service purposes until August 15, 1970. 
System Release 21 publications will 
remain available as long as Release 21 
remains “current". These publications 
are available from Mechanicsburg only. 
Programming service classification: 

A, except for AUTOTEST, which has 
programming service classification C. 


7. Version 1 Modification Level 1 of 
APL/360-OS (5734-XM1) is available from 
PID. Version 1 Modification Level 0 
will remain “current" for programming 
service purposes until August 3, 1970. 
Programming service classification: 
Modified B. 
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CALL/360-OS PTFs, UTILITIES AND EDUCATION 


1. Two PTFs are available for CALL/360- 


OS. These should be applied before the 
system is put into production. Contact 
FE. 


2. An additional utility function is 
available with the initial release of 
CALL/360-OS that is not clearly defined 
in the current documentation. This 
utility allows FORTRAN, BASIC or PL/I 
programs to be introduced into the 
CALL/360 system via the background. 
Existing programs can be loaded into 
CALL/360-OS libraries off-line and 
debugged from a terminal. This utility 
(U#UPDATE) will aid in converting existing 
programs to the on-line mode of operation. 
Details are being sent to your SD&I 
Center. A TNL will reflect this 
information. 


3. A customer class on Installing 
CALL/360-OS (S-3700) is planned for 
August 4 - 7, 1970, in Chicago. See 
SECOM for details. 


4“. “It's CALL/360-OS, whenever 
discriminating problem solvers 
congregate." 


DOS/360 PRIVATE LIBRARY CREATION DURING 
SYSGEN 


This contribution has not been submitted 
to any formal IBM test. Potential users 
should evaluate its usefulness in their 
own environment prior to implementation. 


The DOS PID distribution is made on three 
volumes for Release 23. Vol. 1isa 

Core Image and Relocatable Library system, 
Vol. 2 is a Core Image and Source 
Statement Library system, and Vol. 3 

is a Private Source and Private 
Relocatable Library system. It may be 
advantageous for your to redefine Vol. 

2 aS a Private Source Statement Library. 
The following technique may be used to 
create a private library from an existing 
SYSRES volume. 
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A. Display the System Directory to find 
the library beginning and ending 
cyclinders. 


// JOB STEP1 
// EXEC MAINT 


6 


B. Create a label in the VTOC to define 
the Source Statement Library extent. 
(Reply DELETE to the 4444 MSG.) 


1. Assemble the following job. 


PUNCH . Phase LABCRT,S' 
LABCRT START 0O 
DASD DTFSD BLKSIZE=100, IOAREA1=DASDIO, 

TYPEFLE=OUT PUT 

BEGIN BALR 2,0 

USING *,2 

OPEN DASD 

EOJ 
DASDIO DS CL100 

END BEGIN 


2. Link and execute the program from 
item 1 above. 


// JOB CREATE A VTOC ENTRY 
// ASSGN SYS007,X*192* 
// DLBL DASD, ‘DOS. PVT. LIBRARY.NO. 2',99/365 
// EXTENT SYS007,111111,1,0, NNN, NNN 
// OPTION LINK 

**#OBJECT DECK FROM ITEM 1¥* 
// EXEC LINKEDT 
// EXEC 


C. Assign the new volume as a Private 
Library. | 
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DOS/360 POWER II WITH NON-ENDING PROGRAMS 


This contribution has not been submitted 
to any formal IBM test. Potential users 
should evaluate its usefulness in their 
own environment prior to implementation. 


This modification, illustrated in Exhibit 
1, allows POWER II users to run non- 
ending programs in the POWER partition. 
By using simple operator commands, he 
May request that a program be loaded 
and share the partition with POWER and 
at a later time request removal of the 
program. When either POWER or the user 
program go into a WAIT, the other is 
given control when both programs are 

in a WAIT, the partition is placed in 

a WAIT. 


A DOS Supervisor with multitasking 
capability (AP=YES) is not required; 
the user program does not run as a DOS 
subtask. Therefore, the user program 
must be non-ending. If it terminated, 
POWER would be terminated also. A program 
may effect removal from the system by 
issuing a termination request message 
to the console and then waiting on a 
The operator then issues 
the REMOVE command. 


An additional parameter (SUBTASK) and 
operator command (X) are added to POWER. 


PARAMETER 


SUBTASK = }NO 
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NO: Non-ending programs and the X 
operator command not supported. 


YES: Non-ending programs (phase 1, 
through phase n) and the X operator 
command are supported. 


Phase 1 through phase n: Eight character 
phase names of all non-ending programs 
cataloged to run in the partition with 
POWER. The X operator command processor 
verifies that any phasename entered 
appears in this list. 


X OPERATOR COMMAND 
xX A Display active 
phasename (if any) 


Load and activate 
non-ending program 
*phasename" 


X LOAD, phasename 


X REMOVE,phasename Deactivate non-ending 


program ‘phasename' 


phasename: Eight character phasename 

Of non-ending program to be run in 
partition with POWER. Must appear in 
the SUBTASK parameter when POWER is 
assembled. Number of entries is limited 
only by assembler Operand Sublist Length 
limitation. 


(YES, phase 1,phase 2,...phase n), 


// JOB UPDATE POWER II )$ ) « 
4/4 EXEC MAINT )$) - 
UPDATE A.POWER JAS JI. 
) REP 9 JAS DI- 
EPRICGRTY=NO, JAS J1.X 
GESUBTASK=NOQ, SUBTASK ADDED —- 03/30/70 — JAS )I-X 
) ADD 383 JAS JI. 
ALF ("&ESUBTASK® EQ "NO*).N17 JAS DI. 
ALF {"&SUBTASK!' NE YES*).XPROCL JAS JI. 
ALF (*&SUBTASK(2)" NE §*).N17 JAS D1. 
eXPROCL ANOP JAS 1. 
MNOTE *?*®SUBTASK*® ENTRY INVALID? JAS JI. 
&M99 SETB (1) | JAS JI. 
) ADD 459 JAS JI. 
PUNCH * PHASE FGPTYPXX,+0 * JAS JI. 
PUNCH * INCLUDE ,{FGPTYPXX) ? JAS JI. 
) REP 593 JAS JI. 
POWERSUP READER=EREADER, JAS )1.X 
SUBTASK=ESUBTASK SUBTASK ADDED -- 03/30/70 JAS JI. 
) REP 595 JAS JI 
POWERCOM READER=EREADER y»PRIORTY=EPRIORTY, JAS J1.X 
SUBTASK=&SUBTASK SUBTASK ADDED-- 03/30/70 JAS V1. 
) END YAS JI. 
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6 UPUATE AsPOWERSUP | )A$ )I. 
) REP 1 YAS DI. 
POWERSUP EREADER=TYPEL]L, JAS )1-X 
ESUBTASK=NO SUBTASK ADDED -- 93/30/70 JAS JI. 
) REP 156 _ ) AS JI. 
AIF (*ESUBTASK* EG 'NO*).RWFOS AS JI. 
Fo eo tok a ik iokok 2k doko gk iid ack dok kak kaka ea RRR YAR YL. 
* JAS JI 
x THE FOLLOWING MULTI-TASKING CODE HAS BEEN ADDED JAG JT. 
% 03/30/70 JAS 71. 
* JAS JI. 
RO a gok gk doko tok doigtgiok good ka ei okok dk ok doko aK KERR EE DAS PT. 
SVCFG CLi 35,7 WAIT ISSUED JAS DI. FRX 
SVCFGX B SVCFG1 CHANGED TU -BNE-— WHEN LST SUBTASK ACTIVATEIAS )I. 
™ 33—9X"FO" WAS IT A WAIT FROM SUPVR MAS )i. 
RZ EXITA YES, GU LET SUPVR HANDLE JAS JI. 
CLI SVC 7SWsX*FF!? WHERE DID SVC7 COME FROM)AL )I. **** 
BE SVC TRET FROM SVC? RETURN FROM SUPVR JAS JI. 
™ 2¢(1),xX' 808 WAIT ALREADY SATISFIED JAS JL. KE 
BO EXITA YES. RETURN JAG JL. ***% 
CLI SUBTSKSW,X'tFF! WHICH TASK ISSUED SVC7 JAS JI ew RRE% 
BE SUBTSK SUB-TASK JAS JIT **E 
STi 1O0,7,;SVMKREGS+8 SAVE POWER REGS 10-7 JAS )I. 
MVC SVMREGS(8),0. SAVE 8-9 JAG Ye EK 
MVC SVMPSW13) 932 SAVE PSW JAS JI. **%! 
TSTSTSK LM 10, 7,SVSREGS#+8 RESTORE SUBTASK REGISTERS A$ JI. 
MVC O0(8,0),+SVSREGS REGS 8,9 JAS JLo ¥*E* 
MVI SUBTSKSW,.X*FEF? SET SUB-TASK INDICATOR YAS JIL. ***% 
TMINSTR TM 2(1),X*#80" SUB-TASK COMPLETED I/90 YAS JI. 
| BZ SETSVC 7 BRANCH IF SUB-TASK I/0 NOT COMPLETE JAS JI. 
rd TSKSELS MVC 8(8,O)_,S5SVSPSWh RESET PSW | JAS JILL KK 
i EXITAB RETURN TO SUB-TASK JAG JIL. ¥R** 
* | JAS JI. REX 
SETSVC? MMVI SVC 7TSW,X'FF? SET MULTI-TASK SVC7 BOUND SW)AS JI. 


MYC 37(3,0),=AL3(SVC7+10) FORCE SVC7T RETURN TO SVC? )AS JI. 


x MAKE INSTR COUNTER IN SUPVR CALL OLD PSW PT TO TEN )AS JI. 

* BYTES AFTER THE SVC7. OQS WILL BACK THIS UP 10 JAS JI. 

% BYTES AND STORE IT AS THE IC IN THE POWER PARTITION )AS JI. 

* SAVE AREA PSW. JAS JI. 
+B EXITA GO TO SUPVR SVCHOLR JAS )I.- 

% THE POWER PARTITION WILL NOW BE MADE SVC7 BOUND. JAS JI 

* WHEN AN I/O INTERRUPT FOR THE POWER PARTITION JAS JI. 

* OCCURS, THE SVC7 WILL BE EXECUTED AND SVCFG JAS )I. 

* HANDLE IT. JAS JI. 

* JAS )I1e *¥RX 

SUBTSK STM 10,7 ,SVSREGS+8 SAVE SUB-TASK REGS YAS YL. **RK 
MVC SVSREGS(8),0 REGS 8,9 JAS DI. ¥***% 
MVC SVSPSW(8) 432 SAVE PSw YAS JI. **RK 

TSTMTSK LM 10, 7,SVMREGS+8 RESTORE MAIN REGS JAS JIL. eK 
MVC 0(8,0),SVMREGS REGS 8,9 YAS JL. ***K 
MVI SUBTSKSWsX*00!# SET MAIN SWITCH JAS JIL, *¥ee 
™ 2(1),xX'80* 1/G COMPLETED JAS JI. EEK 
BZ SETSVC7 NO YAS JI. ** HH 

TSKSELM MYC 8(8s0),SVMPSW RESTORE MAIN PSW JAS JI. ##** 
B EXITAB RETURN TO MAIN TASK YAS JI. **E* 

* JAS JI. *#HX 

SVC7RET MMVI SVC 7SW,X!'00! CLEAR MY SVC7 BOUND SWITCH JAS )I. 
™ 211),X'80! WAIT SATIFIED FGR THIS TASK) AS )1. 
BO TSKSEL YES. GO FIND WHICH TASK JAS JI. **** 
CLI SUBTSKSW,X!FF# SUB-TASK JAS JI. RX 
BE TSTMTSK YES- GO TEST MAIN JAS JI, BRK 
B TSTSTSK , GO TEST SUB-TASK JAS )I. BHEX 
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TSKSEL CLI. SUBTSKSW,X*FF® SUB-TASK JAS JI. ##EK @ 
BE TSKSELS YES- GO TASK SELECT SUB-TASK)A$ JI. | 
B TSKSELM GO TASK SELECT MAIN YAS JL. ¥eEX 
x YAS )le EHX 
LTORG JAS JL. FHRX 
SVCT SVC. RETURN FROM SUPVR(BOTH TASKS) )A$ )I. 
SVC7SW CC. X*0C* FF WHEN BOTH TASKS SVC7 BOUND YAS DI. 
SUBTSKSW DC X*00! FF SUBTASK RUNNING -- 00 POWER RUNNING YAS JI. 
SVMPShW US 2F POWER PSW YAS )Ig *HHX 
SVMREGS CS 16F POWER REGS | AS JI, KEKX 
SVSPSh CS 2F SUB-TASK PSW YAS JI. *EH! 
SVSREGS CS 16F SUB-TASK REGS JAS DI. ¥eH 
XPROPHAS DC  — 8X*40! ACTIVE PHASE NAME JAS JI. 
FIRSTIME MVC  TMINSTR(4),HLDINSTR REPLACE B INSTR WITH T™ JAS )1. 
LA 1 »XPRCPHAS PT TO PHASE NAME JAS JI. 
SR 0,0 . JAS JI. 
MVI 35,1 CHANGE SVC CODE TO FETCH A$ JI. 
B EXITA .» : YAS JI. 
HLOINSTR TM 2(1),»X*80" SUBTASK COMPLETED 1/0 YAS JI. 
XPRUINST B FIRSTIME . | )A$ )Ie 
x AS JI. ERX 
LTORG JAS JI. *H4K 
* END OF ADDED CODE SR REE RAE RE EERE AKER EER REESE RE GREE EE AKERKERE IAG DTS 
SVCEGL CLI 35,WAKEUP SPECIAL SVC REQUEST YAS JI. 
AGO .RWEOS YAS JI. 
-RWEO3 = ANUP | YAS JI. 
SVCEG CLI 35, WAKEUP SPECIAL SVC REQUEST YAS DI. 
eRWFEO4 = ANGP )A$ JI. 
) END | YAS DI. 
UPDATE AsPOWERRES JAS JI. 
) ADD 628 YAS )Ie © 
OC Cx JAS DI. 
) END YA$ JI. 
UPDATE A.sPOWERCOM AS DI. 
) REP 1 | | | JAS JI. 
POWERCOM GREADER=TYPE1, &PRIORTY=NO, YAS DIX 
| ESUBTASK=NO SUBTASK ADDED-- 3/30/70 )A$ )I. 
) ADD 13 )A$ JI. 
LCLA 6INDEX1 JAS )Ie 
) AOD 123 YAS DI. 
CLI TYPEIN,»C*X* X COMMAND AS Ve 
BNE  XPROC1 NG JAS JI. 
MVC —- TYPETRAN( ®)y=CL8*FGPTYPXX* MAKE IT X OPERATOR CGM)A$ I. 
, & CVERLAY1 | YAS JI. 
MPRUCL EQU & JAS JI 
) ADD 1642 YAS JI. 
AIF (*&SUBTASK!? EQ *NO").xXPROCX | YA$ JI. 
TITLE '*x'* OPERATOR COMMAND! YAS DI. 
FGPTYPXX CSECT | JAS )I. 
LSING * 96 )A$S JI. 
USING DATAUNIT,2 | )A$ )I. 
USING COMMONDT,9,8,10 JAS )I. 
LSING TIBe7 | YAS JI. 
USING JCT?14 A$ DI. 
USING DCT »4 YAS JI. 
OC TYPEIN+1(20) » BLANKS YAS JI. 
CLI TYPEIN#1,X*40" SPACE NEEDED YAS JI 
BE XPROC3 BR IF SPACE YAS JI 
XPRUC2 MVC  TYPEIN(L*XPRCMSG1L),XPROMSGL BAD COMMAND “YAS DI 
MVI  TYPEIN-1,L*XPROMSGL MSG LENGTH —=*YAS VL 


B FUNNELJ GC TYPE ERROR MSG. JAS JI. 
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& - XPROC3  EQU- * | JAS JI. 
CLI TYPEIN+2,C*A® REQUEST FOR ACTIVE TASK JAS DI. 

BE XPROCS BR IF YES JAS JI. 

CLC TYPEIN+2(4) »=CL4*LOAD* LOAD JAS JI. 

BE XPROLOAD BR IF LOAD FUNCTION JAS OI. 

CLC TYPEIN#2(6),=CL6*REMCVE* REMOVE FUNCTION JAS JI 

BNE XPROC2 NG, INVALID FUNCTICN JAS )I. 

CLi TYPEIN+8,X*6B* COMMA NEEDED JAS JI. 

BNE XPRCC2 BR IF ERROR PAG JI. 

CLC XPRCOPHAS, TYPEIN#?9 IS REQUESTED PHASE ACTIVE JAS JI. 

BE XPROC4 BR IF YES JAS DI. 

MVC XPRGMSG2+6(8) ,TYPEIN#+9 MOVE PHASE NAME JAS JI. 

MVC TYPEIN(L*XPROMSG2),XPROMSG2 ERR MSG JAS DI. 

MVI TYPEIN—-1L,»~L®FXPROMSG2 MSG LENGTH TO ERR MSG JAS JI. 

B FUNNELJ GC TYPE ERROR MSG YAS JI. 

XPROC4 EQU * JAS DI. 
MV I SVCFGX4+1,X'FO* MAKE IT UNCONDITIGNAL BRANCH AGAIN)JAS$ )I. 

MVC XPROPHAS(8),BLANKS CLEAR PHASE NAME JAS 71. 

L T,TYPESTAT+#4 )A$ D1. 

B TYPE3 BDEACTIVATE TYPE TIB . A$ JI. 

XPROGLOAD CLi TYPEIN+6,X'6B* COMMA NEEDED JAS )Ie 
BNE XPROC2 BR IF NONE JAS )I. 

CLI XPRGPHAS,C* * SUBTASK ACTIVE JAG DI 

PE XPRCC&é& BR IF NO SUBTASK ACTIVE | JAS )I. 

XPROCS MVC XPRGMSG3+618),XPROGPHAS MOVE ACTIVE PHASE TO MSG JAS JI. 
MVC TYPEIN(L* XPRCMSG3),XPROMSG3 MOVE MSG JAS JI. 

MVI TYPEIN—-1L,LEXPROMSG3 MSG LENGTH JAS JI. 

ie FUNNELJ GG TYPE ERR MSG JAS JI. 

XPRGC S65 EQU * . IAG YI. 
LA L»yXPHASA POINT TO LST PHASE NAME )AS JI. 

XPROC? CLC 0(8,1),TYPEIN+7 IS PHASENAME VALID JAS JI. 
BE XPRCOC8 BR IF YES JAS JI. 

LA 128(1) INCRE TO NEXT PHASE NAME JAS )I. 

CLI O(1L),X*'FF* END OF PHASE NAME TABLE JAS JI. 

BNE XPROC7 BR IF NC YAS )1. 

MVC XPROMSG44#+6(3) ,TYPEIN#+7 INVALID PHASE NAME TG MSG )A$ )I- 

MVC TYPEIN(L*XPROMSG4) ,XPROMSG4 ERR MSG JAS JI. 

VV I TYPEIN-1L,L*XPROMSG4 MSG LENGTH JAS JI. 

B FUNNELJ GO TYPE ERR MSG 7 JAS )I. 

XPROCB EQU- * | AS JI. 
MYI SVCFGX+1,X?70" MAKE IT BNE INSTR JAS DI. 

MVC TMINSTR(4),XPROINST MAKE IF FIRSTIME JAf JI. 

MYC XPROPHAS(8),TYPEIN+7 SAVE ACTIVE PHASE NAME JAH JI. 

B XPRCCY GC TYPE PHASE NAME JAS JI. 

XPROMSG1 CC CL2C*INCGRRECT DP COMMAND® | JAS JI. 
XPROMSG2 DC C'PHASE NOT ACTIVE® | YAS JI. 
XPROMSG3 CC C*PRASE NOW ACTIVE!® JAS JI. 
XPROMSG4 DBC C*PHASE | NOT VALID® JAS JI. 
XPHASA EQU * PHASE TABLE BEGIN | JAS JI. 
GB&INDVE Xl SETA 2 PGINT PAST REQUIRED YES OPERAND. JAS )I. 
eXPROCL AIF (*E€SUBTASK(&INDEX1)"' EQ **#).XPROCOD IS IT NULL JAS JI. 
| oc CL8*ESUBTASK(EINDEX1)*® VALID PHASE NAME JAS DI. 
E&INDE XL SETA SINDEX141 INCRE TG NEXT ENTRY IN SUBLIST JAS JI. 
AGO eXPROCI JAS JI. 

eXPROCJ ANOP ; | JAS JI. 
XPHASB CC 8X*FF* PHASE TABLE END JAS JI. 
LTQORG JAS JI. 

CRG FGOPTYPXX+1024-8 JAG DIL 

CC. CLE*'FGPTYPXx? JAS DI. 

DROP 692 JAS JI. 

eXPROCX ANUP JAS JI. 
) END JAS JI. 
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OCR _ INPUT PREPARATION GUIDE FOR THE 
1287/1288 


The OCR Input Preparation Guide for the 
IBM 1287/1288 is now in stock in 
Mechanicsburg. The form number is GC20- 
1686-3. This manual contains several 
sample OCR forms from different 
application areas including a narrative 
for the highlights of each form. The 
manual also contains several human factors 
considerations for OCR forms design, 

a step-by-step approach to forms design 
for the 1287/1288, specifications for 
forms design for the 1287/1288 and a 
discussion of all the possible input 
devices for the 1287/1288 with suggestions 
and considerations for each of these 
environments. 
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INFORMATION ABOUT THE NEWSLETTER 


The IBM Installation Newsletter is 
distributed only to IBM locations and 

is not available to customers. The 
Newsletter is separated into two parts. 
The first part contains information which 
is intended only for IBM personnel and 
the pages are labeled For IBM Internal 
Use Only. THESE PAGES, OR REPRODUCTIONS 
OF THEM, ARE NOT TO BE GIVEN TO CUSTOMERS. 
However, using your own good judgement, 
you may discuss pertinent information 
from these pages with a customer. The 
second part contains information which 
may be reproduced by the Branch Office 
at their discretion and given to 
customers. These pages are not labeled 
with any restrictive classification. 

Note that when any information on Type 
III, Type IV, or Prior Use programs is 
given to a customer, he must be informed 
that the disclaimers as contained in 

the Newsletter apply. 

YOUR COOPERATION IN PROPERLY HANDLING 

THE CONTENT OF THE IBM INSTALLATION 
NEWSLETTER IS NECESSARY FOR ITS CONTINUED 
PUBLICATION. 


Direct inquiries concerning the contents 
of this Newsletter to: 


W. F. Malmborg, Editor 

IBM Installation Newsletter 
Dept. 812, DPD HQ 

112 East Post Road 

White Plains, New York 10601 
Telephone 914-696-3781 

Tie Line 254-3781 
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SPECIAL PRODUCTS INFORMA TION 


I. 2001, 2560 Optical Mark Reading Fea- 
tures are now available 


II. General Description 


Provides the 4501 or 2560 with the ability 

to read vertical marks made with a number 
two pencil. The capabilities and applica- 
tions of these card readers are thus expand- 
ed into such areas as meter reading, billing, 
student registration, order entry, and 

other markets now requiring mark sensing. 


Ill. Highlights — | 

-~-Reads marks made by a number two 
pencil or equivalent. 

--Hand marked cards are read directly into 
the CPU without being reproduced into stan- 
dard punched cards. 

--Marked columns and punched columns 
may be intermixed within a card. 

--Regular punched cards and marked cards 
may be intermixed. 

--Up to 40 columns of marked data or 80 
columns of punched data can be read. 

--All standard machine functions are still 
available with optical mark reading installed 
--Offers flexibility of card layout. 
--Machine thruput is not degraded. 

--No special programming is required. 
--Optical Mark reading is field installable. 


IV. Programming support 


No programming support is provided. 


V. Optical Mark Read Input Cards 

Special preprinted cards are required. 
Contact Regional Special Product Marketing 
for card specifications. 


VI. Special Features 


1. Switch On/Cff Optical Mark Read - 
Provides an illuminated push button on the 
operator panel to switch the optical mark 
read function off. This will allow reading 
holes ina mark read field, or reading 
punched cards having printed matter which 
might activate the mark read function. 
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2. Eliminate Reading in Rows lland 12 - 
Disables optical mark reading in rows 11 
and 12 of the card. This allows the use of 
pre-printed information in that area of the 
card such as headers, notes, etc. Optical 
Reading in the 11 and 12 rows is perma- 
nently disabled; however, punched card 
reading is not affected. 


VII. Reference RP@* Numbers andA rea Prices 


RPQ MM 
Name No. MAC Pur. MC 


OMR Read Head (2501 841418 112. 4025. 389. 
and 2560) with one of 
the following: 


OMR (2501A) 841216 12Z1.- 43865;. 3: 
OMR (25018) 841217 186. 4900. 8. 
OMR (2560) 841218 145. 5240. 8. 


Switch On/Off OMR 841219 15. 540.N/C 
(250 1A) 

Swith On/Off OMR 841220 15. 540.N/C 
(2501B) . 

Switch On/Off OMR C4ig7k 9. 825. N/C 
(2560) 


Fliminate OMR ZOO854 N/C N/C N/C_ 
Rows 11 & 12 (2501) 
Fliminate OMR MA1268 N/C N/C N/C 


Rows 11 & 12 (2560) 


*All RP@ prices shown are "Area" prices. 
Firm quotations must be obtained from Re- 
gional Special Product Marketing before 
quoting to the customer. 
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TSS/360 RELEASE 7.0 PLANNING INFORMATION 


The following information is provided 
for planning purposes only. The actual 
availability and specifications of all 
items will be provided through the 
official IBM procedures: the Program 
Announcement and formal documentation. 


Version 7 of the Time Sharing System/360 
will be available as Type I with 
Programming Service Classification A. 

It will provide significant incremental 
and functional improvements in these 
areas: 


Functional Improvements 


Remote Job Entry (RJE) has been 
incorporated; supporting a 2780 Type 

I terminal, it permits its user to 
initiate any batch or non-conversational 
TSS/360 job .... PL/I-F, Version 5 has 
been programmed to operate in the TSS/360 
environment; PL/I programs can be compiled 
and executed on TSS/360. 


Performance 


Many system changes have been made to 
improve performance by reducing paging 
overhead .... Device management has been 
changed to improve performance .... 
TSS/360 now provides selective loading 
of particular functions at STARTUP time. 


Reliability and Serviceability 


Addition of the facility to permit or 
prevent the creation of multivolume data 
sets .... improved VAM interlocking 
facility .... additional On Line Tests 
improved I/O outboard error 
recordings .... new ability to prevent 
tasks from entering the system when no 
auxiliary space is available .... adds 

a new alternate I/O path retry method. 


Human Factors 


Addition of the Hex Option in Text Editor 
22... improved keyboard/cardboard origin 
character and data set compression .... 
improved System Messages for 
standardization and clarity .... commands 
changed for consistency and improved 
operation. 


1. Remote Job Entry (P69-48) 


Remote Job Entry (RJE) has been 
incorporated into the system. This 
function supports a 2780 Type I terminal 
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that is attached via a 2701 Data Adapter 
Unit and permits the user to initiate 

any batch or nonconversational job from 
this terminal. All outputs created by 
the remote job are returned to the 
originating 2780 unless otherwise 
directed. The remote job function 
interfaces with the system as an extension 
of the current BULK I/O facility. RJE 
will operate with a 2780 that is equipped 
with or without the Multiple Record 
Transmission feature. The 2780 will 
operate through a 2703 Data Adapter Unit 
with modifications introduced at SYSGEN 
time. On Line Test facilities for the 
2701 and the 2780 are not provided in 
this release. 


2. PL/I (P69-48) 


PL/I, Level-F, Version 5 has been 
programmed to operate in the TSS/360 
environment. PL/I programs can be 
compiled and executed on TSS/360. It 
will operate in the 24 bit addressing 
mode and be compatible with OS PL/I-F 
except for SORT/MERGE, multitasking, 
checkpoint and the regional I/O and QTAM 
facilities of the I/O environment option. 
For running PL/I, an option is available 
through the use of a new LOGON parameter 
to limit the Virtual Memory address to 

24 bits when running with 32 bit hardware. 


3. Selective Load 


TSS now provides the users with the 
ability to selectively load or not load 
modules associated with certain functions. 
At STARTUP time, by specifying the 
functions to be deleted, the related 
control sections will automatically be 
eliminated from the loading and linking 
process. 


4%. On-Line Test Improvement 


ON-LINE Tests are included to support 
the 1403, 2400, 2540, 2541, and 2703. 


5. New Commands 


Two related commands, DDNAME? and JOBLIBS, 
are added to the Command System. DDNAME? 
displays either all of the user's active 
DDNAMES and DSNAMEsS or just those in 

the JOBLIB chain. JOBLIBS moves an 
active JOBLIB into the top position of 
the program library list; with this 
command, the existing last-in first-out 
JOBLIB order can be overriden. 
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PRMPT is a new command that helps the 
user retrieve messages and message 
explanations with provision for the 
insertion of variable information in 
messages that are written to allow such 
insertion. | 


6. Password Security 


If LOGON is entered without a required 
password, the system issues an “ENTER 
PASSWORD" prompt, and an overtyped line 
is provided following the prompt. The 
user then types his password over this 
overtyped line, making the password 
harder to read. 


7. System Messages 


System messages in the SYSMLF data set 
have been reworked in an attempt to 
obtain improved consistency and relevancy 
of meaning. Problems may still exist 

in individual messages and these should 
be reported to IBM. However the overall 
effect should be an improvement. 


The main emphasis was in the text of 

the messages themselves. In general, 
what the message is trying to say should 
be more clear or concise, and more 
relevant to the type of person who is 
receiving the message. Standard words 
and phrases were used in the text of 

the message and these have a global 
definition which may be obtained by using 
the explain word option of the EXPLAIN 
command. 


Hints for using the System Message 
Facilities 


a) The content of the standard messages 
has been reworked to apply only to normal 
users (i.e. not system programmers). 
Those who want additional information 
concerning the internal operation of 

the system should use the EXPLAIN command 
to obtain whatever information of this 
type is available. 


b) In situations where the user is 
expected to respond to the system by 
entering one of several options, the 

user may find that the options are not 
described in the standard message. The 
user should then use the explain response 
option of the EXPLAIN command for a 
complete description of the options 
available to him as well as the specific 
value which he is expected to enter. 
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c) The filter codes which were assigned 
to individual messages have been 
restructured so that the average user 
should normally be able to run with the 
warning filter code. He obtains this 
by stating, ‘DEFAULT LIMEN = W‘. The 
novice user should use "LIMEN = I°‘. 

If the user wishes to see only messages 
which describe abend situations or 
messages which require a response in 
order for processing to continue he may 
run with LIMEN = T. All other messages 
will be filtered out. 


e) The new system default for brevity 

is BREVITY = T. This means that unless 
the user takes other action he will only 
see the text of all standard messages. 

If the user wishes to see both the text 
and the message id he must use BREVITY 

= S. It is suggested that BREVITY = 

S be used when a terminal sheet is created 
for submission with an APAR, since the 
message id may be of value to system 
programmers who are trying to reconstruct 
the circumstances of the error. 


a 
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DELETED TYPE III PROGRAMS 


The following Type III programs will he deleted by the Program Information 
Department on July 19, 1970. Until that date, orders for these programs will be 
accepted by PID. These deletions have been requested by the authors, 


360D-00.1.019 AN OS/360 MULTI-PURPOSE UTILITY FOR MULTI-~PROGRAMMING 


360D-03.3.008 COURSEWRITER III/OS A REAL TIME COMPUTER ASSISTED 
INSTRUCTIONAL SYSTEM 


